اضافه شرط لكود يتم تنفيذه عن وقت معين

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

ارجو المساعده فى اضافه شرط للكود المرفق

Private Sub Workbook_Open()
Application.OnTime TimeValue("16:30:00"), "transfer"
End Sub

الشرط المطلوب اضافته

اذا كانت الخليه  A1 فى شيت Sheet1  تحتوى على كلمه GO

والساعه 04:30 يتم تنفيذ كود transfer

جزاكم الله خيرا

تم تعديل فبراير 8, 2018 بواسطه ۩◊۩ أبو حنين ۩◊۩

[خالد الشاعر]

استاذ ابو حنين

ارجو ان يكون هذا طلبك

If Sheets("sheet1").Range("A1") = "Go" Then
Application.OnTime TimeValue("16:30:00"), "transfer"
End If