mingandmong
Active Member
- Joined
- Oct 15, 2014
- Messages
- 339
Good Afternoon
could someone please update my Macro below
it only keeps row data that contains data between ## ^^ **
i would like to replace with the following 3 unique data starting in A10 down
MON:
Data Sent
SURVEY:
many thanks
could someone please update my Macro below
it only keeps row data that contains data between ## ^^ **
i would like to replace with the following 3 unique data starting in A10 down
MON:
Data Sent
SURVEY:
many thanks
Code:
Sub DelRws_v2()
Application.ScreenUpdating = False
With Range("A10", Range("A" & Rows.Count).End(xlUp))
.Replace What:="^^<*>", Replacement:="", LookAt:=xlPart
.Replace What:="^^", Replacement:="##^^##", LookAt:=xlPart
.AutoFilter Field:=1, Criteria1:="<>*##*##*", Operator:=xlAnd, Criteria2:="<>*~*~**~*~**"
.Offset(1).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
.Replace What:="##^^##", Replacement:="^^", LookAt:=xlPart
End With
Application.ScreenUpdating = True
End Sub
Last edited by a moderator: