textboxlarda formül???

[udentr2002]

merhaba arkadaşlar benim sorunum şu ;
mesala textbox1'e ben 01.01.2007 gibi bir tarih girdiğimde
textbox2 otomatik olarak 90 gün sonrasının tarihini gösterecek yani
textbox2'de yazılacak tarih 01.04.2007 olacak böyle bir kodu nasıl yazabilirim bilgisi olan varmı. Şimdiden ilgilenen arkadaşlarıma teşekkür ederim

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(Format(TextBox1, "00000") + 90, "dd/mm/yyyy")
End Sub

 

[emrexcel123]

dosya ektedir

eki inceler misiniz...

 

[udentr2002]

Sn emre ve hamit hocam

ikinizede ilginiz için teşekkür ederim yanlız iki kod da çalışmadı sanırım emre hocam senin kod benim pc de DTP ticker yüklü olmadığı için çalışmadı hamit hocam senişn kod ise çalışıyor yanlız textbox2 ye tarihi girip enterleadığımda textbox3 e tarihten daha farklı bir şey yazıyor
bu yüzden ekli dosyamı gönderiyorum Formun çalışması vede mantığı kısaca şöyle
Formu açtığımızda gelen sayfada Kontrol noktası oluştur butonuna tıkladığımızda görünen checkboxlardan kaç tane kontrol tarihi oluşturmak istiyorsak o kadarını işartleyip seçili tarihleri göster butonuna tıklıyoruz ve o kadar sayıda kontrol tarihi oluşturacağımız şekilde textboxlar açıyor textbox 2 ye ben tarih girdiğimde mesala 01.01.2007 tarihini girdiğimde textbox3 den başlayarak 90 gün (3 ay) arttırarak diğer textboxlara yazmasını istiyorum Bunu nasıl yapabilriz gönderdiğim ekli dosyadan incceleyip yapabilrseniz çok makbule geçecektir şimdiden teşekkürler vede ilgilenen diğer tüm arkadaşlarıma

 

[udentr2002]

özür dosyayı göndermeyi unuttumm

Dosyayı yeniden yolluyorumm

 

[udentr2002]

???

Yardım edebilecek bir hocam yokmu lütfenn

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = "" Then Exit Sub
TextBox2 = Format(TextBox2, "dd/mm/yyyy")
For a = 3 To 21
Controls("TextBox" & a) = Format(CLng(CDate(TextBox2)) + 90 * (a - 2), "dd/mm/yyyy")
Next
End Sub