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?
Rivienpoisto makro jättää rivejä välistä
hukkaantunut
5
460
Vastaukset
- 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 SubSehän toimii niinkuin pitääkin. Kiitän ja kumarran.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuka oli töllöntyön tekijä?
Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt424662Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja
Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.532534Jenkkilahkojen kastekaava
Jenkkilahkojen yhteinen kastekaava on kirjoitettuna Mormonin Kirjaan, Moroni, luku-8 Pienten lapsien vanhempia uhataan1391034Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!
Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin1611005Odotan sitä hetkeä
kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh70916- 118891
Olen melko vakuuttunut
etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok70854- 137815
- 48800
Taas mietin että
mitä ihmettä sanoisin, jos laittaisin viestiä. Aina voi toivottaa jotain, vaikka hyvää kesää, ja jos ei tule vastausta,48746