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ä
      21
      6314

    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
      554
      2224

    3. Mitä haluaisit kysyä

      Kaivatultasi?
      Ikävä
      146
      1818

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

      Tällä hetkellä parasta?
      Ikävä
      82
      1204

    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
      982

    6. Mitä haluaisit nähdä

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

    7. Ökyrikas Kurkilahti mussuttaa veroistaan

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

    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
      813

    9. Kaupunki ostaa Kauppamatin

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

    10. Yhdysvalloissa työllisyys paranee, Suomessa työttömyys kasvaa, missä vika?

      Miten tämä on mahdollista että 177 000 uutta työllistä tuli USAssa yhdessä kuukaudessa, vaikka Trump on ruorissa? Orpon
      Maailman menoa
      144
      730
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt