Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Colum heads in multcolumn listbox
I got here code which display multicolum list box. I would like to have
column heads in listbox. If it's possible my colum heads are in celle F12:F14. Option Explicit Private Sub ListBox1_Change() With Me.ListBox1 If .ListIndex -1 Then 'MsgBox .List(.ListIndex, 1) ThisWorkbook.FollowHyperlink _ Address:="Http://" & .List(.ListIndex, 1) End If End With End Sub Private Sub UserForm_Initialize() Dim cell As Range Dim sh As Worksheet With Me .ListBox1.RowSource = "" .ListBox1.ColumnCount = 3 .ListBox1.Clear End With Set sh = Worksheets("Ark1") For Each cell In sh.Range("A10:A250") If cell.Value = sh.Range("A5").Value Then With UserForm1 .ListBox1.AddItem cell.Value .ListBox1.List(.ListBox1.ListCount - 1, 1) _ = cell.Offset(0, 2).Value .ListBox1.List(.ListBox1.ListCount - 1, 2) _ = cell.Offset(0, 5).Value End With End If Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Colum heads in multcolumn listbox
column headings don't work unless you fill the listbox using rowsource.
-- Regards, Tom Ogilvy "Alen32" wrote in message lkaboutsoftware.com... I got here code which display multicolum list box. I would like to have column heads in listbox. If it's possible my colum heads are in celle F12:F14. Option Explicit Private Sub ListBox1_Change() With Me.ListBox1 If .ListIndex -1 Then 'MsgBox .List(.ListIndex, 1) ThisWorkbook.FollowHyperlink _ Address:="Http://" & .List(.ListIndex, 1) End If End With End Sub Private Sub UserForm_Initialize() Dim cell As Range Dim sh As Worksheet With Me .ListBox1.RowSource = "" .ListBox1.ColumnCount = 3 .ListBox1.Clear End With Set sh = Worksheets("Ark1") For Each cell In sh.Range("A10:A250") If cell.Value = sh.Range("A5").Value Then With UserForm1 .ListBox1.AddItem cell.Value .ListBox1.List(.ListBox1.ListCount - 1, 1) _ = cell.Offset(0, 2).Value .ListBox1.List(.ListBox1.ListCount - 1, 2) _ = cell.Offset(0, 5).Value End With End If Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Keeping a sum colum correct after inserting a colum of data in fro | Excel Discussion (Misc queries) | |||
Check data on colum A and find match on colum b | Excel Discussion (Misc queries) | |||
Column Heads? | Excel Programming | |||
heads of column (listbox in UF) | Excel Programming | |||
listbox.value not equal to listbox.list(listbox.listindex,0) | Excel Programming |