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
432
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
Saako kaunis ihminen parempaa kohtelua?
Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa1002873En rehellisesti usko et oisit
Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos361839- 101814
Suomennettua: professori Jeffrey Sachs avaa Ukrainan sodan taustat luennollaan EU parlamentissa
Jeffrey Sachs on yhdysvaltalainen ekonomisti. Sachs toimii Columbian yliopiston The Earth Instituten johtajana. Aiemmin3831681Näin sinusta taas unta!
Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly211611Nainen, olet jotenkin lumoava
Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel681457- 1191267
- 131176
En muuttaisi sinusta mitään
Ensin olit etäinen ja yritin pysyä tutkan alapuolella. Mutta ei silmiltäsi jää mitään huomaamatta, kuten minulla ei kuul91156- 201039