ListBox ve aktarma

[bote.burcu]

benim sorum belki bunlardan basit olacak ama bunlara benzer bişey... şimdi bir text kutusu ve buton var.. text kutusunun içine yazılanı butonla excel sayfasına yazdırıyorum. ama istenilen text kutusuna her yazılan sırayla kendinden öncekinin altına yazılacak.. kolay belki ama bilmediğimden mantık yürütemedim yardım edebilirmisiniz?

 

[bedersu]

Private Sub CommandButton1_Click()
aa = WorksheetFunction.CountA(Range("A:A"))
Cells(aa + 1, 1) = TextBox1
End Sub

 

[bote.burcu]

Private Sub CommandButton1_Click()
aa = WorksheetFunction.CountA(Range("A:A"))
Cells(aa + 1, 1) = TextBox1
End Sub

çok tşk ederim yardımın için... :hihoho: :hihoho: