تعديل كود ليعمل بتوقيت معين

[yasse.w.2010]

السلام عليكم

الاخوه الافاضل هل ممكن المساعدة في هذا الكود

اريد تعديل هذا الكود بحيث يقف لمدة 10 ثواني ثم يبدء العمل 

                                                                                                                                   Sheets("بنك").Select

                                                                                                                   ( يقف هنا - ثم يبداء العمل )

                                                                          Range("F" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

 

تم تعديل ديسمبر 5, 2020 بواسطه yasse.w.2010

[سليم حاصبيا]

شاهد هذا الفيديو

https://www.youtube.com/watch?v=l3kBuJtNLgU&ab_channel=TeachExcel

 

[yasse.w.2010]

شكرا استاذ سليم

بس حاولت اعمل الكود ومعرفتش

ارجو منك مساعدتي في عمل المعادلة بحيث تعمل اوتماتيك 

                                                                                                                                    Sheets("بنك").Select

                                                                                                                   ( يقف هنا - ثم يبداء العمل ) معادلة الوقت هنا 

                                                       

                   Range("F" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

 

[هانى محمد]

yasse.w.2010

وازاى تتم المساعدة أو كيف تنتظر المساعدة أصلاً من أحد بدون رفع الملف ... لا يمكن العمل على التخمين ؟!!!!!!!!!!!

[سليم حاصبيا]

Range("F" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

الكود يعمل معك وانت لا تلاجظ ذلك لأنك  دائماً تعمل  Selection  لنفس الخلية التي هي اول خلية فارغة بالعامود F

جرب هذا الكود المرفق بالملف

Option Explicit
Dim ws As Worksheet
Dim RG As Range
Dim Time_Run As Date
Dim my_st$
Dim i%
'++++++++++++++++++++++++
Sub Cyclic_macro()
Static x
 x = i
 Set ws = Sheets("Sheet1")
 my_st$ = "Salim"
Set RG = ws.Range("A" & Cells.Rows.Count).End(xlUp).Offset(1)
  RG = my_st & i + 1
  i = i + 1
Time_Run = Now + TimeValue("00:00:03")
Application.OnTime Time_Run, "Cyclic_macro"
End Sub
'++++++++++++++++++++++++++++
Sub Stop_Me()
On Error Resume Next
i = 0
Application.OnTime Time_Run, "Cyclic_macro", , False
End Sub
'+++++++++++++++++++++++++++++
Sub Clear_data()
Set ws = Sheets("Sheet1")
i = 0
ws.Range("A2", Range("A1").End(4)).ClearContents
End Sub

Cyclic_macro.xlsm

[yasse.w.2010]

الف الف شكر لحضرتك يا استاذ سليم