click on combobox.text

Posted by Amroo on April 12, 2001 5:24 AM

Bonjour,
I want to get the entirerow (exple rangeA6) select in the sheets1 (matrix "A1:C20" (20 rows, 3 columns)), when I clikck in the combobox on the value that correspond of the value get in by the command
Combobox1.ListFillrange= "Sheets1!A1:A20"
and send it to sheets2 in Range("A1"), or get each column value in specific textbox.
2001 Thanks.
A+mroo

Posted by Dave Hawley on April 12, 2001 6:19 AM

Hi Amroo

Try this:

Private Sub ComboBox1_Change()
Dim SComBox As String
If ComboBox1.ListIndex > -1 Then
[a1].Select
SComBox = ComboBox1
With Sheets("Sheet1").Columns(1)

TextBox1 = .Find _
(What:=SComBox, After:=.Cells(1, 1), LookIn:=xlValues).Offset(0, 1)
Sheets("Sheet2").Range("A1") = TextBox1

TextBox2 = .Find _
(What:=SComBox, After:=.Cells(1, 1), LookIn:=xlValues).Offset(0, 2)
Sheets("Sheet2").Range("A2") = TextBox2

End With
Else
TextBox1 = ""
TextBox2 = ""
End If
End Sub

Dave
OzGrid Business Applications

Posted by Amroo on April 12, 2001 8:01 AM

Bonsoir,
I want to thank Grey Matter Dave Hawley for the response , it runs and I have learn something new today.
Amroo.

Posted by Dave Hawley on April 12, 2001 10:58 AM

Why thankyou Amroo :o)

OzGrid Business Applications