Listbox'dan Excel'e kayıt

[fehdur]

Aşağıdaki kod ile listbox1 deki veriye çift tıklayarak excel sayfasına kayıt yapmak istiyorum ama çalışmıyor.Kodlarda "Mutlu" değişkeni yerine rakam yazarsam bu seferde sadece birinci satıra kayıt yapıp sonraki satırlara kayıt yapmıyor.Yardımlarınızı bekliyorum.


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

mutlu = Sheets("sayfa").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("sayfa").Cells(mutlu, "L") = ListBox1.List(ListBox1.ListIndex, 0)
Sheets("sayfa").Cells(mutlu, "M") = ListBox1.List(ListBox1.ListIndex, 1)
Sheets("sayfa").Cells(mutlu, "N") = ListBox1.List(ListBox1.ListIndex, 2)
Sheets("sayfa").Cells(1, "O") = ListBox1.List(ListBox1.ListIndex, 3)
Sheets("sayfa").Cells(mutlu, "P") = ListBox1.List(ListBox1.ListIndex, 4)

 

[byfika]

Merhabalar,
Kod çalışıyor.
Sheets("sayfa").Cells(1, "O") = ListBox1.List(ListBox1.ListIndex, 3) buradaki 1 satır numarasıdır. listbox daki hangi satırı çift tıklarsanız, tıkladığınız satırdaki O sütununa denk gelen veriyi O1 e kayıt eder. Yani tıklayarak kaydettiğniz satırın O1 den sonraki satırlarda O1 dışındaki O sütunundaki hücreler boş kalır.

Kayıt yaptığınız sayfanın ismi "sayfa" mı?
Sheets("sayfa"). ?????

Örnek dosyayı inceleyiniz.

 

[fehdur]

Gönderdiğiniz userformun aynısını dosyama kopyaladım ama yine çalişmadı.Kayıt yaptığım sayfanın adı sayfa.Yalnız listbox'ın veri aldığı sayfa farklı ve bilgiler 15.satırdan başlıyor onunla ilgisi olabilirmi.Listbox bilgileri "Anasayfa" adlı sayfadan alıyor düzenlemeyi ona göre yapmama rağmen çalıştıramadım.

 

[fehdur]

Üst satırı aşağıdaki şekilde değiştirince kayıt yaptı ama bu seferde tek satıra kayıt yapıyor alt alta kayıt yapmıyor.
mutlu = Sheets("Anasayfa").Cells(Rows(15).Count, "A").End(3).Row + 1