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ä
5
439
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
Suureksi onneksesi on myönnettävä
Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️932129Perusmuotoiset TV-lähetykset loppu
Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia1671557YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua
Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä741339Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa
Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.2401237- 731190
Hyvin. Ikävää nainen,
Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan881106Martina lähdössä Ibizalle
Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.1511051Asiakas iski kaupassa varastelua tehneen kanveesiin.
https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava2531016Katsoin mies itseäni rehellisesti peiliin
Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.51936Uskomaton tekninen vaaliliitto poimii rusinoita pullasta
Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli88901