Makro ohjelmointia

jykke3

Itselläni on makro joka poistaa rivejä, mutta onko millä koodilla saan makron käyttämään kaavasta saatuja arvoja?

Makro:
Rows("8:14").Select
Selection.Delete Shift:=xlUp

Eli millä saan että numero 8 määrittyy kaavan mukaan esim 8 = B8 solu ja 14 olisi B9 solu.

2

335

Äänestä

    Vastaukset 2

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • rivienpoisto

      Yksi mahdollinen keino on esim. tällainen. Osaat varmaan soveltaa itsellesi sopivan.

      Sub poistaRivit()
      Range("A1").Select
      alku = ActiveCell.Value
      Range("B1").Select
      loppu = ActiveCell.Value
      Rows(alku & ":" & loppu).Select
      Selection.Delete Shift:=xlUp
      Range("A1").Select
      End Sub

    • kunde

      Sub poistaRivit()
      On Error Resume Next
      Rows(Range("B8") & ":" & Range("B9")).Delete
      End Sub


      Keep EXCELing
      @Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Realistisesti

      Miten toivoisit, että asiat etenisivät hänen kanssaan? Kuka tekisi mitä?
      Ikävä
      112
      1103

    2. millaiset hiukset

      kaivatullasi on? :)
      Ikävä
      33
      839

    3. Miksi et edistä asiaa...

      Kaivattusi suhteen??
      Ikävä
      56
      833

    4. Minkälaista ajattelisit elämänne olevan

      jos olisit kaivattusi kanssa yhdessä?
      Ikävä
      65
      767

    5. Sinulle nainen

      Koitan vihdoin jättäytyä täältä pois. Taas koko illan tänne tullut vain jotain pilkkaus viestejä, ei jaksa tuollaista. M
      Ikävä
      78
      694

    6. Tää on todella huvittavaa seurata näiden savolaisten

      naapurusten piikittelyä ja vihanpitoa toisilleen netissä. Näyttää siltä, että Mehtoselle alkaa tulla isäukon piirteet e
      Tuusniemi
      37
      663

    7. Kuka mölyapina

      Kuka saatanan vittu naama mölisee sunnuntaiaamuna jolla ei oo edes lauluääntä. Yön kuulunut jonkun ajan mölinää sisälle
      Suomussalmi
      14
      599

    8. Salaattirosvo

      Sinulle tiedoksi joka varastit salaatit viime yönä kasvulootasta,jäit riistakameraan🤣🤣🤣. Tulehan selvittelemään asia
      Suomussalmi
      23
      550

    9. rattijuoppoja

      tavattu taas Haapavedellä, hyvä että poliisi on valppaana
      Haapavesi
      16
      547

    10. Kuhmosta (kyseenalaiseen) kuuluisuuteen

      Naapurikylän, siis Nurmeksen suurin tubettaja on iskenyt naisen Kuhmosta. Kertoo kanavallaan naisen olevan hyvä rakastel
      Kuhmo
      4
      546
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt