find ????

[solo_razor]

hi

I have implemented a find option to search for a particular string, if
found then copy the data what lies under it to a certain row lets say
row 500 and then copy, does anybody know vba code for this.

Regards,

 

[shockley]

Something like:

Dim rngFind As Range
Dim sString As String

sString = "abcd"

Sub Tester()
Set rngFind = Cells.Find(What:=sString, LookAt:=xlPart)
If Not rngFind Is Nothing Then
Cells(500, 3) = rngFind
End If
End Sub

Not sure what you mean by copy a string to a row. If you mean put the
string in every cell in Rows(500)
you could do this with

Rows(500) = rngFind

HTH,
Shockley