Rivienpoisto makro jättää rivejä välistä

hukkaantunut

Eli koodin pätkä on tässä:

Range("a1:a480").Select
For Each Cell In Selection
If Cell.Value = "0" Then
Cell.EntireRow.Delete
End If
Next Cell
Range("a1").Select

Tarkoitus siis poistaa kaikki rivit välillä a1:a480, a sarakkeen solun arvo on 0. Tuo toimii muuten mutta sitä pitää toistaa usean kerran että se poistaa kaikki rivit. Saisiko sen muutettua niin ettei se hyppisi rivien yli? Helposti?

5

439

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • hukkaantunut

      Tarkemmin sanottuna tuo hyppää aina yhden rivin yli.

    • makron pitää toimia alhaalta ylöspäin... ;-)

      • hukkaantunut

        Olisko ollut toteutuksesta vinkkiä?


      • vaikka tuota
        hukkaantunut kirjoitti:

        Olisko ollut toteutuksesta vinkkiä?

        Sub PoistaRivit()
        Dim s As Single
        Dim rForDelete As Range
        Dim c As Range
        Dim i As Long
        With Sheets("Sheet1")
        For Each c In .Range(.Cells(1, 1), .Cells(1000, 1))
        If c.Value = 0 Then
        If rForDelete Is Nothing Then
        Set rForDelete = c
        Else
        Set rForDelete = Union(rForDelete, c)
        End If
        End If
        Next
        End With
        If Not rForDelete Is Nothing Then rForDelete.EntireRow.Delete
        End Sub


      • hukkaantunut
        vaikka tuota kirjoitti:

        Sub PoistaRivit()
        Dim s As Single
        Dim rForDelete As Range
        Dim c As Range
        Dim i As Long
        With Sheets("Sheet1")
        For Each c In .Range(.Cells(1, 1), .Cells(1000, 1))
        If c.Value = 0 Then
        If rForDelete Is Nothing Then
        Set rForDelete = c
        Else
        Set rForDelete = Union(rForDelete, c)
        End If
        End If
        Next
        End With
        If Not rForDelete Is Nothing Then rForDelete.EntireRow.Delete
        End Sub

        Sehän toimii niinkuin pitääkin. Kiitän ja kumarran.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      93
      2129
    2. Perusmuotoiset TV-lähetykset loppu

      Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia
      Apua aloittelijalle
      167
      1557
    3. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      74
      1339
    4. Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

      Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.
      Maailman menoa
      240
      1237
    5. No ei sun asunto eikä mikään

      muukaan sussa ole erikoista. 🤣 köyhä 🤣
      Ikävä
      73
      1190
    6. Hyvin. Ikävää nainen,

      Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan
      Ikävä
      88
      1106
    7. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      151
      1051
    8. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      253
      1016
    9. Katsoin mies itseäni rehellisesti peiliin

      Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.
      Ikävä
      51
      936
    10. Uskomaton tekninen vaaliliitto poimii rusinoita pullasta

      Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli
      Pyhäjärvi
      88
      901
    Aihe