Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ListIndex = cell value?
I have a list box that displays pending transactions
stored in rows on a worksheet. I want to be able to click on one of these list box items and have the info from the appropriate row load back into another user form for editing. The information for the 1st item in the list comes from row 2 and so (ListIndex + 1). Here is what I have but it does not seem to work. Any help would be greatly appreciated. Private Sub lbPending_Click() Dim j As Long lbPending.ListIndex = i j = i + 1 ufEntry.Hide ufCreate.Show ufCreate.tbDiscription.Value = Worksheets ("PendingLog").Range("c" & j).Value End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
ListIndex = cell value?
I assume you are showing ufCreate as modal - so once you show it, the
remainder of your code doesn't run until it is unloaded or hidden. Also, listindex starts with 0 for the first item. If I select the first item and I want to refer to row 2, then I need to add 2 to i. Private Sub lbPending_Click() Dim j As Long j = lbPending.ListIndex + 2 ufCreate.Load ufCreate.tbDiscription.Value = Worksheets _ ("PendingLog").Range("c" & j).Value ufEntry.Hide ufCreate.Show End Sub Should work. -- Regards, Tom Ogilvy Christy wrote in message ... I have a list box that displays pending transactions stored in rows on a worksheet. I want to be able to click on one of these list box items and have the info from the appropriate row load back into another user form for editing. The information for the 1st item in the list comes from row 2 and so (ListIndex + 1). Here is what I have but it does not seem to work. Any help would be greatly appreciated. Private Sub lbPending_Click() Dim j As Long lbPending.ListIndex = i j = i + 1 ufEntry.Hide ufCreate.Show ufCreate.tbDiscription.Value = Worksheets ("PendingLog").Range("c" & j).Value End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing Options | Excel Discussion (Misc queries) | |||
Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing | Excel Discussion (Misc queries) | |||
Populate a cell if values in cell 1 and cell 2 match cell 3 and 4 | Excel Worksheet Functions | |||
Userform problem (Listindex) | Excel Discussion (Misc queries) | |||
How to create/run "cell A equals Cell B put Cell C info in Cell D | Excel Discussion (Misc queries) |