listbox yardım

[ahmett46]

slm
userformda oluşturduğum 2 adet listbox var. bunlara sayfa1 ve sayfa2 den veri alıyorum. listbox1 de üzerine tıkladığımda sayfa3 te a sütununa, listbox2 de üzerine tıkladığımda b sütununa yazdırmak istiyorum. ancak listbox 1 de tıkladıktan sonra mesela a1 hücresine yazdırdık, listbox 2 de 3 defa tıkladığımda b1,b2 ve b3 hücrelerine yazdırdıktan sonra listbox 1 de tekrar tıkladığımda a4 hücresine yazdırmak istiyorum. şimdiden yardımlarınız için teşekkürler

 

[sailorforever]

b sütununa yazdığın 1,2,3,4 diye a sütununa yazdığın b sütunu nerede kaldıysa oradan devam doğrumu?
excel sayfasında istediğin durumu elle yazıp eklersen yardımcı olurum.

 

[ahmett46]

hocam öncelikle teşekkür ediyorum. örnek dosya ekte dir.

 

[sailorforever]

sayfa1 ve sayfa2 nin a1 ile a20 hücreleri arasına 1 den 20 ye kadar sayı yaz ve listbox lara row source özelliğinden yükle,sonra aşağıdaki kodu kod tarafına yapıştır,kolay gelsin.

Private satır, bsatır As Integer

Private Sub ListBox1_Click()
satır = satır + 1
sayı = ListBox1.Value
Sheets("Sayfa3").Select
Cells(satır, 1) = sayı

End Sub

Private Sub ListBox2_Click()
bsatır = bsatır + 1
sayı = ListBox2.Value
Sheets("Sayfa3").Select
Cells(bsatır, 2) = sayı
satır = bsatır
End Sub

 

[ahmett46]

Hocam olmadı yada ben yapamadım dosyayı ekledim bi bakarsanız sevinirim

 

[sailorforever]

ekte gönderdiğim dosyayı incelerseniz sorun hallolacaktır sanırım,kolay gelsin

 

[ahmett46]

hocam 2003 yüklü dosyayı açmadı gönderdiğim dosyada yapamazmısınız teşekkürler ilginiz için

 

[sailorforever]

dosya boyutu büyük olduğundan yükleyemedim,özelden mail verirsen yollayım dosyayı,değişiklik isetersen bakarız yine,kolay gelsin

 

[ahmett46]

Arkadaşlar sorunumu çözemedim yardım bekliyorum