Seri Tarih Macrosu

[serinci]

Selamlar,

Seritarih formülünün Fonksiyon olarak tanımlanma yani kullanıcı tanımlı hale gelmesi için gereken kodlar nelerdir.

yapmak istediğim olay

3 Adet Textbox mevcut bunlardan 1.sine ay sayısı (12,15,24) vs. gibi değerler yazılacak, 2. texboxa başlangıç tarihi yazılacak (19.09.200) vs. 3. texboxun otomatik olarak seriay formülü ile hesaplanmasını istiyorum yani textbox2 + textbox1 olarak sonucun 3. textboxa yazılmasını nasıl sağlarım,

12 + 19.09.2007 = 19.09.2008 gibi

 

[serinci]

Biraz Deneme ile çözülüyormuş

Private Sub Bas_Tar_Change()
txtvade.Value = DateAdd("m", Vadeay - 1, Bas_Tar())
End Sub

 

[veyselemre]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(TextBox1.Text) And IsDate(TextBox2.Text) Then Call hesapla
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(TextBox1.Text) And IsDate(TextBox2.Text) Then Call hesapla
End Sub
Sub hesapla()
    TextBox3.Text = Format(DateSerial(Year(TextBox2), Month(TextBox2) + TextBox1, Day(TextBox2)), "dd.mm.yyyy")
End Sub