ListBox'ta seçilen personel bilgilerinin aktarılması

[alipinar]

Merhaba arkadaşlar. Sorumu ekteki data2 sayfasında yazdım. İlgilenirseniz çok mutlu olurum. Teşekkürler

 

[Levent Menteşoğlu]

Birinci sorunuz için yazdır butonu içindeki ilk döngünüzü aşağıdaki ile değiştirin.

[vb:1:f18b9ebd81]Sheets("data2").Range("c4:ae36").ClearContents
For j = 0 To ListBox2.ListCount - 1
Sheets("data2").Cells(4, j + 3) = ListBox2.List(j)
Next[/vb:1:f18b9ebd81]

İkinci sorunuz içinde aynı kodun içine en alt satır olarak aşağıdaki kodu ilave edin.

[vb:1:f18b9ebd81]Columns("B:AE").EntireColumn.AutoFit[/vb:1:f18b9ebd81]

 

[alipinar]

Sn Leventm yardımlarınıza teşekkür ederim. Ancak sorunum henüz bitmedi. PERSBİLGİ sayfasındaki YAZDIR butonundan açılan ListBox1 içinden ListBox2'ye aktarılan alanların alttaki yazdır butonuna basınca seçilen alanların ve personel bilgileri ile beraber data2 sayfasına aktarılmasını istiyorum. Tabii bu mümkünse.
Yardımlarınız için teşekkür ederim.

 

[alipinar]

:yardim: :kafa: