اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

 

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

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

cop.rar

تم تعديل بواسطه البروفسير
قام بنشر

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

 

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

 

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

 

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

 

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

 

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

قام بنشر (معدل)

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

تم تعديل بواسطه البروفسير
قام بنشر

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

 

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

 

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

 

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

 

تحياتي لك

  • Like 1

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

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information