Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ListBox
I have a Listbox on my userform which has referances 14 columns on a
worksheet. What I need to know is how when I click on the Finish button on the UserForm, can I get all the data from those columns to fill in the current worksheet, starting with the current cell? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
ListBox
On 25 Mar, 01:50, ordnance1
wrote: I have a Listbox on my userform which has referances 14 columns on a worksheet. What I need to know is how when I click on the Finish button on the UserForm, can I get all the data from those columns to fill in the current worksheet, starting with the current cell? Phillip UK London This works for me This is the userform code Private Sub UserForm_Initialize() Me.ListBox1.ColumnCount = 14 End Sub Private Sub CmdFinish_Click() 'Finish button Const LASTROW As Long = 65532 'change re Excel version Const FC As String = "A" 'first column - change as required Const LC As String = "N" 'last column - change as required Dim x As Long 'first row Dim y As Long 'last row x = ActiveCell.Row y = Range(FC & LASTROW).End(xlUp).Row If x y Then MsgBox "No data found" Else Me.ListBox1.RowSource = FC & x & ":" & LC & y End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
userform listbox cannot get listbox.value to transfer back to main sub | Excel Programming | |||
avoiding duplicates in listbox (added from another listbox) | Excel Programming | |||
VBA: Creating listbox similar to the one in Pivot table (Listbox+Checkbox) | Excel Programming | |||
listbox.value not equal to listbox.list(listbox.listindex,0) | Excel Programming | |||
Is refreshing listbox rowsource in listbox click event possible? | Excel Programming |