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

336

    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. Haapaveden upea kurvikuningatar

      No nyt on kyllä mahtava uutinen että Haapaveden rohkea ja toimelias nainen ja yrittäjä on päässyt finaaliin kurvikuninga
      Haapavesi
      136
      1937
    2. Uskaltaisitko ihana nuorempi nainen lähettää

      WhatsApp -viestiä, jos sulla on mun numero. Olisin ihan haltioitunut... Tykkään ja kaipaan ❤️❤️
      Ikävä
      91
      887
    3. Suomi meni ihan itse sössimään peruskoulunsa

      Nyt syytellään maahanmuuttoa, vaikka ihan itse lopetettiin vaatimaan oppilailta koulunkäynnin tarkoitus eli opiskelu ja
      Maailman menoa
      178
      883
    4. Sinulle viestiä

      Me sitten oikeasti tutustutaan ensin!!
      Ikävä
      60
      820
    5. Meinasi nainen mennä pasmat sekaisin

      Rupesin vapisemaan, kun huomasin sinut. Mutta sain sentään juuri ja juuri koottua itseni, etten ihan häpäissyt itseäni.
      Ikävä
      37
      808
    6. Tuli paha mieli miten kaikki meni meillä

      Harmittaa myönnän sen, kun molemmilla oli selvästi toiveita ennen kuin sukset meni ristiin. Olen jäässä. 😔
      Ikävä
      47
      742
    7. Mitä sä teet

      Juuri nyt?
      Ikävä
      73
      701
    8. Upeaa Google!

      Kohta on töitä tarjolla kaikille! Suomen taloushistorian suurin investointi ja Kajaani mainittu! Sähkö kyllä riittää, tö
      Kajaani
      278
      690
    9. Lidilikö Suomussalmelle

      Tännekki Lidili. Loppus tuo kiskominen näillä jäljellä olevilla. K-Market ihan sikakallis ja hyvin ylimieliset omistajat
      Suomussalmi
      46
      683
    10. Ei makeat pimut sytytä

      sen jälkeen kun on nähnyt sinut. Olet vain ihastus vailla vertaa. Kun sinut tuntee muut eivät tunnu miltään. Tajuatko ol
      Ikävä
      34
      632
    Aihe