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. Yli 3 Vuotta sinä jaksoit

      ja yrititit ottaa selvää minusta. Aika hämmästyttävää. Naiselle.
      Ikävä
      91
      1467
    2. Mikä on viimeinen

      este joka vielä pitää sinut ja kaivattusi erillään?
      Ikävä
      83
      1012
    3. Näin kaivattuni viimeksi...

      ...? Se tuntui kuin... ?
      Ikävä
      67
      907
    4. Miksi kumppaniehdokkaan oma elämä on teille ongelma?

      Täällä monesti kuulee vaatimuksia siitä, että kumppaniehdokkaalla ei saisi olla lemmikkejä, lapsia, kavereita, eksiä, su
      Sinkut
      361
      861
    5. Oikea nainen

      On äärimmäisen naisellinen, pienikokoinen, kapeaharteinen, pienet kapeat kasvot, paksut huulet, kauniit hiukset, upeat t
      Sinkut
      170
      825
    6. Harmi että välimme

      Menivät niin solmuun.
      Ikävä
      92
      763
    7. Olen pahoillani mies ihan kaikesta

      Et sinä ole edes tehnyt mitään väärää. Eihän kenestäkään ole pakko tykätä. Pyydän anteeksi kaikkea häiriköintiä, joka on
      Ikävä
      61
      595
    8. Se ei silloin ollut sattumaa

      vaan tarkkaan suunniteltu juttu. 🪤
      Ikävä
      55
      526
    9. Minä olen käyttänyt mustan magian riittejä ja taikoja aiheuttaakseni epäonnea ja pahaa joillekin

      Ne jutut on toimineet. Olen harjoittanut tätä parisenkymmentä vuotta
      Ikävä
      126
      483
    10. Hei sinä rakas mies.

      Milloinkaan kohdataan? Toivottavasti pian....❤️
      Ikävä
      32
      455
    Aihe