Add Article In active Cell

[IoanZ]

Hello

I have this situation. see foto https://ibb.co/gOs76y

I have created a userform which contains a ListBox with 4 article and a Comand Button ("Add Selected Article").
ListBox contains 2 columns (Code and Name)

I want to add in active cell (C4 in this case) the code of selected article from ListBox.

Please tell me wich is the VBA code for the button Add Selected Article

in this case I selected row 2 from list box and in active cell (C4) must apear code number

 

[Fluff]

You can do that with a listbox_click event

Private Sub ListBox1_Click()
ActiveCell.Value = Me.ListBox1.Column(0)
End Sub

 

[IoanZ]

Thanks


I find this:
Private Sub CommandButton1_Click()
Dim addme As Range
Dim x As Integer
Set addme = ActiveCell
For x = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(x) Then
addme = Me.ListBox1.List(x)
End If
Next x
For x = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(x) Then Me.ListBox1.Selected(x) = False
Next x
Unload Me
End Sub