كيف انسخ والصق عبر VBA دون استخدام clipboard؟

[أبو ليمونه]

السلام عليكم ...

 

شباب عندي كود vba ينسخ الخلية من B1:B100 ويلصقها في C1:C100 اذا الخلية a = 1 كل دقيقة :

Sub Moodi()
    If Sheet1.Range("A1").Value = 1 Then
        Sheet1.Range("A30:Y500").Copy
        Sheet1.Range("A31").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        Range("A1").Select
    End If
    Application.OnTime Now + TimeSerial(0, 1, 0), "Moodi"
End Sub

ما اريد عمله هو ان يقوم بالعملية ذاتها دون استخدام الذاكرة clipboard لانني اقوم بمهام اخرى من نسخ ولصق في برنامج اخر ...

 

ايضا اريده ان يعمل في الخلفية ... فلو قمت بفتح شيت جديدة بنفس الملف او ملف اكسل اخر ... لا يتاثر ... وانما يستمر بعمله دون توقف ...

 

شكرا لكم على مساعدتكم ...

[البروفسير]

اخي ابو ليمونة
الكود الخاص بك لا ينسخ النطاقات التى كتبتها انت ..
استخدم هذا الكود

 

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 ضروري جداً . ليعمل معك بصفة مستمرة ... وسيعمل ان شاء الله معك فى الخلفية وبدون ان يستغل الحافطة ..

دمت بخير اخي وتقبل تحياتى .

cop.rar

تم تعديل أكتوبر 7, 2013 بواسطه البروفسير

[أبو ليمونه]

هلا فيك البروفسير

 

مشكووور على التحصيح ... كان خطأ مطبعي ...

 

الكود يعمل لدي بدون مشاكل ... لكن اريد تطويره ...

 

اريده ان يعمل بدون التاثير على ذاكرة الكمبيوتر ... بحيث استطيع ان انسخ والصق في المتصفح خلال عمل الكود ...

 

ايضا اريد تطويرة ليعمل بالخلفية ...

 

مشكوور اخي البروفسير على مساعدتك ...

[البروفسير]

عدلت لك الكود كما طلبت . وارفقته لك بالمرفق .!
فهل تم المطلوب اخى .. ام هناك خطأ بالكود ؟؟

تم تعديل أكتوبر 7, 2013 بواسطه البروفسير

[أبو ليمونه]

اخي البروفسير

 

بارك الله فيك ونفع الله بعلمك ... فعلا انت محترف ...

 

تم تنفيذ المطلوب وهو يعمل بسلاسة وبدون اخطاء

 

شكرا لك على مجهوداتك التي تقدمها للاعضاء بهذا المنتدى ...

 

تحياتي لك