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

216

    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. Riikka jytkytti naftan hinnan jo yli 2,3 euroon

      Sannan aikaan esimerkiksi dieseliä selvästi kalliimpaa bensaakin sai 1,3 eurolla. https://www.is.fi/autot/art-200001188
      Maailman menoa
      224
      4503
    2. Päivän Sanna: Suomi maailman onnellisin maa

      Sanna muutti Suomen maailman onnellisimmaksi maaksi. Hänen pyyteetön työnsä maailmalla tuottaa edelleen tulosta.
      Maailman menoa
      132
      3772
    3. Vasemmiston feministinaiset puolustavat islamia

      mikä on täysin järjenvastaista, mutta eihän femakoilla paljon järkeä olekkaan, leijuvat siellä omassa kuplassaan. Myös
      Maailman menoa
      308
      3345
    4. Taisi kolahtaa....

      Joku kysyi, että miksi S24 sallii kirjoittelun tänne venäläisiltä alustoilta, juttu poistui. Täällähän tosiaan välillä
      Maailman menoa
      19
      2114
    5. Suomi edelleen maailman onnellisin maa

      Olemme hyvällä tiellä. Laitetaan nyt talous kuntoon.
      Maailman menoa
      192
      1598
    6. Vain puolet SDP:n kannattajista luottaa puoluejohtoon häirintäkohussa

      Ja SDP on ilmoittanut, että ainoa rangaistus häirintään syyllistyneille kansanedustajille on puhuttelu - aina sama. Eli
      Maailman menoa
      62
      1536
    7. Kuvaa kaivattuasi

      Yhdellä kivalla yhdyssanalla. 🥹
      Ikävä
      80
      1420
    8. Huomasitko? Tämä "viinin läträys" hämmästytti Yökylässä

      Yökylässä-sarjassa Maria Veitola vieraili Christel ja Jori Roosbergin kotona. Tunnelma oli mukava ja puitteet hulppeat.
      Suomalaiset julkkikset
      36
      1322
    9. Mitä vielä

      Toivot välillemme ?
      Ikävä
      104
      1150
    10. Lopetan Keskipohjanmaan tilaamisen

      Vasemmistolaisen ja kristinuskovastaisen pääkirjoituksen vuoksi. Suomen kouluissa on nykyisellään hyvä uskonnonopetus.
      Kokkola
      81
      1122
    Aihe