Makro ile makro çalıştırmak

[cemilbenek]

Herkese Kolay Gelsin
Benim sorunum Haftanın beş günü sabah saat 9.30 ve akşam 17:00 de otamatik olarak Makro çalışsın
sabah 9:30 da bu kodu çalıştırsın
Sub kursil()
Range("O3:O4").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("M4").Select
End Sub

akşam 17:00 de bu kodu çalıştırsın
Sub kurgir()
Range("L3").Select
Selection.Copy
Range("O3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L4").Select
Application.CutCopyMode = False
Selection.Copy
Range("O4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M4").Select
End Sub
şimdiden ilginiz için teşekür ediyorum
İyi çalışmalar

 

[Greenblacksea53]

Sub SabahMakro()
    If TimeValue(Now) = TimeValue("09:30:00") Then
        Call kursil
    End If
End Sub

Sub AkşamMakro()
    If TimeValue(Now) = TimeValue("17:00:00") Then
        Call kurgir
    End If
End Sub

Yukaridaki kodları mödüle ekle

Private Sub Workbook_Open()
    Application.OnTime TimeValue("09:30:00"), "SabahMakro"
    Application.OnTime TimeValue("17:00:00"), "AkşamMakro"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime TimeValue("09:30:00"), "SabahMakro", , False
    Application.OnTime TimeValue("17:00:00"), "AkşamMakro", , False
    On Error GoTo 0
End Sub

Bu kodları Wookbook nesnesine ekleyin

 

[cemilbenek]

hocam ben bu kodu çalıştıramadım

 

[Greenblacksea53]

hocam ben bu kodu çalıştıramadım

Dosyanızı atarsanız yardımcı olalım