Textbox a girilen her değeri commandbutton ile alt alta girme

[ertanatalar]

Herkese selamlar. textbox a girilen değeri commandbutton ile her tıklama ile A1,B1,C1,....... olarak alt alta sıralamak istiyorum. Yardımcı olur musunuz?

 

[YUSUF44]

Herkese selamlar. textbox a girilen değeri commandbutton ile her tıklama ile A1,B1,C1,....... olarak alt alta sıralamak istiyorum. Yardımcı olur musunuz?

A1, B1, C1 olarak aşağıdaki kodu:

Private Sub CommandButton1_Click()
yeni = Cells(1, Columns.Count).End(xlToLeft).Column + 1
If [A1] = "" Then yeni = 1
Cells(1, yeni) = TextBox1
End Sub

Herkese selamlar. textbox a girilen değeri commandbutton ile her tıklama ile A1,B1,C1,....... olarak alt alta sıralamak istiyorum. Yardımcı olur musunuz?

Alt alta sıralamak için aşağıdaki kodu:

Private Sub CommandButton1_Click()
yeni = Cells(Rows.Count, "A").End(3).Row + 1
If [A1] = "" Then yeni = 1
Cells(yeni, "A") = TextBox1
End Sub

Deneyiniz.

 

[ertanatalar]

A1, B1, C1 olarak aşağıdaki kodu:

Private Sub CommandButton1_Click()
yeni = Cells(1, Columns.Count).End(xlToLeft).Column + 1
If [A1] = "" Then yeni = 1
Cells(1, yeni) = TextBox1
End Sub

Alt alta sıralamak için aşağıdaki kodu:

Private Sub CommandButton1_Click()
yeni = Cells(Rows.Count, "A").End(3).Row + 1
If [A1] = "" Then yeni = 1
Cells(yeni, "A") = TextBox1
End Sub

Deneyiniz.

teşekkür ederim Yusuf bey