Soru Hücre içerisine inputbox ile değer girmek

[Gkhnozn]

Öncelikle merhabalar, yapmak istediğim şey, listbox içindeki bir satıra çift tikladigimda inputbox acilsin ve listboxtaki tikladigim değer ile inputbox araciligiyla girdiğim değer aralarında "-" ile a1 hücresine yazılsın. Fakat bu işlemi devam ettirmek istiyorum. Yani ikinci bir kez başka bir satira tikladigimda yine inputbox acilacak ve ayni islemi bu kez yine a1 hucresinin alt+Enter komutu gibi alt satırına yazsin ve böylece bütün girdiğim degerleri alt alta tek bir hücrede göreyim. Bu arada listbox tek sütunlu olacak.

Bu islemi nasıl yapabilirim acaba yardımcı olabilirseniz çok sevinirim.
Şimdiden ilgilenen arkadaşlara teşekkür ederim.

 

[ÖmerFaruk]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Deger = InputBox("Değer girin")
    If Range("A1") = "" Then
        Range("A1") = Me.ListBox1.Value & " - " & Deger
    Else
        Range("A1") = Range("A1") & Chr(10) & Me.ListBox1.Value & " - " & Deger
    End If
End Sub

 

[Gkhnozn]

Coook teşekkür ederim hocam.