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

258

    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
      190
      3505
    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
      12
      2936
    3. Toksinen persuvasemmisto

      Kun toksiset ihmiset eivät kykene hallitsemaan sinua, saamaan sinua näkemään asiat niin kuin he haluaa, toimimaan niin k
      Maailman menoa
      14
      2613
    4. 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
      2431
    5. 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
      27
      2377
    6. 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
      2284
    7. Nainen oletko koskaan miettinyt että jos

      Voitaisiin tutustua ikään kuin uudestaan
      Ikävä
      90
      1387
    8. 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ä
      13
      1357
    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
      242
      1336
    10. 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
      21
      1270
    Aihe