find ????

  • Thread starter Thread starter solo_razor
  • Start date Start date
S

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,
 
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
 
Back
Top