Çözüldü Makro butonu sabah saat 07:00 ile akşam saat 19:00 arası çalışmasın.

[ptcsite]

Ben bir butona makro atadım bu butona basılınca eğer gün içinde saat mesela 13:30 ise akşam saat 19:00 dan sonra deneyiniz uyarısı alsın. Ama saaat 19:00 dan ertesi gün saat 07.00 a kadar tıklayınca makro aktif olarak işlemi yapabilsin.
Örnek:

Sub Calistir()

Zaman = Format(Now, "hh:mm")

If "09:40" < Zaman < "19:00" Then             <<<<<<Bu şekilde yazınca olmuyor

MsgBox "Saat 19:00 'u bekleyin."

ElseIf Range("C3").Value = Range("D3").Value Then

MsgBox "İşlem yapılmış, Yarın tekrar kayıt alınız."

Else

    Range("G2:G54").Select
    Selection.ClearContents
    Range("F2:F54").Select
    Selection.Copy
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
End If
End Sub

 

[ÖmerBey]

Merhaba,
Deneyiniz.

If Time > TimeValue("07:00") And Time < TimeValue("19:00") Then

 

[ptcsite]

Teşekkür ederim

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...