۩◊۩ أبو حنين ۩◊۩ قام بنشر فبراير 8, 2018 مشاركة قام بنشر فبراير 8, 2018 (معدل) السلام عليكم ارجو المساعده فى اضافه شرط للكود المرفق Private Sub Workbook_Open() Application.OnTime TimeValue("16:30:00"), "transfer" End Sub الشرط المطلوب اضافته اذا كانت الخليه A1 فى شيت Sheet1 تحتوى على كلمه GO والساعه 04:30 يتم تنفيذ كود transfer جزاكم الله خيرا تم تعديل فبراير 8, 2018 بواسطه ۩◊۩ أبو حنين ۩◊۩ رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر فبراير 8, 2018 مشاركة قام بنشر فبراير 8, 2018 استاذ ابو حنين ارجو ان يكون هذا طلبك If Sheets("sheet1").Range("A1") = "Go" Then Application.OnTime TimeValue("16:30:00"), "transfer" End If رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.