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

111

    Vastaukset

    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. No Purra missäs ne työpaikat ovat?

      Niinhän sinä väitit, että sinun puuhasi lisäävät 100 000 uutta työpaikkaa. Oliskohan jo aika myöntää että olet ollut vää
      Maailman menoa
      333
      2114
    2. VOIKO MITÄÄN MIELIPUOLISEMPAA ENÄÄ EHDOTTAA?

      NATO:n pääsihteeri Mark Rutte ja EU:n Kaja Kallas ehdottavat että euroopan maiden eläkevarat ja Terveydenhoito varat käy
      Maailman menoa
      322
      1357
    3. MTV: Harvinainen haastattelu: Peltsi paljastaa Osmon elämästä julkkiksena: "Aika paljon tullut..."

      Ihanat Peltsi ja Osmo . Tällä isällä ja pojalla on kyllä erityisen lämmin suhde. Isä ja poika kertovat väleistään ja pa
      Perhe
      7
      1002
    4. Mitä haluat minusta

      Jos olet varattu?
      Ikävä
      68
      953
    5. Tiedän meidän molempien pitävän toisistamme

      Siitä huolimatta näen tuhat eri vaihtoehtoa siitä, mikä menee pieleen yhteydenoton jälkeen. En kiusaa, härnää tai lupaa
      Ikävä
      33
      945
    6. Sofiallako rakkaus rakoilee? Missä rillirakas?

      Ukkeli taisi saada tarpeekseen Sofiasta ja lähti vaimon ja vauvan luo.
      Kotimaiset julkkisjuorut
      185
      944
    7. Oletko vielä

      Kiinnostunut minusta vai onko tunteet lopahtaneet 🤔
      Ikävä
      51
      902
    8. Voi kun tietäisin mitä

      Sinä olet. Ajattelen sinut hyvin helläksi ja välittäväksi. Siihen rakastuin. Mutta sitten se toinen puoli, miksi?
      Ikävä
      51
      828
    9. Huomaatko että

      Olen kiinnostunut seksielämästäsi. Mitä uskot sen taustalla olevan?
      Ikävä
      110
      794
    10. Kerro yksi positiivinen kokemus kaivatusta

      Voi tunnistaa. Jos ei ole positiivista, voi kertoa negatiivisen. Ne ehkä jää mieleen paremmin.
      Ikävä
      35
      746
    Aihe