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

111

    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. Elina Valtosella täydellinen mahalasku Ylen Ykkösaamussa. Ei hallitse alkuunkaan tonttiaan.

      Ulkoministerimme Elina Valtosen haastattelu Ylen Ykkösaamussa 25.1.2025 oli jotain niin kiusallista katsottavaa, ettei
      Maailman menoa
      365
      1763
    2. Huomaatko että

      Olen kiinnostunut seksielämästäsi. Mitä uskot sen taustalla olevan?
      Ikävä
      145
      1256
    3. Kelpaisinko vielä?

      Huolisitko minut vielä vaikka olen ollut sen toisen kanssa?
      Ikävä
      78
      903
    4. Kerro yksi positiivinen kokemus kaivatusta

      Voi tunnistaa. Jos ei ole positiivista, voi kertoa negatiivisen. Ne ehkä jää mieleen paremmin.
      Ikävä
      35
      836
    5. Olen niin pettynyt itseeni

      Että sait väärän kuvan minusta ja luulit etten ole kiinnostunut ja menit eteenpäin. Miten nyt käy jos vielä haluamme toi
      Ikävä
      39
      815
    6. Nainen, haluatko olla haluttava

      Miettinyt tässä salaisuutta sun vetovoimallesi. Kaunis? Kyllä. Kiinnostava luonne? Kyllä. Hyvä kroppa? On. Harrastukset,
      Ikävä
      44
      801
    7. Ei ole yhtään

      Helppoa olla sinuun rakastunut
      Ikävä
      101
      795
    8. Luottoluokitus-raportti Tekijä ja Duunari Oy

      "Arvotus ja luottoraja: Yrityksen pisteet: 0.00 / 100 Taloustutka-tähdet: Suositeltu luottoraja: 0 €" "Luotonantoa suos
      Imatra
      67
      686
    9. Oot hauska

      Oot hauska ja kiva nainen.
      Ikävä
      50
      678
    10. Miksi itkit silloin

      Perääni et sydämesi särkyy jos lähden. Sitten päätit särkeä minun sydämeni olemalla toisen kanssa. Tuottamalla sitä tusk
      Ikävä
      4
      664
    Aihe