this works for me if i'm looking for the word test on sheet2. no need to select
the sheet
Sub test()
stVoucherID = "test" 'Application.Range("A" & dbnum).Value
With Sheets(2)
Set foundcell = .Cells.Find(What:=stVoucherID, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=True)
End With
If foundcell Is Nothing Then
Sheets(3).Select
Application.Range("a1").Select
Else
MsgBox foundcell.Address
End If
End Sub
--
Gary
"Noemi" <(E-Mail Removed)> wrote in message
news:A2137820-5A42-40F8-8C65-(E-Mail Removed)...
> Hi Nick
> StVoucherID is set as a string and stores numbers a text.
>
> However I worked out my problem, I need to add ActiveSheet before the
> Cells.Find as I am working over multiple sheets.
>
> thanks for your help anyway.
>
> Noemi
>
> "NickHK" wrote:
>
>> What does "stVoucherID" evaluate to ?
>>
>> NickHK
>>
>> "Noemi" <(E-Mail Removed)> wrote in message
>> news:7FDDB662-162A-4D48-9700-(E-Mail Removed)...
>> > Hi
>> >
>> > For some reason my code is returning the foundcell as true all the time
>> even
>> > though the data is not there. If I do a manual find then it comes back as
>> not
>> > found but with the code it comes back as found which is not correct.
>> >
>> > Below is the code I have, if anyone can give me some info on what to do to
>> > fix this probelm.
>> >
>> > stVoucherID = Application.Range("A" & dbnum).Value
>> > Sheets(2).Select
>> > Application.Range("F1").Select
>> > Set foundcell = Cells.Find(What:=stVoucherID, After:=ActiveCell,
>> > LookIn:=xlValues, LookAt _
>> > :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
>> > MatchCase:= _
>> > True)
>> > If foundcell Is Nothing Then
>> > Sheets(3).Select
>> > Application.Range("a1").Select
>> > End if
>> >
>> >
>> > Thanks
>> > Noemi
>>
>>
>>
|
Similar Threads
