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

    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

    • 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ä.

    Luetuimmat keskustelut

    1. Mikä Yllätti

      Kaivatussasi?
      Ikävä
      198
      1906
    2. Ei enää ulkoteltta ruokaa.

      Se oli sitten viimmeinen kerta kun tuonne teltalle menen.Laatu heikkenee joka vuosi ja annokset pienenee.Ei enää kiitos,
      Kuhmo
      48
      1086
    3. Se katse...

      Täynnä rakkautta. Kunpa olisin tajunnut.
      Ikävä
      81
      956
    4. Jos sussa toisessa on yhtään miestä

      Ja kadut tekemisiäsi niin menet poliisin puheille, paljastat kaiken oman osuutesi ja kerrot mitä kaikkea se toinen on te
      Ikävä
      129
      881
    5. En ole hetkeen sinulle kirjoittanut nainen

      Vieläkin ajattelen sinua, jos voit uskoa. Tunteet minussa huutavat toivoa ja rakkautta, kun kylmä loogisuus taas pistää
      Ikävä
      56
      841
    6. 68
      752
    7. Muuttaisitko kaivattusi luokse

      heti asumaan? 🛒
      Ikävä
      97
      709
    8. Mitä eroavaisuuksia sinulla on

      kaivattusi kanssa? Esim. luonteessa. Haittaavatko erot vai ovatko vain rikkaus?
      Ikävä
      73
      677
    9. Onnettomuus

      Olivatko paikkakuntalaisia, jotka menehtyivät?
      Virrat
      23
      617
    10. Martinan tyttärestä hieno haastattelu IL

      Martina on kasvattanut fiksun tyttären.
      Kotimaiset julkkisjuorut
      322
      606
    Aihe