Listbox.tan seçilen kişiye ait bilgilerin aktarımı

[İsmail Küçükşengün]

Merhabalar;

Ekteki çalışmada Listbox.tan sadece seçtiğimiz kişiye ait bilgilerin rapor sayfasına aktarımı için yardımlarınız....

Bir de düğmeye tıkladığımda açılan Userform, bazen hata uyarısı vermektedir. Nedeni ve çözümü ne olabilir.

Şimdiden Teşekkürler.

 

[hasan.doru]

Merhaba Sayın Kucuksengun
Dosyanız üzerinde bazı değişiklikler yaptım.Bir bakın, kolay gelsin.Saygılar

 

[İsmail Küçükşengün]

Sayın Hasan Doru.
İlginize teşekkür. Fakat benim istediğim, Listbox.tan seçtiğimiz bir kişiye ait tüm verilerin rapor sayfasına gelmesi. Sadece satır olarak değil. Bu şekilde bir çözüm olursa memnun olurum. Saygılarımla...

 

[İsmail Küçükşengün]

Olabilir mi?

 

[tevfikdemir]

Sevgili kucuksengun,
hasan.dogru arkadasımızın gönderdiği kodda zaten senin dediğin işlemi yapıyor.
Userformdan düğmeyi kaldırsan bile listboxdan sectiğin veri rapor sayfasına aktarılıyor.

Sayın hasan.dogru nun göndermiş olduğu KOD'un en altındaki CommandButton1_Click komutu bu işe yarıyor.

Private Sub ListBox1_Click()
On Error Resume Next
If ListBox1.Value = Empty Or ListBox1.ListIndex < 0 Then
'Call Formu_Temizle
Exit Sub
End If
.
.
.
Sheets("rapor").Range("C2").Value = ListBox1.Column(2)
Sheets("rapor").Range("D2").Value = ListBox1.Colum
CommandButton1_Click
End Sub

Saygılar