otomatik tarih tamamlama ?

[igultekin2000]

iyi günler;
liste hazırlama formunda tarihin otomatik tamamlamasını istiyorum, kodları buldum ama adapte edemedim. yani 02.03 yazıp enterlediğimde 2016 otomatik yazmasını istiyorum.
http://s9.dosya.tc/server/pem171/ind.list_v1.02.rar.html
teşekkür ederim.

 

[YUSUF44]

Userformdaki kodu aşağıdaki gibi yapınca ekranda ##.##.2016 görünüyor ve 02.03 yazdığınızda 01.03.2016 yazmış oluyorsunuz:

Private Sub UserForm_Initialize()
With TextBox1
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "##.##.[COLOR="Red"][B]2016[/B][/COLOR]"
.SelStart = 0
.SelLength = 1
End With
ComboBox1.RowSource = "UNVANLAR!A2:A" & Sheets("UNVANLAR").Cells(65536, "A").End(xlUp).Row
ComboBox2.RowSource = "HIZMET!A2:A" & Sheets("HIZMET").Cells(65536, "A").End(xlUp).Row
End Sub

 

[igultekin2000]

Userformdaki kodu aşağıdaki gibi yapınca ekranda ##.##.2016 görünüyor ve 02.03 yazdığınızda 01.03.2016 yazmış oluyorsunuz:

Private Sub UserForm_Initialize()
With TextBox1
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "##.##.[COLOR="Red"][B]2016[/B][/COLOR]"
.SelStart = 0
.SelLength = 1
End With
ComboBox1.RowSource = "UNVANLAR!A2:A" & Sheets("UNVANLAR").Cells(65536, "A").End(xlUp).Row
ComboBox2.RowSource = "HIZMET!A2:A" & Sheets("HIZMET").Cells(65536, "A").End(xlUp).Row
End Sub

ilk kayıttın sonra ikinci kayıta geçince tarih kısmı komple silmeden tekrar tarih yazılamıyor, bu durumda yazın 2016' nın faydası olmuyor. her kayıtta tarih silinip yeni tarih yazılması gerekecek bu durumda her seferinde 2016' ya yazmak zorunda kalıyorum. o yüzden otomatik tarih olması tercih sebebimdir.

 

[YUSUF44]

Kaydet düğmesinin kodlarında bulunan

TextBox1 = Empty

kısmını aşağıdakiyle değiştirip dener misiniz?

With TextBox1
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "##.##.2016"
.SelStart = 0
.SelLength = 1
End With

 

[igultekin2000]

işlem tamam

Kaydet düğmesinin kodlarında bulunan

TextBox1 = Empty

kısmını aşağıdakiyle değiştirip dener misiniz?

With TextBox1
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "##.##.2016"
.SelStart = 0
.SelLength = 1
End With

teşekkürler çok kullanışlı olmuş