Archive of Mr Excel Message Board
Back to Controls in Excel archive index
Back to archive home
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
Re: click on combobox.text
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
Re: click on combobox.text
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.
Why thankyou Amroo :o)
Posted by Dave Hawley on April 12, 2001 10:58 AM
OzGrid Business Applications
This archive is from the original message board at www.MrExcel.com.
All contents © 1998-2004 MrExcel.com.
Visit our
online store to buy searchable CD's with thousands of VBA and Excel answers.
Microsoft Excel is a registered trademark of the Microsoft Corporation.
MrExcel is a registered trademark of Tickling Keys, Inc.