OR ile ilgili

[ik]

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

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e49dc0eb6b]Private Sub UserForm_Initialize()
songun = DateSerial(Year(Date), Month(Date) + 1, 1) - 1
If Date = songun Then
acıklama = "Bugün" & Chr(13) & Date & 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) & Date & Chr(13) & "Hayırlı İşler"
dugme = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "Tarih"
MsgBox acıklama, dugme, baslik
End If
End Sub[/vb:1:e49dc0eb6b]

 

[Serpily]

Levent bey size olması gereken kodu hazırlamış. Ama sizin OR neden çalışmıyor hala merak ediyor iseniz nedeni yazım şeklinizde.

If ten sonra değişken adlarını hep yazmalısınız

Left(Txtbugun.Value, 5) = "31.01" Or Left(Txtbugun.Value, 5) ="28.02" Or Left(Txtbugun.Value, 5) ="31.03" Or Left(Txtbugun.Value, 5) ="30.04" Or Left(Txtbugun.Value, 5) ="31.05" ......

Levet beyin kodu daha kullanışlı değil mi?

 

[ik]

Teşekkürler

Arkadaşlar