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ä on kaivattusi

      Nimi väärinpäin🤔🙃
      Ikävä
      87
      1161
    2. Mitkä on kaivattusi

      Nimen kolme ensimmäistä kirjainta Mar....
      Ikävä
      73
      952
    3. Minkä ikäinen on kaivattusi

      ja sinä? Vai tiedätkö hänen ikää?
      Ikävä
      39
      641
    4. Muiden vaikutus

      Oletko antanut muiden vaikuttaa mielipiteisiisi, tunteisiini tai valintoihisi suhteessa kaivattuusi?
      Ikävä
      81
      597
    5. Vähän hirvittää

      Että pystynkö täyttämään odotuksesi… jos oikeasti tutustutaan.
      Ikävä
      35
      581
    6. Ei kai nyt kukaan oikeasti kuvittele, että hallitus eroaisi Garden Helsingin takia?

      Ongelmanahan tässä kuitenkin on se, että mitään tavallisuudesta poikkeavaa ei ole tapahtunut. Joten mikä se eroperuste
      Maailman menoa
      141
      558
    7. No tavallaan seuraava kohtaaminen on käänteentekevä

      Koska sanon sulle että rakastan sua. On aika. Pösilö.
      Ikävä
      29
      544
    8. Milloin olette

      Nähneet viimeksi kaivattusi kanssa?
      Ikävä
      45
      542
    9. Me (n & m)

      Toisillemme erityiset, vaikka emme ole toistemme elämässä kuin lyhyinä, ohikiitävinä hetkinä. Uskon, että koet samoin. T
      Ikävä
      14
      539
    10. Ei hätää rakas

      Kaikki on hyvin ja linja pitää. Kohtaamiseen🤍
      Ikävä
      67
      526
    Aihe