TextBox1 Tarih ve TextBox2 deki Sayıyı Tarih Olarak TextBox3'e yazmak

[gora]

Öncelikle formunuzdan çok istifade ettiğimi belirteyim.
Bilgilerini ,birikimlerini, el emeği göz nuru harcayarak yarattıkları belgeleri, karşılık beklemden paylaşan herkeze teşekkür ederim.

Siteden aldığım kaynalarla oluşturduğum, Personel veri formunda
TextBox1 (tarih) girip + TextBox2 (Sayı)' girdiğimde Tab veya enter tuşuna basınca,
TextBox1 tarih ile + TextBox2 deki sayıyı toplayarak=TextBox3 Tarih olarak yazabileceğim bir Vba kodu oluşturamadım, bulamadım. Ne denediysem olmadı.

çalışma yaptığım Personel Data xls belgesini elkedim.
Yardımcı olursanız çok sevinirim.

Yardımlarını esirgemeyenlere şimdiden teşşekkür ederim.

 

[suleyman242]

TextBox1 tarih ile + TextBox2 deki sayıyı toplayarak=TextBox3 Tarih olarak yazabileceğim bir Vba kodu oluşturamadım, bulamadım. Ne denediysem olmadı.

şimdiden teşşekkür ederim.

excelde sayfa üzerinde toplayıp sonucu userforma alabilirsin
[A1]=20.04.2013
[B1]=5
[C1]=[A1]+[B1]
sonuç 25.04.2013
yada ;

Private Sub CommandButton1_Click()
Set b = Worksheets("Sayfa1").Range("c1")
Set c = Worksheets("Sayfa1").Range("A1")
Z = 5
c.NumberFormat = "m/d/yyyy"
b.NumberFormat = "m/d/yyyy"
b = Z + c
MsgBox b
End Sub

 

[gora]

excelde sayfa üzerinde toplayıp sonucu userforma alabilirsin
[A1]=20.04.2013
[B1]=5
[C1]=[A1]+[B1]
sonuç 25.04.2013
yada ;

Private Sub CommandButton1_Click()
Set b = Worksheets("Sayfa1").Range("c1")
Set c = Worksheets("Sayfa1").Range("A1")
Z = 5
c.NumberFormat = "m/d/yyyy"
b.NumberFormat = "m/d/yyyy"
b = Z + c
MsgBox b
End Sub

Hocam yardımınız ve emeğiniz için teşekkür ederim,

formülü daha önce denemiştim, User form da kaydet dediğim zaman formül gidiyor.

Ben formülden ziyade, Vba kodu ile herhangi bir butona tıklatmadan, TextBox 1 izne ayrılma ve TextBox izin gün sayısını girdiğimde, = tab veya enter tuşu ile direkt TextBox3'te toplam almasını istiyorum.

 

[suleyman242]

Hocam yardımınız ve emeğiniz için teşekkür ederim,

formülü daha önce denemiştim, User form da kaydet dediğim zaman formül gidiyor.

Ben formülden ziyade, Vba kodu ile herhangi bir butona tıklatmadan, TextBox 1 izne ayrılma ve TextBox izin gün sayısını girdiğimde, = tab veya enter tuşu ile direkt TextBox3'te toplam almasını istiyorum.

böyle bir çalışma hazırladım işine yararmı ?

Private Sub TextBox2_Change()
On Error GoTo 10
tarih = CDate(Format(TextBox1.Value, "dd.mm.yyyy"))
Z = TextBox2.Text * 1
tarih2 = Z + tarih
TextBox3.Value = Format(tarih2, "dd.mm.yyyy")
10
End Sub

 

[gora]

böyle bir çalışma hazırladım işine yararmı ?

Private Sub TextBox2_Change()
On Error GoTo 10
tarih = CDate(Format(TextBox1.Value, "dd.mm.yyyy"))
Z = TextBox2.Text * 1
tarih2 = Z + tarih
TextBox3.Value = Format(tarih2, "dd.mm.yyyy")
10
End Sub

Yaramaz mı üstad, vallahi nokta atışı yapmışsın. Emeğine sağlık.
Ne kadar teşekkür etsem azdır. Emeğine yüreğine sağlık.