UserForm'da Kayıt Yaparken Haftasonuna Denk Geliyorsa Uyarı

[Astalavista58]

Merhabalar herkese hayırlı pazarlar dilerim. Bu kod ile TextBox1'deki tarih Cumartesiye denk geliyorsa uyarı veriyor ancak, Pazar gününe denk gelince de aynı şekilde uyarı vermesini istiyorum. Tekrardan aynı kodları pazara mı uyarlayabilirim ancak daha kısa yolu vardır diye düşünüyorum

If Weekday(TextBox1.Text) = Weekday(vbSaturday & vbSunday) Then
If Weekday(TextBox1.Text) = Weekday(vbSaturday) or (vbSaturday) Then
şeklinde denedim ama bir sonuç alamadım.

If Weekday(TextBox1.Text) = Weekday(vbSaturday) Then
    If MsgBox("Sevk tarihi haftasonuna denk geliyor yine de eklemek istiyor musunuz?", vbYesNo + vbCritical) = vbNo Then
    TextBox1 = ""
    TextBox1.SetFocus
    Exit Sub
    End If
End If

 

[muygun]

merhaba;
If Weekday(TextBox1.Text, 2) >= 6 Then

şeklinde deneyin.
İyi çalışmalar.

Not:
Weekday değeri;
Pazartesi=1
Salı=2
...
Cumartesi=6
Pazar=7

 

[Astalavista58]

merhaba;
If Weekday(TextBox1.Text, 2) >= 6 Then

şeklinde deneyin.
İyi çalışmalar.

Not:
Weekday değeri;
Pazartesi=1
Salı=2
...
Cumartesi=6
Pazar=7

Çok teşekkür ederim hocam