Soru Listboxa veri Getirme

[bulentkars]

Arkadaşlar Merhaba,

Ekteki Dosyamda örnek ile belirttim, Veri sayfasındaki E:E dolu satırları listboxa gelecek listede seçeceğim yere çift tıkladığımda veyahut entere bastığımda Talep sayfasında B18 Satırına yazmak istiyorum. Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

 

[ÖmerFaruk]

Userformda aşağıdaki kodları kullanın.

Private Sub ListBox1_Click()
    Worksheets("Talep").Range("B18") = ListBox1.Value
    Unload Me
End Sub
Private Sub UserForm_Initialize()
    Dim Veri As Variant
    Veri = Worksheets("Veri").Range("E2:E" & Worksheets("Veri").Range("E2").End(xlDown).Row).Value
    ListBox1.List = Veri
End Sub

 

[bulentkars]

Ömer Faruk Bey merhaba,

Çok teşekkür ederim. istedeğim gibi olmuş sadece bir sefer tıklandığında veriyi yazıp userform kapanıyor. Bunu çift tıkladıktan sonra ve entere basıldığında yazma ve userform kapama işlemini yapabilirsek çok iyi olur. Teşekkürler

 

[ÖmerFaruk]

Neyi çift tıklayacak ve nerde entera basacaksınız?
Userform üzerinde kapat butonunuz yok, çarpıdan mı kapatacaksınız?