Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox Rowsource
HI all.
I write vba code for combo box. formCombo.CmbDate.RowSource = "SELECT DISTINCT pp FROM SS ORDER BY pp;" but it doesn't work! In here, pp is the column name and SS is sheet name. Is it wrong? I put this code in "UserForm_Initialize" And there's error on "formCombo.Show" Thank you! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox Rowsource
Check out the Help this topic. You will see :
"The RowSource property accepts worksheet ranges from Microsoft Excel." NickHK "kirke" wrote in message oups.com... HI all. I write vba code for combo box. formCombo.CmbDate.RowSource = "SELECT DISTINCT pp FROM SS ORDER BY pp;" but it doesn't work! In here, pp is the column name and SS is sheet name. Is it wrong? I put this code in "UserForm_Initialize" And there's error on "formCombo.Show" Thank you! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox Rowsource
i've used something like this:
Dim cbRsource As String Dim Lastrow As Long Lastrow = Worksheets("emp").Range("C100").End(xlUp).Row cbRsource = "'emp'!C2:C" & Lastrow ' which is the sheetname and the range in column c With Me.ListBox1 ..Visible = True ..RowSource = cbRsource End With -- Gary "kirke" wrote in message oups.com... HI all. I write vba code for combo box. formCombo.CmbDate.RowSource = "SELECT DISTINCT pp FROM SS ORDER BY pp;" but it doesn't work! In here, pp is the column name and SS is sheet name. Is it wrong? I put this code in "UserForm_Initialize" And there's error on "formCombo.Show" Thank you! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox Rowsource
I'm confused with access.
I think i cannot use SQL in excel. Then does anybody know how to filter the rowsource for combobox? I mean, if column B have the data : 1 1 2 2 3 3 4 4 Then, If i put rowsource="Sheet1!B:B" then combobox shows 1 1 2 2 3 3 4 4. I wanna put only 1 2 3 4. Plz help me. Thx. GKeramidas wrote: i've used something like this: Dim cbRsource As String Dim Lastrow As Long Lastrow = Worksheets("emp").Range("C100").End(xlUp).Row cbRsource = "'emp'!C2:C" & Lastrow ' which is the sheetname and the range in column c With Me.ListBox1 .Visible = True .RowSource = cbRsource End With -- Gary "kirke" wrote in message oups.com... HI all. I write vba code for combo box. formCombo.CmbDate.RowSource = "SELECT DISTINCT pp FROM SS ORDER BY pp;" but it doesn't work! In here, pp is the column name and SS is sheet name. Is it wrong? I put this code in "UserForm_Initialize" And there's error on "formCombo.Show" Thank you! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox Rowsource
Then you will need to cut some code to create a new list of unique items,
and use that, or load unique items directly, like this Dim i As Long Dim cArray As Long Dim ary With ActiveSheet ReDim ary(0 To 0) cArray = 0 For i = 1 To .Cells(.Rows.Count, "B").End(xlUp).Row If IsError(Application.Match(Cells(i, "B").Value, ary, 0)) Then ReDim Preserve ary(0 To cArray) ary(cArray) = .Cells(i, "B").Value cArray = cArray + 1 End If Next i End With Me.ComboBox1.List = ary -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "kirke" wrote in message ups.com... I'm confused with access. I think i cannot use SQL in excel. Then does anybody know how to filter the rowsource for combobox? I mean, if column B have the data : 1 1 2 2 3 3 4 4 Then, If i put rowsource="Sheet1!B:B" then combobox shows 1 1 2 2 3 3 4 4. I wanna put only 1 2 3 4. Plz help me. Thx. GKeramidas wrote: i've used something like this: Dim cbRsource As String Dim Lastrow As Long Lastrow = Worksheets("emp").Range("C100").End(xlUp).Row cbRsource = "'emp'!C2:C" & Lastrow ' which is the sheetname and the range in column c With Me.ListBox1 .Visible = True .RowSource = cbRsource End With -- Gary "kirke" wrote in message oups.com... HI all. I write vba code for combo box. formCombo.CmbDate.RowSource = "SELECT DISTINCT pp FROM SS ORDER BY pp;" but it doesn't work! In here, pp is the column name and SS is sheet name. Is it wrong? I put this code in "UserForm_Initialize" And there's error on "formCombo.Show" Thank you! |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Combobox Rowsource
Wow. Thx Bob.
I really appreciate it!!!!!!!!!! Bob Phillips wrote: Then you will need to cut some code to create a new list of unique items, and use that, or load unique items directly, like this Dim i As Long Dim cArray As Long Dim ary With ActiveSheet ReDim ary(0 To 0) cArray = 0 For i = 1 To .Cells(.Rows.Count, "B").End(xlUp).Row If IsError(Application.Match(Cells(i, "B").Value, ary, 0)) Then ReDim Preserve ary(0 To cArray) ary(cArray) = .Cells(i, "B").Value cArray = cArray + 1 End If Next i End With Me.ComboBox1.List = ary -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "kirke" wrote in message ups.com... I'm confused with access. I think i cannot use SQL in excel. Then does anybody know how to filter the rowsource for combobox? I mean, if column B have the data : 1 1 2 2 3 3 4 4 Then, If i put rowsource="Sheet1!B:B" then combobox shows 1 1 2 2 3 3 4 4. I wanna put only 1 2 3 4. Plz help me. Thx. GKeramidas wrote: i've used something like this: Dim cbRsource As String Dim Lastrow As Long Lastrow = Worksheets("emp").Range("C100").End(xlUp).Row cbRsource = "'emp'!C2:C" & Lastrow ' which is the sheetname and the range in column c With Me.ListBox1 .Visible = True .RowSource = cbRsource End With -- Gary "kirke" wrote in message oups.com... HI all. I write vba code for combo box. formCombo.CmbDate.RowSource = "SELECT DISTINCT pp FROM SS ORDER BY pp;" but it doesn't work! In here, pp is the column name and SS is sheet name. Is it wrong? I put this code in "UserForm_Initialize" And there's error on "formCombo.Show" Thank you! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
RowSource for Sheet ComboBox | Excel Worksheet Functions | |||
Combobox rowsource | Excel Programming | |||
combobox rowsource as code | Excel Programming | |||
How Do I Load A ComboBox RowSource From The Results Of Another ComboBox | Excel Programming | |||
combobox rowsource | Excel Programming |