find ????
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, ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~ View and post usenet messages directly from http://www.ExcelForum.com/ |
find ????
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 "solo_razor" wrote in message ... 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, ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~ View and post usenet messages directly from http://www.ExcelForum.com/ |
All times are GMT +1. The time now is 06:06 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com