VBA. Ser om der er værdier i celler, og sletter Row hvis der er.

Sæt understående kode ind i et modul og byt Ark1 ud med navnet på din fane.

Dim lngRowCounter As Long 
     
    For lngRowCounter = 100 To 16 Step -1 
        If Range("A" & lngRowCounter) = vbNullString Then 
            Range("A" & lngRowCounter).EntireRow.Delete 
        End If 
    Next lngRowCounter 

Perfekt, send svar

Svar ;-)

iver_mo
Tilsyneladende er spørger tilfreds, men hvad sker der ved dig, hvis du for eksempel indtaster følgende:
A1: 1
A2: 2
A5: 5
A6: 6
og herefter kører fjern_raekke()?

Overser jeg noget her?

Hans

Brug dit eget eksempel, men skriv også noget i B4, B5 og B7

Får du slettet alle rækker med værdier i A1:A20 som OP efterspurgte?

Ja