Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
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 |