Missä vika kun tämä makro ei toimi eli pitäisi poistaa A-sarakkeesta sellaiset rivit jotka alkaa ---
Sub Tuhoa()
Dim i As Long, vikarivi As Long
vikarivi = Range("A65536").End(xlUp).Row
For i = vikarivi To 1 Step -1
If Cells(i, "A") = "---" Then Rows(i).Delete
Next i
End Sub
Sub Tuhoa()
Dim i As Long, vikarivi As Long
vikarivi = Range("A65536").End(xlUp).Row
For i = vikarivi To 1 Step -1
If Cells(i, "A") = "---" Then Rows(i).Delete
Next i
End Sub
Vastaukset 1
Vanhimmat
Sub Tuhoa()
Dim i As Long, vikarivi As Long
vikarivi = Range("A65536").End(xlUp).row
For i = vikarivi To 1 Step -1
If Left(Cells(i, "A"), 3) = "---" Then Rows(i).Delete
Next i
End Sub