Hi All!

I have a problem with a ComboBox ListFill Range. I use this code fo
the first ComboBox:

Sheets("Start").Select
x = Application.Match(Val(ComboBox2), Range("A2:A1002"), 0)
If IsNumeric(x) Then
ComboBox3 = Range("B2:B1002").Cells(x) 'ListFillRange
End If

ComboBox3 =cells(x), column("B") = Range("B2:B1002").Cells(x)
vertical match.
This one works ok.

But:

Then i want ComboBox4 to match:
If cells(x)= ("A2") then ComboBox4= Row("2"), Columns ("L:Q"),
= ("L2:Q2") .Cells(x) = horizontal match.

I just can't make this one work.

Suggestions?

/Stromm

--
Message posted from http://www.ExcelForum.com

Stronma,

Have you tried

ComboBox4 = Rows(2).Columns("L:Q").Cells(x)

or

ComboBox4 = Range("L2:Q2").Cells(x)

--

HTH

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

"Stromma " wrote in message
...
Hi All!

I have a problem with a ComboBox ListFill Range. I use this code for
the first ComboBox:

Sheets("Start").Select
x = Application.Match(Val(ComboBox2), Range("A2:A1002"), 0)
If IsNumeric(x) Then
ComboBox3 = Range("B2:B1002").Cells(x) 'ListFillRange
End If

ComboBox3 =cells(x), column("B") = Range("B2:B1002").Cells(x) =
vertical match.
This one works ok.

But:

Then i want ComboBox4 to match:
If cells(x)= ("A2") then ComboBox4= Row("2"), Columns ("L:Q"),
= ("L2:Q2") .Cells(x) = horizontal match.

I just can't make this one work.

Suggestions?

/Stromma


---
Message posted from http://www.ExcelForum.com/