slette række via macro

Claus,

Prøv med dette, med følgende forudsætninger:

Sletter kun værdien \"0\" (ikke tom celle), checker kun hel-tal (ikke decimal), kører 25 rækker igennem (... For i = 1 to 25)

Sub Delete0()
Dim xRow As Integer
Dim yCol As String
Dim point As String
Dim vValue As Integer

xRow = 2
yCol = \"A\"

For i = 1 To 25

    point = yCol & xRow
    Range(point).Select
    vValue = Selection
    If vValue = 0 Then
        Selection.EntireRow.Delete
        xRow = xRow + 1
    Else: xRow = xRow + 1
    End If
   
Next i
End Sub

Jeg takker mange gange for den hurtige respons,
men jeg kan desværre ikke få løsningen til at virke. Jeg har prøvet at køre macroen, og den sletter ikke de rigtige rækker, kan det skyldes, du har skrevet row+1 ???

Med venlig hilsen
Claus

Jeg skriver  xRow = xRow + 1 for at den skal skifte til næste række, når den er færdig med at teste udsagnet, ellers ville den jo teste på A2 hver gang. Makroen virker her hos mig. Kan du sende mig den fil, du ikke kan få til at virke på ploughgaard@bigfoot.com eller giv mig din e-mail adresser, så skal jeg sende dig et eksempel der virker.

Jeg sender filen til dig nu, tak for din hjælp
MVH
Claus

Jeg godkender dit svar, når jeg har modtaget filen og den virker

Med venlig hilsen
Claus

Jeg har lige nu problemer med bigfoot.com, prøv evt. ploughgaard@hotmail.com

Jeg har hermed sendt filen til din hotmail og til din bigfoot

Fejlen skyldes at jeg har sat vValue til at være integer (heltal fra -32.000 til +32.000) og da du har både decimal tal og store tal (over 32.000) så virker det ikke. Derfor skal du fjerne \"as integer\" efter \"Dim vValue\"

Jeg takker mange for hjælpen, jeg har opdaget, at den ikke altid sletter alle rækker med 0 (nul) i første omgange, men hvis macroen køres flere gange, så får den pænt renset op.

Med venlig hilsen
Claus

Den type sletteoperationer skal sikrest køres bag fra, da der hver gang der slettes en række sker en renummerering af rækkerne

Så noget i den her retyning:

Sub SletRækker()
\'Alle rækker i første markerede kolonne der indeholder 0
\'eller er tomme Slettes
    Dim r As Range
    Dim i As long
    Set r = Selection.Columns(1)
    If MsgBox(\"Alle rækker i det markerde områdes første kolonne der indeholder 0 slettes!\", vbOKCancel) = vbCancel Then Exit Sub
    For i = r.Rows.Count To 1 Step -1
        If r.Cells(i).Value = 0 Then
            r.Cells(i).EntireRow.Delete
        End If
    Next i
End Sub

Jeg har benyttet mig af sidst nævnte løsning, jeg takker mange gange for assistancen af både nerøs og ploughgaard

MVH
Claus