u25103
02-24-2008, 12:52 PM
Hi
Here is my problem
I want to search and find text i column A and with the text that is in the first cell in column B (B1) and then go to B2 and so on....... :think:
My code just search the text within B1 but how do a make the code so it go to the next cell in B column
This is my "code":(
Dim R As Range, FindAddress As String
With Sheets(1).Range("A:A")
Set R = .Find(Range("C1"))
If Not R Is Nothing Then
FindAddress = R.Address
Do
R.Select
Set R = .FindNext(R)
Loop While Not R Is Nothing And R.Address <> FindAddress
End If
End With
'delete memory
Set R = Nothing
Please :help ..... Thanks:bow:
Here is my problem
I want to search and find text i column A and with the text that is in the first cell in column B (B1) and then go to B2 and so on....... :think:
My code just search the text within B1 but how do a make the code so it go to the next cell in B column
This is my "code":(
Dim R As Range, FindAddress As String
With Sheets(1).Range("A:A")
Set R = .Find(Range("C1"))
If Not R Is Nothing Then
FindAddress = R.Address
Do
R.Select
Set R = .FindNext(R)
Loop While Not R Is Nothing And R.Address <> FindAddress
End If
End With
'delete memory
Set R = Nothing
Please :help ..... Thanks:bow: