تحديد وقت (فترة) لعمل الكود

[emanellethey7]

السلام عليكم

هذا الكود استخدمه لطباعة كافة السجلات الموجودة 

 

Sub print_whole_class()

For I = 1 To [stunames].Rows.Count

    [g5] = Application.Index([stunames], I)

    ActiveWindow.SelectedSheets.PrintOut Copies:=1

 Next

    [g5] = Application.Index([stunames], 1)

End Sub

 

اريد اضافة كود يحدد وقت انتهاءه

بمعنى عند تاريخ 1/1/2020 يتوقف الكود عن العمل طالبا تحديث البيانات مثلا

[emanellethey7]

شكرا جزيلا

بعد محاولات وصلت لها بهذه الطريقة 

مع وضع التاريخ المطلوب بالخلية g777

 

Sub print_whole_class()

If [g777] > [today()] Then

For I = 1 To [stunames].Rows.Count

    [g5] = Application.Index([stunames], I)

    ActiveWindow.SelectedSheets.PrintOut Copies:=1

 Next

    [g5] = Application.Index([stunames], 1)

    End If

    End Sub