Liste ile farklı sayfaya veri gönderme

[canercan02]

merhaba arkadaşlar;
listbox ile firma_Adres sayfasından firma adını ve edresini forma getirip menü sayfasından ag1 ve ag2 hücrelerine yazdırmak istiyorum ama bir yerde hata yapıyorum. buraya kadar hep bu forumdan araştırarak buldum.

veri/doğrulama/ayarlar/liste ile yapmaya çalıştım fakat sadece firma kısmını getirebiliyorum. benim istediğim firma seçtikten sonra ag2 hücresine seçili firmanın adresi gelsin.

bundan sonra yardımcı olursanız sevinirim.

dosya ektedir.

saygılarımla caner can

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("menu").Range("ag1") = listbox1.Column(0)
Sheets("menu").Range("ag2") = listbox1.Column(1)
End Sub

 

[canercan02]

ustam eline sağlık. istediğim gibi.