textboxdaki veriyi listboxdaki sütunun tamamına yazdırmak

[bilisim2010]

merhaba textbox1 deki rakamı yanına bir buton koyarak listboxda bulunan tüm verilerin r sütununa yazdırmak istiyorum ama sadece seçtiğimin r sine yazdırıyor???

sat = satisf.ListBox1.ListIndex + 1
Cevap = MsgBox("İskonto Eklensin mi?!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Sheets("SATİS").Select
Cells(sat, "r") = satisf.TextBox1067.Value
UserForm_Initialize

 

[hamitcan]

Listbox içine mi yazdırmak istiyorsunuz yoksa bir sayfa içine mi ? Bir örnek verirseniz daha çabuk cevap bulabilirsiniz.

 

[walabi]

sheets("SATİS").select kodununun devamına şuna benzer bir kod eklemeniz size yardımcı olabilir sanırım.

sonsat = Sheets("SATİS").Cells(Rows.Count, "A").End(3).Row

' Kod kaydetmeye hangi satırdan başlayacak, ve hangi satırda bitecek , koda bunu tanımlamanız gerekir.
For X = 2 To sonsat

Cells(X, "R") = satisf.TextBox1067.Value

Next X

 

[bilisim2010]

sheets("SATİS").select kodununun devamına şuna benzer bir kod eklemeniz size yardımcı olabilir sanırım.

sonsat = Sheets("SATİS").Cells(Rows.Count, "A").End(3).Row

' Kod kaydetmeye hangi satırdan başlayacak, ve hangi satırda bitecek , koda bunu tanımlamanız gerekir.
For X = 2 To sonsat

Cells(X, "R") = satisf.TextBox1067.Value

Next X

çözüldü hocam teşekkürler.