easy find question

[lekayra]

Hi there!

All I want to do is to find cells containg a specific word (in this case it is "dar&quot then copy that cell to the cell above it.

I guess it shouldnt be difficult. Yet I couldnt find a conventional method.


Thanx in advance,
Kayra.

 

[xlbo]

Almost directly from the help file:

With Worksheets(1).Range("a1:a1000&quot
Set c = .Find("dar", lookin:=xlValues, lookat:=xlpart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.offset(-1,0).value = c.value
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With Rgds
Geoff
&quot;Some cause happiness wherever they go; others whenever they go.&quot;
-Oscar Wilde

 

[lekayra]

thx a lot. It worked smoothly.

Kayra.