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

255

    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. Riikan vappumiljardin maksavat sairaat, vanhukset ja kuolleiden omaiset

      Vappumiljardi, eli Riikan päätös laskea yhteisöveroa kaksi prosenttiyksikköä 18 prosenttiin, vie verotuloja noin miljard
      Maailman menoa
      143
      3001
    2. Ammattiliittojen jäsenmaksut valtion maksettavaksi

      Ammattiliitot neuvottelvat jäsenilleen paremmat palkat, jotka lisäävät valtio verotuloja. Tästä syystä valton tulee maks
      Maailman menoa
      4
      2545
    3. Särkyneelle sydämelle

      Särjin sun sydämen En voi lakata itkemästä Minuun tekee kipeää Koska sinuunkin. Että näin.. En ole runoilija😂
      Suhteet
      45
      1924
    4. Seiska: Helmi Loukasmäki, 25, rehellisenä Dannystä, 83, ja isosta ikäerosta

      Helmi Loukasmäki, 25, ja Ilkka Danny Lipsanen, 83, ovat pitäneet yhtä jo useamman vuoden. Nyt Helmi kertoo rehellisenä i
      Kotimaiset julkkisjuorut
      19
      1707
    5. Uus terveysassema

      Ei taia olla vielä ketjua siitä ni minäpä alotan. Joko sitä ruvettas porukalla nyt mollaamaa ja arvostelemaa ku nii ruma
      Kuhmo
      11
      1691
    6. Mitäköhän tämä koko sekosotku on ollut?

      Tuskin tiedät itsekään. Ja jos luulet että en ole huomannut näitä apupoikiasi niin kyllä olen.
      Ikävä
      12
      1012
    7. Nainen oletko koskaan miettinyt että jos

      Voitaisiin tutustua ikään kuin uudestaan
      Ikävä
      70
      906
    8. Purralla luistaa hihna isolla pyörällä, kasetti ei kestä

      ”Purra käy nyt pahasti ylikierroksilla” Nähtiinhän Purran sekoilut jo Lohjan torilla taannoin. Eikö eduskunnassa ole
      Maailman menoa
      12
      891
    9. Riikka Purra: Autoilu tulee Suomen valtiolle pyöräilyä edullisemmaksi! Siksi pyöräetu poistettiin!

      🐸🐸🐸🐸🐸 Perussuomalaisten trollitehdas kiukkuaa kun Riikka Purra päästi taas sammakoita suustaan että autoilu tulee S
      Maailman menoa
      206
      854
    10. Hei sinä (m)

      Meidän välinen tunnepyörremysky alkoi viime syksynä eikä ainakaan mun taholta ota laantuakseen. Tulet mun mieleen päivit
      Ikävä
      1
      827
    Aihe