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

334

    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. Paljonko meidän ikäero on?

      Ois kiva tietää.
      Ikävä
      131
      1756
    2. Kuka tai ketkä tappo eilen?

      Kenet ja miksi?
      Varkaus
      26
      1654
    3. Nainen onko kaikki

      Onko sinulla nainen kaikki hyvin? mies
      Ikävä
      141
      1202
    4. Työttömät risusavottaan

      Tuli tässä juhannusnuotiolla sellainen idea mieleen, että miksei työttömiä velvoiteta tekemään hanttihommia, kuten risus
      Maailman menoa
      337
      976
    5. Arvostele kaivattusi

      ulkonäköä, asteikolla 1-10. Perustelut myös 🧢
      Ikävä
      50
      788
    6. Persujen kansanedustaja häpäisi lipun!

      "Persujen kansanedustaja Pekka Aittakumpu julkaisi Instagramissa videon, jossa hän heittää Pride-lipun roskiin. Video on
      Maailman menoa
      310
      788
    7. Mies onko sinulla

      Kaikki hyvin? 🌞 -nainen
      Ikävä
      42
      770
    8. Jos tunnistit...

      Voit hyvin ottaa yhteyttä...olisi mukava jutella☺️
      Ikävä
      61
      740
    9. Väsynyt odottamiseesi, M.

      Vaikka et minua haluaisi tai huolisi, asia pitäisi käydä lävitse. Siksi etten sinusta pääse ylitse. Pystyisinkö tyytym
      Ikävä
      50
      728
    10. Mitä teet mies?

      Oletko jonkun naisen kanssa? 😞
      Ikävä
      66
      706
    Aihe