2 textbox.birine tarih girince diğerinde bir yıl sonraki tarih yazsın

[olymposss]

sn üstadlarım herkese iyi günler

uğraşıp yapamadığım bir problemi size sormayı uygun gördüm. yardımcı olursanız sevinirim.

iki adet textbox ım var. birine kasko başlangıç tarihini 09/03/2007 formatında el ile yazıyorum. istediğim diğer textbox ta otomatik olarak 09/03/2008 yazması.acaba mümkünmü?

herkese teşekkürler saygılar:yardim:

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = DateSerial(Year(TextBox1) + 1, Month(TextBox1), Day(TextBox1))
End Sub

 

[olymposss]

ben değerleri elle 03/03/2007 girdiğim zaman hata veriyor bu hatayı on error resume next ile çözdüm fakat yazan tarih 8/28/2008 çıkıyor. başka yolu varmı acaba?
ilginize teşekkür ederim saygılar

 

[olymposss]

çözdüm!

Private Sub TextBox5_Change()
On Error Resume Next
TextBox6 = Day(TextBox5) & "/" & Month(TextBox5) & "/" & (Year(TextBox5) + 1)
TextBox6 = Format(TextBox6, "dd/mm/yyyy")
End Sub

bu şekilde çalışıyor. herkese teşekkürler.saygılar:hey: