Soru Textbox ile hücreye yazdırdığım tarihi formülüm okumuyor

[doukan84]

Arkadaşlar kendime işlerimin takibi için ufak bir ajanda-hatırlatma şeklinde bir dosya oluşturdum. tarih bilgisini elle girdiğim zaman ilk açılışta o tarih bugünün tarihi ise bana hatırlatıyor ama userform üzerinden textbox ile girdiğim zaman tarihi görmüyor. Dosya ekledim işin içinden çıkamadım. birde bu bilgileri msgbox ile gösteriyorm userform ile gösterme şansım var mı onu soracaktım

 

[Orion1]

Arkadaşlar kendime işlerimin takibi için ufak bir ajanda-hatırlatma şeklinde bir dosya oluşturdum. tarih bilgisini elle girdiğim zaman ilk açılışta o tarih bugünün tarihi ise bana hatırlatıyor ama userform üzerinden textbox ile girdiğim zaman tarihi görmüyor. Dosya ekledim işin içinden çıkamadım. birde bu bilgileri msgbox ile gösteriyorm userform ile gösterme şansım var mı onu soracaktım

Böyle olacak.

ActiveCell.Offset(0, 2).Value = CDate(TextBox2.Text)
ActiveCell.Offset(0, 3).Value = CDate(TextBox3.Text)

 

[doukan84]

Böyle olacak.

ActiveCell.Offset(0, 2).Value = CDate(TextBox2.Text)
ActiveCell.Offset(0, 3).Value = CDate(TextBox3.Text)

Teşekkür ederim şimdi oldu. Birde bu msgbox uyarı kısmını nasıl userform ile gösterebilirim acaba? ilk hesap açtığım zamanda sen yardımcı olmuştun aradan yıllar geçti dejavu oldum..

 

[Orion1]

Dosyanız ektedir.

 

[doukan84]

Eline sağlık tam olarak buydu.. Tekrardan teşekkür ederim

 

[Orion1]

Eline sağlık tam olarak buydu.. Tekrardan teşekkür ederim

Rica ederim.
İyi çalışmalar.

 

[Orion1]

Rica ederim.
İyi çalışmalar.

Textbox2 ve textbox3 e girilen değerleri kod ile kontrol ediniz.
Eğer tarih değilse uyarı verip prosedürü sonlandırsın.
Yoksa programınız hataya düşer ve çöker.

 

[doukan84]

Textbox2 ve textbox3 e girilen değerleri kod ile kontrol ediniz.
Eğer tarih değilse uyarı verip prosedürü sonlandırsın.
Yoksa programınız hataya düşer ve çöker.

nasıl bir kod yazmam gerek

 

[Orion1]

Buyurun.

Private Sub CommandButton1_Click()
If Not IsDate(TextBox2.Value) Then
    MsgBox "Lütfen Hatırlatma tarihini doğru giriniz!", vbCritical, "UYARI"
    TextBox2.SetFocus
    Exit Sub
End If
If Not IsDate(TextBox3.Value) Then
    MsgBox "Lütfen işin tarihini doğru giriniz!", vbCritical, "UYARI"
    TextBox3.SetFocus
    Exit Sub
End If