Open Userform Upon Selection in Listbox for Editing

[mucah!t]

Hi all,

I'd like a Userform to pop-up after selecting an iten from a Listbox and pressing a button.

The Userform should should retrieve the selected item only so I can use it for editing.

 

[Andrew Poulsom]

What have you tried exactly?

 

[mucah!t]

What have you tried exactly?

I tried Google
I've no idea how to do this

 

[Andrew Poulsom]

Add a ListBox and a CommandButton from the Control Toolbox to your worksheet. Insert a UserForm and add a TextBox. Then try this code:

'Module for worksheet
 
Private Sub CommandButton1_Click()
    If Me.ListBox1.ListIndex >= 0 Then
        UserForm1.Show
    End If
End Sub
 
'UserForm module
 
Private Sub UserForm_Initialize()
    TextBox1.Text = Worksheets("Sheet1").OLEObjects("ListBox1").Object.Value
End Sub

 

[mucah!t]

Works great,
Thanks Andrew

 

[mucah!t]

Andrew,

How can I update the value?

 

[Andrew Poulsom]

Update in what way?

 

[mucah!t]

the data in the listbox is retrieved from range A1:E
When the userform is opened en the value is given in the textbox, i'd like possibility to overwrite that value and, by pressing a button, to update the value.

 

[Andrew Poulsom]

How did you manage to set the ListBox's list to a horizontal range?

 

[mucah!t]

it's not horizontal?
Range A1:E100