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

335

    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. kolme tunnistetta kaivatustasi

      Anna kolme tunnistetta kaivatussasi!
      Ikävä
      71
      1335
    2. Kai mua vähän

      Masentaa tämä kaikki. Tämä koko meidän välinen juttu on niin vaikea… Voitaisiinko molemmat lopettaa tilanteen ruokkimine
      Ikävä
      139
      1102
    3. Onko karhukanta jo liian iso? Lenkkeilijä kohtasi kontion juoksulenkillä

      Rantasalmella lenkkeilijä kohtasi karhun. Kylällä karhun näkeminen on ollut tosi harvinaista. Onko karhukanta jo liian i
      Maailman menoa
      116
      758
    4. Vanhat konkarit ulos Elämäni biisistä - Yle selittelee

      Elämäni biisi starttaa taas tänä syksynä. Mukana on ripaus uutta, mutta poissa on iso osa vanhaa... Poissa ovat Markku
      Tv-sarjat
      19
      663
    5. S-ryhmän Israel-boikotti liiketalouden opintojen tapausesimerkkinä

      Tätä S-ryhmän Israel-boikottitapausta käsitellään jo kauppakorkeakoulujen ja johtamiskorkeakoulujen esimerkeissä. Se ant
      Maailman menoa
      24
      637
    6. Oot upea nainen, älä vähättele ittees

      Ja tietojeni mukaan 2 muuta on susta kiinnostuneit mun lisäks. 👀
      Ikävä
      37
      606
    7. Mitä tehdä kun rakastan yhtä ja olen rakastunut toiseen

      Kamala tilanne. Voinko pitää molemmat? 😁
      Ikävä
      63
      570
    8. Mitä vit,,tua!

      Mikä hiivatin kommunistien teltta oli kirsikan nurkalla, olivat vähällä jäädä telttoinensa auton alle kun olivat sen kul
      Suomussalmi
      26
      549
    9. Mies miksi moinen vetäytyminen?

      1) Olit loukkaantunut tai suuttunut 2) Sulla oli toinen nainen 3) Luulit, etten halua jatkaa tutustumista 4) Vai joku
      Ikävä
      52
      539
    10. Hyvä Kukkola! toitte tänne taas jotain uutta

      Niin sitä pitää! Kehittää oikeasti tarjontaa. Nyt on maut kohdillaan! Käykäähän herkuttelemassa wingseillä ja siipiweikk
      Haapavesi
      64
      531
    Aihe