Texbox taki verileri Listbox a aktarmak

[jacckhal]

Texbox taki verileri buton aracılığı ile Listboxa aktarmak istiyorum ama kaydetmeyecek.
Sonrasında Listebox daki verilerin tamamını rapor aracılığı ile çıktı almak istiyorum yardım ederseniz çok memnun olacağım teşekkürler...

 

[omerceri]

Sn jacckhal
Örnek bir dosya eklerseniz. listbox taki verilere göre mi? yoksa list boxtaki verilerle mi? rapor oluşturacaksınız. Ona göre bir çözüm önerilebilinir.

 

[Excelmy]

Texbox taki verileri buton aracılığı ile Listboxa aktarmak istiyorum ama kaydetmeyecek.

TextBox'dan ListBox'a almak için ;

Private Sub CommandButton1_Click()
Sutun = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(Sutun, 0) = TextBox1.Text
ListBox1.List(Sutun, 1) = TextBox2.Text
End Sub

Sonrasında Listebox daki verilerin tamamını rapor aracılığı ile çıktı almak istiyorum.

ListBox'dan sayfaya aktarmak için ;

Private Sub CommandButton2_Click()
Dim str As Long
cx = ListBox1.ListCount
For c = 2 To cx + 1
str = Worksheets("Sayfa1").Range("a65536").End(3).Row + 1
Worksheets("Sayfa1").Range("A" & str) = ListBox1.Column(0, c - 2)
Worksheets("Sayfa1").Range("B" & str) = ListBox1.Column(1, c - 2)
Next
End Sub

TextBox, ListBox ve CommandButton kendi dosyanıza uyarlayınız.

yardım ederseniz çok memnun olacağım teşekkürler...