Tarih Uyarı

[askm]

Kolay gelsin. Ekteki excelde açıklamaya çalıştığım tarih araasında ise uyarı vermesi konusunda yardıma ihtiyacım var.

 

[vardar07]

Aşağıdaki kod işinizi görürmü?

Sub dene()
If Cells(2, "A") = "" Then MsgBox "G Tarihi Boş Kontrol ediniz.", vbInformation: Exit Sub
If Cells(2, "B") = "" Then MsgBox "Ç Tarihi Boş Kontrol ediniz.", vbInformation: Exit Sub
If Cells(2, "B") < Cells(2, "A") Then MsgBox "Ç Tarihi G Tarih'inden Küçük olamaz", vbInformation: Exit Sub
If Cells(4, "B") > Cells(2, "A") And Cells(4, "B") < Cells(2, "B") Then
MsgBox "Sonuç aynen dediğiniz gibi", vbInformation
End If
End Sub

 

[askm]

Sayın Vardar yanlış anlattım sanırım. A2 mutlaka dolu B2 boş olabilir. Bunlar kriter. B4 ü bunlara göre değerlendirecek.
*B4 eğer a2 den küçük ise uyarı verme.
*B4 eğer A2 ile B2 arası ise uyarı ver.
*B2 boş ise B4 A2 den büyük ise uyarı ver. şeklinde.

Bir de bunları hücre olarak yazdım ama asıl textbox değerleri. Textbox da sorun olur mu.Aynı kodlar orda da çalışır diye düşünüyorum ama.
Aşağıdaki şekilde denedim.

if (textbox1<>"" and textbox2<>"") and (cdate8(textbox3)>=cdate(textbox1) and cdate(textbox3)<=cdate(textbox2)) then
msgbox ("uyarı 1")
elseif (textbox2="" and ((cdate(textbox3)>=cdate(textbox1)) then
msgbox ("uyarı 2")
end if

 

[vardar07]

Denermisiniz.

Private Sub CommandButton1_Click()
If TextBox2 <> "" And TextBox3 <> "" _
And TextBox3 > TextBox1 And TextBox3 < TextBox2 Then
MsgBox "uyarı 1"
ElseIf TextBox2 = "" And TextBox3 > TextBox1 Then
MsgBox "uyarı 2"
End If
End Sub