Help to change Textbox value if Listbox item selected

[sharky12345]

Listbox1 is on a Userform which is displayed in addition to another Userform. Can I change the value of a Textbox on the 2nd Userform if an item is selected in the Listbox in the 1st? So for example, Listbox 1 has items 1, 2, 3, 4 and 5 - if I select '2' I want Textbox2 on the 2nd Userform to display that value. Anyone?

 

[MickG]

You need to show the Userforms:- vbModeless
Like:-

Private Sub CommandButton1_Click()
UserForm1.Show vbModeless
End Sub

 

[sharky12345]

Thank you, it is currently modeless, but the Listbox selected item bit is the part I am struggling with....

 

[MickG]

This is Userform2.listbox1 sending to Userform1.textbox1
Code in Userform2 code module

Private [COLOR=navy]Sub[/COLOR] ListBox1_Click()
[COLOR=navy]Dim[/COLOR] n [COLOR=navy]As[/COLOR] [COLOR=navy]Long[/COLOR]
[COLOR=navy]For[/COLOR] n = 0 To Me.ListBox1.ListCount - 1
[COLOR=navy]If[/COLOR] Me.ListBox1.Selected(n) [COLOR=navy]Then[/COLOR]
    UserForm1.TextBox1 = Me.ListBox1.List(n)
[COLOR=navy]End[/COLOR] If
[COLOR=navy]Next[/COLOR] n
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick

 

[sharky12345]

Thanks Mick, just what I need.

 

[MickG]

You're welcome
Regrds Mick

 

[pankaj2610]

Hello,
What if 3 columns value in listbox need to shown in 3 differnt textbox in usrform

 

[nam911]

How could it be the other way, please?
I'm trying imput back listbox2 form combined text with separating "; " in listbox1

Private Sub Listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Load userform2
With Userform2

Dim s As String
Dim txtStrg As String
Dim WArray() As String

txtStrg = Me.Listbox1.List(Listbox1.ListIndex, 7)
WArray() = Split(txtStrg, "; ")

For i = LBound(WArray) To UBound(WArray)
For x = 0 To Userform2.Listbox2.ListCount - 1

If Me.Listbox1.List(Listbox1.ListIndex, 7) <> "" Then

Userform2.Listbox2.Selected (x)
Else
.Listbox2.Value = Me.Listbox1.List(Listbox1.ListIndex, 7)
End If

Next x
Next i
.Show


End With

End Sub

Please help!!!