rijen verwijderen vba

[arjancuijpers]

Beste,

Ik heb een macro die in kolom A kijkt welke cellen gevuld zijn. Als een cel gevuld is wordt de hele rij verwijderd.
Nu wil ik de range aanpassen dat hij pas vanaf cel A6 omlaag gaat kijken .
Als er geen gevulde cel in kolom A bevind krijg ik een foutmelding kan ik deze er ook uit krijgen?


De code tot nu toe is:

Sub test()
   
Sheets("KAVEL1").Visible = True
    Sheets("KAVEL1").Activate
    
Application.ScreenUpdating = False
With Sheets("Kavel1")
lr = .Range("A" & Rows.Count).End(xlUp).row
N = .Range("A:A").Cells.SpecialCells(xlCellTypeConstants).EntireRow.Delete
End With
End Sub

MVG

Arjan

 

[edmoor]

Een paar dingen:
Je vult variabelen die je niet gebruikt (lr en N)
Je zet screenupdating uit maar niet meer aan.
Je verteld er niet bij welke foutmelding je krijgt.

 

[arjancuijpers]

Een paar dingen:
Je vult variabelen die je niet gebruikt (lr en N)
Je zet screenupdating uit maar niet meer aan.
Je verteld er niet bij welke foutmelding je krijgt.

Beste,

bedankt voor de snelle reactie.
Ik heb pas een paar macro's geschreven dus mijn kennis is nog beperkt en probeer dus van ander codes iets te gebruiken en uit eindelijk uit te proberen.
Maar ik begrijp uit jou reactie dat er niet veel klopt van mijn code

ik krijg foutmelding
fout 1004 tijdens uitvoeren:
er zijn geen cellen gevonden:

Wat ik dus wil is dat er in kolom A vanaf rij 6 gezocht wordt naar gevulde cellen. Als er een cel gevuld is in kolom A dan de complete rij verwijderen.

MVG

 

[edmoor]

Probeer deze eens:

Sub test()
    Dim LastRow As Long
    Dim i As Long
    
    Application.ScreenUpdating = False
    With Sheets("Kavel1")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Visible = True
        For i = LastRow To 6 Step -1
            If Cells(i, 1).Value <> "" Then
                .Rows(i).EntireRow.Delete
            End If
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

 

[arjancuijpers]

Probeer deze eens:

Sub test()
    Dim LastRow As Long
    Dim i As Long
    
    Application.ScreenUpdating = False
    With Sheets("Kavel1")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Visible = True
        For i = LastRow To 6 Step -1
            If Cells(i, 1).Value <> "" Then
                .Rows(i).EntireRow.Delete
            End If
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

Tanx werkt perfect

 

[dicko]

Onderstaande code gebruik ik.

On Error Resume Next
ThisWorkbook.Sheets("Bezoekerslijst").Range("A6:A" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0