Formda Textbox da İşlem

[hlojan]

Excelde 2 Tane textbox um var.

Textbox 1 ve Text Box 2 . Textbox1 veri girip entera basınca Textbox 2 ye geçiyor. Textbox2 de enter a basınça textbox 1 e geçiyor.

Commandbutton koymadan Textbox2 den 1 e geçerken ( Textbox2 ye veri girdikten sonra entera basınca )

Textbox 1 ve textbox 2 yi A ve b sütunlarında en son boş satıra aktarsın
Textbox 1 ve textbox 2 yi temizlesin
textbox 1 seçili kalsın ( yazı yazmaya musaid )


Yardımlarınızı bekliyorum
Örnek Dosya ekte

 

[msoauy]

Merhaba,

Melesa TextBox2 için AfterUpdate olayı yapılabilir.

Private Sub TextBox2_AfterUpdate()
    lr = Application.WorksheetFunction.CountA(Range("A:A")) + 1
    Cells(lr, 1) = TextBox1.Text
    Cells(lr, 2) = TextBox2.Text
    TextBox2.Text = ""
    TextBox1.Text = ""
End Sub