Address/Find

[Nigel Brown75]

Hi All,

I get the following error when running the below code ("Object variable or with block variable not set") it stalls after doing the update on the loop. Is it also possible to have this search for 2 or 3 parameters - i.e Set C = .Find("Wrap", LookIn:=xlValues) Or Find("Put", LookIn:=xlValues) ??


With Worksheets("Original").Range("af2:af500")
Set C = .Find("Wrap", LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Value = "CPPT"
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With

Thanks
Nigel

 

[Richard Schollar]

Hi Nigel

That's because you are trying to access the value of C (for c.Address) when C is nothing (ie at the end). Since you are changing the value of the found cell, you don't need to worry about the c.Address<>firstaddress bit (ie so just use a terminator of Loop While Not C is Nothing).

 

[Nigel Brown75]

Hi richard,

Thanks for that - it is working now

Nigel