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
447
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
6 kW saunan lämmityksestä kohta 10 euron lisämaksu / kerta
Kokoomuslainen sähköyhtiöiden hallitsema Energiavirasto ehdottaa 5 kW:n rajaa, jonka ylittämisestä tulee lisämaksu. Tark3178653Duunarit hylkäsivät vasemmistoliiton, siitä tuli feministinaisten puolue
Pääluottamusmies Jari Myllykoski liittyi vasemmistoliittoon, koska se oli duunarien puolue. Sitä samaa puoluetta ei enää2044720Olen väsynyt tähän
En osaa lopettaa ja koen huonoa omaatuntoa tästä. Kaikki on muutenkin turhaa ja tekemisesi sattuvat. Tunteita on vain hy353690Oppiiko vasemmistolaiset valehtelun jo kotonaan?
Sillä vasemmistolaiset/äärivasemmistolaiset valehtelee ja keksii asioita omasta päästään todella paljon. Esim. joku vas1982665Seuraava hallituspohja - Kokoomus, kepu, persut + KD
Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 171232245- 511786
Maailman laiskin eläin: persu
Persu ei ole eläessään laittanut rikkaa ristiin itsensä elättämiseen. Luonnossa tuollainen ei olisi mahdollista, mutta s1011779- 591699
- 1751413
Minneapolisin tapauksesta hyvä video
Runoilijan auto oli poikittain tiellä ja kun poliisit lähestyivät sitä, runotyttö painoi reippaadti kaasua. Auto syöksäh3501388