اخي ابو ليمونة
الكود الخاص بك لا ينسخ النطاقات التى كتبتها انت ..
استخدم هذا الكود
Sub Moodi()
If Sheet1.Range("A1").Value = 1 Then
Sheet1.Range("c1:c100").Value = Sheet1.Range("b1:b100").Value
Range("A1").Select
End If
Application.OnTime Now + TimeSerial(0, 1, 0), "ThisWorkbook.Moodi"
End Sub
لتغيير النطاقات غير بهذا السطر
Sheet1.Range("c1:c100").Value = Sheet1.Range("b1:b100").Value
ولتغيير الوقت غير بهذا السطر , علما انه من الشمال لليمين : الساعات , الدقائق , الثوانى
Application.OnTime Now + TimeSerial(0, 1, 0), "ThisWorkbook.Moodi"
ليقوم الكود بما تريد .... ضعه فى صفحة ThisWorkbook ضروري جداً . ليعمل معك بصفة مستمرة ... وسيعمل ان شاء الله معك فى الخلفية وبدون ان يستغل الحافطة ..
البروفسير's post in كيف انسخ والصق عبر VBA دون استخدام clipboard؟ was marked as the answer