Mahmut Bayram
Özel Üye
- Katılım
- 25 Haziran 2005
- Mesajlar
- 1,778
- Excel Vers. ve Dili
- 2016 Excel Tr
Ãöyle bir kod yazdım fakat mesaj alamadım. Acaba nerede hata yapıyorum.
Private Sub CommandButton1_Click()
saat = Now()
isaret = 0
Text1 = Format(saat, "hh")
If Text1 = "00" Then
Text1 = "0"
End If
For gunduz = 6 To 12
If Text1 = gunduz And isaret = 0 Then
MsgBox "Günaydın"
isaret = 1
End If
For ogle = 12 To 17
If Text1 = gunduz And isaret = 0 Then
MsgBox "İyi Ã?ğlenler"
isaret = 1
End If
For aksam = 17 To 24
If Text1 = aksam And isaret = 0 Then
MsgBox "İyi Akşamlar"
isaret = 1
End If
For gece = 0 To 6
If Text1 = gece And isaret = 0 Then
MsgBox "İyi Geceler"
isaret = 1
End If
Next gece
Next aksam
Next ogle
Next gunduz
End Sub
Private Sub CommandButton1_Click()
saat = Now()
isaret = 0
Text1 = Format(saat, "hh")
If Text1 = "00" Then
Text1 = "0"
End If
For gunduz = 6 To 12
If Text1 = gunduz And isaret = 0 Then
MsgBox "Günaydın"
isaret = 1
End If
For ogle = 12 To 17
If Text1 = gunduz And isaret = 0 Then
MsgBox "İyi Ã?ğlenler"
isaret = 1
End If
For aksam = 17 To 24
If Text1 = aksam And isaret = 0 Then
MsgBox "İyi Akşamlar"
isaret = 1
End If
For gece = 0 To 6
If Text1 = gece And isaret = 0 Then
MsgBox "İyi Geceler"
isaret = 1
End If
Next gece
Next aksam
Next ogle
Next gunduz
End Sub