herkese iyi akşamlar.
Çalışma sayfasına textboxa aşağıdaki kodu ekledim. Textboxa ilk veri okutuyorum ikinci veriyi okuttuğumda arkasına ekleyip aktarıyor. ilk veri girdikten sonra ikinci veri girilirken textboxun sıfırlanmasını istiyorum.
Umarım anlatabilmişimdir.
Saygılar.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
say = WorksheetFunction.CountA([A1:A65536])
Cells(say + 1, 1) = TextBox1
End If
End Sub
örnek dosya ekte
Çalışma sayfasına textboxa aşağıdaki kodu ekledim. Textboxa ilk veri okutuyorum ikinci veriyi okuttuğumda arkasına ekleyip aktarıyor. ilk veri girdikten sonra ikinci veri girilirken textboxun sıfırlanmasını istiyorum.
Umarım anlatabilmişimdir.
Saygılar.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
say = WorksheetFunction.CountA([A1:A65536])
Cells(say + 1, 1) = TextBox1
End If
End Sub
örnek dosya ekte
