How to get selected data from ListBox into scecific Excel Sheet

[MinoMacro]

I have a form where I fill ListBox(lstSearchResults)

How can I after select one row, transfer data (Client, Name, Surname, Product) into sheet(Vstup) to cells D2,D3,D4,D5?
Can anybody help me, please?

 

[DanteAmor]

Try this

Private Sub CommandButton1_Click()
    If ListBox1.ListIndex = -1 Then
        MsgBox "Select one row from listbox"
        Exit Sub
    End If
    Range("D2").Value = ListBox1.List(ListBox1.ListIndex, 0)
    Range("D3").Value = ListBox1.List(ListBox1.ListIndex, 1)
    Range("D4").Value = ListBox1.List(ListBox1.ListIndex, 2)
    Range("D5").Value = ListBox1.List(ListBox1.ListIndex, 3)
End Sub

 

[MinoMacro]

Thank you DanteAmor, great jog

I just substitute a names and its realy work, how I expect.

Private Sub Enter_Click()
If lstSearchResults.ListIndex = -1 Then
MsgBox "Select one row from listbox"
Exit Sub
End If
Worksheets("Vstup").Range("D24").Value = lstSearchResults.List(lstSearchResults.ListIndex, 0)
Worksheets("Vstup").Range("D26").Value = lstSearchResults.List(lstSearchResults.ListIndex, 1)
Worksheets("Vstup").Range("D28").Value = lstSearchResults.List(lstSearchResults.ListIndex, 2)
Worksheets("Vstup").Range("D30").Value = lstSearchResults.List(lstSearchResults.ListIndex, 3)
Worksheets("Vstup").Range("D32").Value = Date

Worksheets("VSTUP").Activate
Range("D24").Select
Unload Me
End Sub

 

[DanteAmor]

Im glad to help you, thanks for the feedback.