Form üzerinde tarih toplamı

[ferhatgurbuz]

TextBox6 da aşağıdaki kod ile günlük tarihi alıyorum.
Benim istediğim "Textbox7" ye de "Textbox6"daki tarihin üzerine 15 gün eklenip tarih formatı şeklinde gözükmesi


Örnek verecek olursak bugün kü tarhi 03.10.2010 + 15 gün eklenip 18.10.2010 şeklinde TextBox7 deki form üzerinde gözükmesi


TextBox6 = Format(Date, "dd.mm.yyyy")

 

[uzmanamele]

merhaba

bunu deneyiniz.
TextBox7= Format(TextBox6.value+15, "dd.mm.yyyy")

 

[ferhatgurbuz]

TextBox6 için olan kod aşağıdaki kodun içindeydi. sizin vermiş olduğunuz kodu nereye yapıştırmam gerekiyor. yardımcı olursanız sevinirim.


Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Staj_Belgesi!C102:C125"
ComboBox2.RowSource = "Staj_Belgesi!E102:E125"
TextBox6 = Format(Date, "dd.mm.yyyy")
End Sub

 

[uzmanamele]

merhaba
bunu deneyiniz

Private Sub TextBox6_Change()

 

[ferhatgurbuz]

örnek dosya

Bu şeklide yapamayacağım. Örnek dosya üzerinde yardım ederseniz sevinirim.

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox7.Text = ""
TextBox7.Text = Format(CDate(TextBox6.Text) + 15, "dd.mm.yyyy")
End Sub

 

[assenucler]

Hata iletisi..

Sayın EvrenGizlen;

Günaydın. İyi haftalar ve hayırlı işler..

"Rapor" sayfasında "Rapor Al" a tıkladığımda aşağıdaki hata iletisini alıyorum.

Office 2007'den olabilir mi?

Teşekkürler..