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

**۩◊۩ أبو حنين ۩◊۩** · فبراير 8, 2018

السلام عليكم

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

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

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

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

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

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

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

**خالد الشاعر** · فبراير 8, 2018

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

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

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

الردود الموصى بها