Listboxtaki Verileri Sayfaya Aktarma

[ugurb]

4Adet TextBox, 1 Adet CommandButton ve 1 Adet ListBox olacak şekilde,
ListBox1 e Tutar
ListBox2 ye taksit sayısı
ListBox3 e tarih yazarak
Aşağıdaki kadları yazıp command butona tıkladığımda
ListBox a taksitlendirme yapıyor
Kod:
Private Sub CommandButton1_Click()
ListBox1.ColumnCount = 3
x = 0
For i = 1 To TextBox2
ListBox1.AddItem
ListBox1.Column(0, x) = i
ListBox1.Column(1, x) = Format(DateSerial(Year(TextBox3), Month(TextBox3) + i, Day(TextBox3)), "dd.mm.yyyy")
ListBox1.Column(2, x) = Val(TextBox1) / Val(TextBox2)
x = x + 1
Next
End Sub


Soru 1 :
ListBox1 deki verileri TextBox4 de yazan sayfaya (örneğin ALİ adında bir müşteri sayfasına) A9 hücresinden itibaren ilk boş satırdan başlayarak nasıl yazdırabilirim. A9 no B9 ödme tarihi C9 Miktarı
Soru2 :
TextBox1 ytl olarak nasıl biçimlendirebilirim yardımcı olursanız sevinirim

şimdiden herkese teşekkürler

 

[VKC]

Arkadaşlar merhaba benim sizlere bir sorum olacak excelde her bir sutuna rakamlar yazıldığında bunların hepsini topşu olarak işaretleyip ortalamak istediğimde bunu neden başaramıyorum bu konuda yardımcı olursanız sevinirim.Umarım derdimi anlatmıışımdır

 

[bedersu]

Merhaba sayın ugurb,

Aşağıdaki kodları kendinize uyarlayabilirsiniz:

Private Sub CommandButton1_Click()

a = ListBox1.ListCount
aa = WorksheetFunction.CountA(Sheets(TextBox1.Value).Range("A:A"))
For i = 1 To a
Sheets(TextBox1.Value).Cells(i + 9, aa + 1) = ListBox1.Column(0, i - 1)
Next

End Sub

 

[ugurb]

Sayın bedersu ilginize teşkkür ederim,

kodu çalıştırdım ama sadece listbox ta bulunan birinci sütunu aldı oysaki benim listbox ta üç sütun var ben diğer ikisini yazdıramıyorum , tekrar teşekkürler

 

[ugurb]

Private Sub CommandButton2_Click()

a = ListBox1.ListCount
aa = WorksheetFunction.CountA(Sheets(TextBox4.Value).Range("A:A"))
For i = 1 To a

Sheets(TextBox4.Value).Cells(i + 8, aa + 0) = ListBox1.Column(0, i - 1)
Sheets(TextBox4.Value).Cells(i + 8, aa + 1) = ListBox1.Column(1, i - 1)
Sheets(TextBox4.Value).Cells(i + 8, aa + 2) = ListBox1.Column(2, i - 1)


Next

End Sub

Yukarıdaki gibi ilave ederek hallettim

tşk

 

[bedersu]

Bu şekilde halletmeniz daha kalıcı olur;zaten dikkat ederseniz küçük bir fark işinizi gördü.
kolay gelsin.