ListBox

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

ordnance1 - 25 Mar 2008 02:50 GMT

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?

Reply to this Message

Phillip - 25 Mar 2008 22:13 GMT

On 25 Mar, 01:50, ordnance1 <ordnan...@discussions.microsoft.com>
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 to this Message