listbox??

miiia83 · Feb 28, 2007

hi!

I was wondering if anyone could show me how the code to make a listbox.. The code I have in Excel VB is as shows... I want the function_code to be shown as a listbox!

Code:

Sub Get_Category()

    resrow = 3     'börjar vid cell 3,2
    rescol = 2
    Sheets("sheet1").Range("b2:j1000").ClearContents
    

    OpenConnection ("RFC")
   
    strQuery = "SELECT * FROM DESCRIPTIONS"   'DESCRIPTIONS = tabellnamn
    Set rs = ConnRFC.Execute(strQuery)
    Do Until rs.EOF
        Sheets("sheet1").Cells(resrow, rescol).Value = rs("FUNCTION_CODE")
        Sheets("sheet1").Cells(resrow, rescol + 1).Value = rs("DESCRIPTION")
        
        resrow = resrow + 1
        rs.MoveNext
    Loop
    
    KillConnection ("RFC")


End Sub

jindon · Feb 28, 2007

Not sure...

Code:

Sub Get_Category()
    Dim a(), n As Long
    Sheets("sheet1").Range("b2:j1000").ClearContents
   
    OpenConnection ("RFC")
   
    strQuery = "SELECT * FROM DESCRIPTIONS"   'DESCRIPTIONS = tabellnamn
    Set rs = ConnRFC.Execute(strQuery)
    Do Until rs.EOF
        Sheets("sheet1").Cells(resrow, rescol).Value = rs("FUNCTION_CODE")
        Sheets("sheet1").Cells(resrow, rescol + 1).Value = rs("DESCRIPTION")
        n = n + 1 ReDim Preserve a(1 To 2, 1 To n)
        a(1,n) = rs("FUNCTION_CODE")
        a(2,n) = rs("DESCRIPTION")
        resrow = resrow + 1
        rs.MoveNext
    Loop
    
    KillConnection ("RFC")
    With ListBox1
        .ColumnCount = 2
        .ColumnWidth = "50;50"
        .Column = a
    End With
End Sub

miiia83 · Feb 28, 2007

thanks for reply.. don't know know if it helped yet though...

n = n + 1 ReDim preserve a(1 to 2, 1 to n)

got an error.. expected end of statement??

jindon · Feb 28, 2007

OOps

sorry that should be

n = n + 1 : ReDim Preserve a(1 To 2, 1 To n)

missing ":" in between

miiia83 · Feb 28, 2007

nothing happens when I run it ?? no listbox appears

jindon · Feb 28, 2007

Where do you have the ListBox?

eblake · Feb 28, 2007

Is the listbox in a cell like validation? or is it a listbox on a form?

fairwinds · Mar 1, 2007

Sorry for jumping in but we were having the same thread in international forum as well. http://www.mrexcel.com/board2/viewtopic.php?t=260026
I did however not provide any suggestions.

jindon said: Where do you have the ListBox?

I believe she does not have one. She wants it to be created automaticly.

jindon · Mar 1, 2007

Sorry for jumping in but we were having the same thread in international forum as well. http://www.mrexcel.com/board2/viewtopic.php?t=260026
I did however not provide any suggestions.

jindon said: Where do you have the ListBox?

Click to expand...

I believe she does not have one. She wants it to be created automaticly.

Thanks fairwinds

milla83,

It is much much easier if you add ComboBox before you import the data from db.

miiia83 · Mar 1, 2007

Yes exactly... don't have a listbox... is it not possible to create one with info from an access table??

If I have all the values in excel and then make a listbox out of them... i still have all the values written + them in a listbox...
I just want the listbox... Did that make sence? Kinda hard to explain in english

Mia

listbox??

miiia83

Board Regular

Excel Facts

jindon

MrExcel MVP

miiia83

Board Regular

jindon

MrExcel MVP

miiia83

Board Regular

jindon

MrExcel MVP

eblake

Active Member

fairwinds

MrExcel MVP

jindon

MrExcel MVP

miiia83

Board Regular

Similar threads

Forum statistics

Share this page

listbox??

Board Regular

Excel Facts

MrExcel MVP

Board Regular

MrExcel MVP

Board Regular

MrExcel MVP

Active Member

MrExcel MVP

MrExcel MVP

Board Regular

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock