Gil
11-17-2011, 12:18 AM
Hello
I have recorded this macro but am having difficulty copying the found cell to then paste elsewhere. My efforts only copy the whole column which is not what I need. The range H19 is always going to vary. Any help is always gratefully received.
Sub Macro3()
'
Range("H1:H1000").Select
Selection.Find(What:="1/", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("H19").Select
Selection.Copy
Range("E3").Select
ActiveSheet.Paste
End Sub
I have recorded this macro but am having difficulty copying the found cell to then paste elsewhere. My efforts only copy the whole column which is not what I need. The range H19 is always going to vary. Any help is always gratefully received.
Sub Macro3()
'
Range("H1:H1000").Select
Selection.Find(What:="1/", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("H19").Select
Selection.Copy
Range("E3").Select
ActiveSheet.Paste
End Sub