J
Jaan
Hi
I found code from Dave Peterson.
Option Explicit
Sub testme02()
Dim myRng As Range
Dim FoundCell As Range
Dim wks As Worksheet
Dim myStrings As Variant
Dim iCtr As Long
myStrings = Array("ISA") 'add more strings if you need
Set wks = ActiveSheet
With wks
Set myRng = .Range("a6:a" & .Rows.Count)
End With
For iCtr = LBound(myStrings) To UBound(myStrings)
Do
With myRng
Set FoundCell = .Cells.Find(what:=myStrings(iCtr), _
after:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
lookat:=xlWhole, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
If FoundCell Is Nothing Then
Exit Do
Else
FoundCell.EntireRow.Delete
End If
End With
Loop
Next iCtr
End Sub
How can I delete also n following rows.
Example
"my text" in A8
I like to select rows 8-15 and delete this range
I found code from Dave Peterson.
Option Explicit
Sub testme02()
Dim myRng As Range
Dim FoundCell As Range
Dim wks As Worksheet
Dim myStrings As Variant
Dim iCtr As Long
myStrings = Array("ISA") 'add more strings if you need
Set wks = ActiveSheet
With wks
Set myRng = .Range("a6:a" & .Rows.Count)
End With
For iCtr = LBound(myStrings) To UBound(myStrings)
Do
With myRng
Set FoundCell = .Cells.Find(what:=myStrings(iCtr), _
after:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
lookat:=xlWhole, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
If FoundCell Is Nothing Then
Exit Do
Else
FoundCell.EntireRow.Delete
End If
End With
Loop
Next iCtr
End Sub
How can I delete also n following rows.
Example
"my text" in A8
I like to select rows 8-15 and delete this range