Hej,

Det finns ett antal olika sätt att göra detta på men det renaste sättet i min värld är att loopa igenom alla rader och kontrollera värdet i respektive cell på raderna och sedan radera. I exemplet nedan så görs detta men istället för att loopa igenom raderna ovanifrån och ner så görs det från botten och uppåt. Om man istället hade tagit uppifrån och ner och ville ta bort rad två så flyttas ju alla andra rader ett steg uppåt efter raderingen så att "gamla" rad 3 blir "nya" rad 2. Om man då i en vanlig loop uppifrån hade loopat vidare så hade nästa steg varit på rad 3 vilket innebär att man missar raden som hoppade från 3 till 2 pga raderingen.

Public Sub RemoveRowsWithSpecificValue()
Dim r As Long
For r = 100 To 1 Step -1
If LCase(ThisWorkbook.Sheets("Blad1").Cells(r, 1).Value) = "radera" Then
Call ThisWorkbook.Sheets("Blad1").Rows(r).EntireRow.Delete
End If
Next
End Sub

Mvh,
Johan Öhrn

---