JTL9161
Well-known Member
- Joined
- Aug 29, 2012
- Messages
- 567
- Office Version
- 365
- Platform
- Windows
I need a 2nd pair of eyes to look at this. I am getting Loop without Do.
Thanks,
James
Do While ActiveCell <> ""
Selection.Copy
Set myActiveCell = ActiveCell
ActiveCell.Offset(0, -4).Select
With Worksheets(1).Range("a:a")
Dim value As String
value = ActiveCell.value
Dim c As Range
Set c = .Find(value, LookIn:=xlValues)
If Not c Is Nothing Then
c.Activate
ActiveCell.Offset(0, 4).Select
ActiveSheet.Paste
myActiveCell.Activate
Rows(ActiveCell.Row).Delete
End If
Loop
Thanks,
James
Do While ActiveCell <> ""
Selection.Copy
Set myActiveCell = ActiveCell
ActiveCell.Offset(0, -4).Select
With Worksheets(1).Range("a:a")
Dim value As String
value = ActiveCell.value
Dim c As Range
Set c = .Find(value, LookIn:=xlValues)
If Not c Is Nothing Then
c.Activate
ActiveCell.Offset(0, 4).Select
ActiveSheet.Paste
myActiveCell.Activate
Rows(ActiveCell.Row).Delete
End If
Loop