Modification in Recorded Macro

[Dhimant]

Hi,
I m trying below code
Sub Macro1()
Application.Goto Reference:="Sheet1!RC"
Selection.Copy
Application.Goto Reference:="'Sheet2'!RC"
Cells.Find(What:="NOV08987", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
End Sub

but at "NOV08987" I want to use sheet1!A1 Kindly
Thanks in advance for any tip or hint.

 

[FSt1]

hi
if i understand, you want to replace the result of the find on sheet 1 with
the value of RC on sheet1. if so...

Dim r As String
r = Sheets("sheet1").Range("A1").Value
Sheets("sheet2").Activate
Cells.Find(What:="NOV08987", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Value = r

or....
do you want to use the value of sheet1 A1 as the search criteria.
Dim r As String
r = Sheets("sheet1").Range("A1").Value
Sheets("sheet2").Activate
Cells.Find(What:=r, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

post back if i got it all wrong.

Regards
FSt1

 

[Don Guillett]

This is modified to find the value in sheet1!a1 somewhere in sheet 2 withOUT
selections.
Probably needs more refinement to finish what you want after you have found
it


sub getdatafromsheet2()
what = Sheets("sheet1").Range("a1")

myvalue = Sheets("sheet2").Cells.Find(what, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False) ' .address

MsgBox myvalue
End Sub

 

[Dhimant]

thanks a lot second one is working
--
India

hi
if i understand, you want to replace the result of the find on sheet 1 with
the value of RC on sheet1. if so...

Dim r As String
r = Sheets("sheet1").Range("A1").Value
Sheets("sheet2").Activate
Cells.Find(What:="NOV08987", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Value = r

or....
do you want to use the value of sheet1 A1 as the search criteria.
Dim r As String
r = Sheets("sheet1").Range("A1").Value
Sheets("sheet2").Activate
Cells.Find(What:=r, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

post back if i got it all wrong.

Regards
FSt1