sirkülasyon
Altın Üye
- Katılım
- 10 Temmuz 2012
- Mesajlar
- 2,482
- Excel Vers. ve Dili
- 2021 LTSC TR
- Altın Üyelik Bitiş Tarihi
- 18-06-2026
Kod:
Private Sub TextBox12_Change()
If Len(TextBox12.Text) = 2 Then TextBox12.Text = TextBox12.Text & "."
If Len(TextBox12.Text) = 5 Then TextBox12.Text = TextBox12.Text & "."
If Len(TextBox12.Text) = 10 Then TextBox12.SetFocus
End Sub