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

      Toisessa ketjussa toivottiin keskustelua herkkyydestä. Aloitan omalla näkemykselläni. Mielestäni herkät ihmiset ovat l
      Sinkut
      267
      868
    2. Okei, eli olet rakastunut

      Hyvä sinä, niin minäkin.
      Ikävä
      67
      665
    3. Arvaako kukaan?

      "Humalojalla metalliromun keräyspaikalla on kulkenut pitkin kevättä ja kesää joku henkilö, joka on vienyt sieltä kymmeni
      Haapavesi
      44
      645
    4. Tuntuu pahalta meidän molempien puolesta

      Anteeksi, että olen tällainen pelkuri. En vaan usko rakkauteen enää miehen ja naisen välillä omalla kohdalla. Tiedän, et
      Ikävä
      34
      558
    5. Mikä minussa sitten

      Kiihottaa enemmän kuin muissa?
      Ikävä
      51
      497
    6. Olen kiinnostunut sinusta, en seksistä

      Vihjailuja toiseen suuntaan on tullut niin paljon, että asia on korjattava. En näe sinua esineenä, vaan hienona persoona
      Ikävä
      30
      460
    7. Onko meillä

      Kaikki hyvin? 🤨 Miehelle
      Ikävä
      30
      444
    8. En pyytele enää koskaan anteeksi mitään sinulta

      Olet ollut kohtuuttoman kylmä ja tyly tilanteeseen nähden.
      Ikävä
      45
      437
    9. Taidan lähettää kaveripyynnön

      Sulle nainen. Otan vaan rohkaisuryypyn ensin.
      Ikävä
      38
      436
    10. Mies.. rehellisesti

      Mitä haluat nyt sun elämään?
      Ikävä
      45
      427
    Aihe