Textbox tarihe gün ekleme

[Arif Akduman]

İyi çalışmalar Arkadaşlar.

Örnek dosyada UserForm üzerindeki Textbox1'e yazdığım tarihe Combobox1 den seçtiğim günün eklenerek Textbox2'ye yazılmasını istiyorum. Sitede daha önceden bu tarz konular açılmış fakat bu konuları kendi yapmak istediğim şekile uygulayamıyorum. Tekrar aynı tarz konu açmış olduysam kusura bakmayın.

Yardımlarınız için şimdiden teşekkür ederim.

Textbox1'e tarih arasına "/" çizgisini koymak için forumda bulduğum kodları ekledim.

Private Sub TextBox1_Change()
If TextBox1.Tag = "1" = True Then Exit Sub
If Len(TextBox1) = 2 Then
If InStr(TextBox1, "/") = 0 Then TextBox1 = TextBox1 & "/"
ElseIf Len(TextBox1) = 5 Then
If Len(TextBox1) - Len(Application.Substitute(TextBox1, "/", "")) < 2 Then
TextBox1 = TextBox1 & "/"
End If
End If
End Sub

Ekli dosyayı görüntüle 194237

 

[Korhan Ayhan]

Eklediğiniz dosyaya erişimde sorun var.

Aşağıdaki kodu deneyiniz.

Private Sub ComboBox1_Change()
    If Len(TextBox1) = 10 Then
        TextBox2 = CLng(CDate(TextBox1)) + Val(ComboBox1)
        TextBox2 = Format(TextBox2, "dd/mm/yyyy")
    End If
End Sub

Private Sub TextBox1_Change()
    If TextBox1.Tag = "1" = True Then Exit Sub
    If Len(TextBox1) = 2 Then
        If InStr(TextBox1, "/") = 0 Then TextBox1 = TextBox1 & "/"
    ElseIf Len(TextBox1) = 5 Then
        If Len(TextBox1) - Len(Application.Substitute(TextBox1, "/", "")) < 2 Then
            TextBox1 = TextBox1 & "/"
        End If
    End If
End Sub

 

[Arif Akduman]

Hocam ellerinize sağlık butonsuz da olup olmayacağını bilemediğim için buton koymuştum aslında düşündüğüm gibi tam istediğim şekilde olmuş. Çok teşekkürler.

Sizden bir ricam daha olacak bunu biraz daha geniş düşünmüş olsak, formun üzerine tekrardan düzenleme yaptım 3 tane textbox ve 1 tane combobox ve 1 tane Buton koydum. Bunu textbox1'deki tarihe textbox2'deki gün sayısını eklemesini ve combobox1'deki gün sayısınıda çıkarıp Textbox3'e Buton aracılığıyla yazdırabilirmiyiz. Şimdiden teşekkürler.
Ekli dosyayı görüntüle Kitap1.xls