Home |
Search |
Today's Posts |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Code ------------------- Dim i As Integer, n As Integer With Me.ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) Then n = n + 1 Sheets("Sheet1").Cells(n, "a").Value = .ListIndex(i) End If Next End With ------------------- -- jindo ----------------------------------------------------------------------- jindon's Profile: http://www.excelforum.com/member.php...fo&userid=1313 View this thread: http://www.excelforum.com/showthread.php?threadid=55070 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
data from listbox to cells | Excel Programming | |||
Insert cells in a ListBox | Excel Programming | |||
Linking Cells to ListBox - How? | Excel Programming | |||
listbox.value not equal to listbox.list(listbox.listindex,0) | Excel Programming | |||
Sorting ListBox results or transposing ListBox values to other cells for sorting | Excel Programming |