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

Katılım
27 Temmuz 2004
Mesajlar
19
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Katılım
27 Temmuz 2004
Mesajlar
19
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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
 
Katılım
27 Temmuz 2004
Mesajlar
19
İ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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Dosyanızdaki veriler yetersiz en azından listbox1 ve 2 de veri görünürse ona göre kodlama düzeltilebilir.
 
Katılım
27 Temmuz 2004
Mesajlar
19
Ü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

Katılım
5 Eylül 2005
Mesajlar
282
Excel Vers. ve Dili
Excel 2002 (Tr)
listbox verilerinin sayfaya aktarılması ile ilgili pek örnek yok. bunu da zor buldum. ancak kodları mantığını anlayamadım. karışık geldi.
 
Üst