Find then paste
Sub FindPaste()
Application.ScreenUpdating = False
With Sheets("Statement")
With .Range("B3", .Range("B" & .Rows.Count).End(xlUp))
.Offset(-1).Resize(.Rows.Count + 1).AutoFilter _
Field:=1, Criteria1:="Agent"
On Error Resume Next
Sheets("Examine").Range("O1:AG1").Copy _
Destination:=.Offset(, 13).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub
My goal is to create a macro that will look in Column B of worksheet
€śStatement€ť ,starting in row 3, for the text €śAgent€ť. When that text is
found I would like to copy that row Columns O:AG and then paste it into the
range O1:G1 of worksheet €śExamine.€ť
The macro above will find the text €śAgent€ť in Column B and then paste the
range from worksheet €śExamine€ť into it, but I am trying to do the opposite.
I want to copy from random range based on text in worksheet €śStatement€ť
Column O:AG and paste the data into specific range in worksheet €śExamine€ť
O1:AG1. I gladly welcome any help. Thank you.
|