Hi Group,

Will try to clearify my earlier question.
Try to make below code to work but need some help.

ActiveSheet when running the code is Worksheets(1).

1- Is the FindMethod working when the "search area " is in another
worksheet in the same workbook. ( without activating of this wksh)?
2- Code below seems not to work. Is it the syntax of the "search area"
that is wrong?

Thanks for any help

Brgds

CG Rosén

Dim k
With Worksheets(2).Range("A1:A100") '????????
Set k = .Find(ComboBox1.Text, LookIn:=xlValues)
If k Is Nothing Then
code.....
Else
code....
End If
End With

CG,

What happens, you say seems not to work, but in what way? Which worksheet is
Combobox1 on?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"CG Rosén" wrote in message
...
Hi Group,

Will try to clearify my earlier question.
Try to make below code to work but need some help.

ActiveSheet when running the code is Worksheets(1).

1- Is the FindMethod working when the "search area " is in another
worksheet in the same workbook. ( without activating of this wksh)?
2- Code below seems not to work. Is it the syntax of the "search area"
that is wrong?

Thanks for any help

Brgds

CG Rosén

Dim k
With Worksheets(2).Range("A1:A100")
'????????
Set k = .Find(ComboBox1.Text, LookIn:=xlValues)
If k Is Nothing Then
code.....
Else
code....
End If
End With

Hi Bob,

Sorry, my question might be unclear. The combobox is in worksheet(1). The
lookup
text in the Combobox1 is for certain in the lookup area in Worksheet(2) but
the found
item is always nothing.

Brgds

CG Rosén


What happens, you say seems not to work, but in what way? Which worksheet
is
Combobox1 on?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"CG Rosén" wrote in message
...
Hi Group,

Will try to clearify my earlier question.
Try to make below code to work but need some help.

ActiveSheet when running the code is Worksheets(1).

1- Is the FindMethod working when the "search area " is in another
worksheet in the same workbook. ( without activating of this wksh)?
2- Code below seems not to work. Is it the syntax of the "search area"
that is wrong?

Thanks for any help

Brgds

CG Rosén

Dim k
With Worksheets(2).Range("A1:A100")
'????????
Set k = .Find(ComboBox1.Text, LookIn:=xlValues)
If k Is Nothing Then
code.....
Else
code....
End If
End With

CG,

I assume that as you are not qualifying the Combobox1 with Worksheets(1)
that the find code is in Worksheets(1) code module as well?

I created a simple test to emulate what you are doing and I found it okay.

What triggers the find code?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"CG Rosén" wrote in message
...
Hi Bob,

Sorry, my question might be unclear. The combobox is in worksheet(1). The
lookup
text in the Combobox1 is for certain in the lookup area in Worksheet(2)
but
the found
item is always nothing.

Brgds

CG Rosén


What happens, you say seems not to work, but in what way? Which
worksheet
is
Combobox1 on?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"CG Rosén" wrote in message
...
Hi Group,

Will try to clearify my earlier question.
Try to make below code to work but need some help.

ActiveSheet when running the code is Worksheets(1).

1- Is the FindMethod working when the "search area " is in another
worksheet in the same workbook. ( without activating of this wksh)?
2- Code below seems not to work. Is it the syntax of the "search area"
that is wrong?

Thanks for any help

Brgds

CG Rosén

Dim k
With Worksheets(2).Range("A1:A100")
'????????
Set k = .Find(ComboBox1.Text, LookIn:=xlValues)
If k Is Nothing Then
code.....
Else
code....
End If
End With