Listboxtaki verileri çalışma sayfasına nasıl aktarırım?

[ugurb]

bir user form üzerinde bulunan iki adet listbox ım ve bir adet command butonum var.
listbox1 4 sütun
listbox2 3 sütundan oluşmakta
command butona tıkladığımda listbox1deki verileri I14 den başlayıp boş olan enson stıra kayıt ederken listbox2deki verileride b14 denbaşlayıp en son satıra maro yardımı ile nasıl kayıt edebilirim
şimdiden herkese teşekkür ediyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:d05f588bd6]sat1=listbox1.listcount
sut1=listbox1.columncount
sonsat1=[i65536].end(3).row+1
range(cells(sonsat1,"i"),cells(sat1+sonsat1,sut1+9))=listbox1.list

sat2=listbox2.listcount
sut2=listbox2.columncount
sonsat2=[b65536].end(3).row+1
range(cells(sonsat2,"b"),cells(sat2+sonsat2,sut2+2))=listbox2.list
[/vb:1:d05f588bd6]

 

[ugurb]

Sayın leventm ilginize çok teşekkür ediyorum kodları denedim
listbox 2 deki veriler istedğim gibi boş son satırdan itibaren başlayarak sıralandı fakat en son satıra #yok olarak bir ilave yaptı
listbox1 deki verileride ı1021 den itibaren başına yine yok ilave ederek yazdı ve 2.de 2000 satır sonra yeni kayıt yaptı.
tekrar teşekkür ediyor yardımlarınızı bekliyorum

 

[Levent Menteşoğlu]

range(cells(sonsat1,"i"),cells(sat1+sonsat1,sut1+9))=listbox1.list
range(cells(sonsat2,"b"),cells(sat2+sonsat2,sut2+2))=listbox2.list


Yukarıdaki satırları aşağıdakiler ile değiştirin.


range(cells(sonsat1,"i"),cells(sat1+sonsat1-1,sut1+9))=listbox1.list

range(cells(sonsat2,"b"),cells(sat2+sonsat2-1,sut2+2))=listbox2.list

 

[davut]

wrw

 

[H.Ç.Ç]

wrw

?????????

 

[ugurb]

İyice karıştırdım bir türlü beceremedim dosyayı ekte gönderiyorum. Amacım satış bilgileri formunda yaptıklarımı müşteri kartına aktarmaktı.
tekrar teşekkür ediyorum. Anlayamadığınız bir yer olursa cevaplarım

 

[Levent Menteşoğlu]

Dosyanızdaki veriler yetersiz en azından listbox1 ve 2 de veri görünürse ona göre kodlama düzeltilebilir.

 

[ugurb]

Ürünleri miktarı ve fiyatı yazarak ekle butonuyla listbox1 e ekletiyoruz.
Tutarı, peşinatı ve taksit sayısını yazarak hesapla butonuylada listbax2 ye verileri ekliyoruz. Saygılar.

 

[mnz]

listbox verilerinin sayfaya aktarılması ile ilgili pek örnek yok. bunu da zor buldum. ancak kodları mantığını anlayamadım. karışık geldi.