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

437

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • hukkaantunut

      Tarkemmin sanottuna tuo hyppää aina yhden rivin yli.

    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Moikka rakas

      Oon miettinyt meidän välistä yhteyttä viime aikoina. En ihan osaa pukea sanoiksi, mitä kaikkea tunnen, mutta halusin vaa
      Ikävä
      20
      5924

    2. Malmin tapaus on järkyttävä

      Kolme ulkomaalaistaustaista miestä raiskasi nuoren tytön tavalla, jota ei meinaa uskoa todeksi. Mikä voisi olla oikeampi
      Maahanmuutto
      553
      2138

    3. Mitä haluaisit kysyä

      Kaivatultasi?
      Ikävä
      143
      1756

    4. Mitkä asiat teidän elämässänne on

      Tällä hetkellä parasta?
      Ikävä
      80
      1163

    5. HS: Kuka vielä uskaltaa mennä sairaalan ensiapuun?

      https://www.hs.fi/mielipide/art-2000011212025.html Tässä on hyvin ajankohtainen mielipidekirjoitus koskien Malmin sairaa
      Maailman menoa
      97
      932

    6. Mitä haluaisit nähdä

      Kaivatullasi päällä?
      Ikävä
      72
      920

    7. Ökyrikas Kurkilahti mussuttaa veroistaan

      Pakeni aikoinaan veroja Portugaliin mutta joutui palaamaan takaisin kun Suomi teki verotussopimuksen Portugalin kanssa.
      Maailman menoa
      69
      806

    8. Jos tämän vaan sulkee ja avaa 5 vuoden päästä

      Täällä on luultavasti edelleen näitä ihan samoja juttuja. On kuin kauniit ja rohkeat samat jutut junnaa. Heips. 👋🏻 E
      Ikävä
      10
      773

    9. Kaupunki ostaa Kauppamatin

      Joutuukohan yrittäjät lähteen muualle?
      Haapavesi
      30
      764

    10. Kuntoportaat sai rahaa

      Kuntoportaat sai mojovan tuen. Minua vain ihmetyttää, tuleeko ne pidettyä käyttökunnossa. Televisiossa oli yksi aamu p
      Hyrynsalmi
      37
      696
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt