ListBox Seçilen satır sayfaya yazılsın

[cocoa35]

Merhaba ve iyi akşamlar üstatlar; ek'li örnek dosyada ListBox'da hangi satırı seçmişsem sadece o satır "Bakımarac" sayfasına vede 1.satıra yazılmasını istiyorum, başka seçim yaptığımda sayfaya yazılan silinsin aynı yere yeni seçilen satır yazılsın istiyorum. Örnekte Listbox'da seçtiğim tek satır değil hepsi sayfaya yazılıyor eğer öylede olsa daima seçtiğim satır A1 den başlayıp sayfaya yazılsın. Bu konuda yardım lütfen

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Private Sub ListBox1_Click()
With ListBox1
    For j = LBound(.List) To UBound(.List)
        Sheets("Bakımarac").Cells(1, j + 1) = .List(.ListIndex, j)
    Next j
End With

 

[cocoa35]

Sn dEdE kısmen olmuş ancak Listboxdaki sadece baştan 2 kolonu yazıyor sayfaya halbuki toplam 8 kolon var onları yazmıyor!

 

[dEdE]

Örnek dosyanız ilişikte.
Sadece 8. kolonu yazmıyordu. onu da düzelttim. Kodlarda bazı değişiklikler yaptım, daha sade oldu.

 

[cocoa35]

Teşekkürler dEdE benim programıma adaptasyonda ufak bir sorun ile karşılaştım ama çözdüm oldu iyi akşamlar