Değerli Arkadaşlar;
If Left(Txtbugun.Value, 5) = "31.01" Or "28.02" Or "31.03" Or "30.04" Or "31.05" Or "30.06" Or "31.07" Or "31.08" Or "30.09" Or "31.10" Or "30.11" Or "31.12" Then
acıklama = "Bugün" & Chr(13) & Txtbugun.Value & Chr(13) & "Aylık Raporu Göndermeyi UNUTMA"
dugme = vbOKOnly + vbCritical + vbDefaultButton1
baslik = "Aysonu"
MsgBox acıklama, dugme, baslik
Else
acıklama = "Bugün" & Chr(13) & Txtbugun.Value & Chr(13) & "Hayırlı İşler"
dugme = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "Tarih"
MsgBox acıklama, dugme, baslik
End If
şeklinde bir kodum var.
Ancak OR kullandığımda kod hata veriyor. Sadece tek kriter verdiğim de hatasız çalışıyor. bu kod userform un initilize olayında.
yani userform açıldığında eğer ayın son günü ise ay sonu raporunu göndermek için bir hatırlatma mesajı vermesini istiyorum.
Ãimdiden teşekkürler
If Left(Txtbugun.Value, 5) = "31.01" Or "28.02" Or "31.03" Or "30.04" Or "31.05" Or "30.06" Or "31.07" Or "31.08" Or "30.09" Or "31.10" Or "30.11" Or "31.12" Then
acıklama = "Bugün" & Chr(13) & Txtbugun.Value & Chr(13) & "Aylık Raporu Göndermeyi UNUTMA"
dugme = vbOKOnly + vbCritical + vbDefaultButton1
baslik = "Aysonu"
MsgBox acıklama, dugme, baslik
Else
acıklama = "Bugün" & Chr(13) & Txtbugun.Value & Chr(13) & "Hayırlı İşler"
dugme = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "Tarih"
MsgBox acıklama, dugme, baslik
End If
şeklinde bir kodum var.
Ancak OR kullandığımda kod hata veriyor. Sadece tek kriter verdiğim de hatasız çalışıyor. bu kod userform un initilize olayında.
yani userform açıldığında eğer ayın son günü ise ay sonu raporunu göndermek için bir hatırlatma mesajı vermesini istiyorum.
Ãimdiden teşekkürler