تكرار مهام الماكرو

[ams27]

برجاء الافادة 

اقوم باستخدام كود ماكرو مسجل و ما يفعله هو نسخ الخلية a1 و b1 الي ورقة عمل اخري بنفس النطاق الي a1 و b1 في ورقة العمل الاخري 

ثم يقوم بعمل run لماكرو اخر 

المطلوب هنا ماذا افعل لتطبيق الماكرو هذا اعلاه ليقوم بعمل نفس المهمة علي a2 و b2 ثم a3 و b3 وهكذا حتي اخر ما يكون موجود من معلومات في الخلايا

 

 

 

[أبوعيد]

المطلوب هو أن ترسل الملف حتى نعدل على الكود

لأنه يصعب الكلام في البرمجة عند عدم وجود الملف

[أبو إيمان]

بعد إذن الاستاذ أبو عيد مبدئا يمكن عمل ما قولت باستخدام أم التكرار for next  أو النسخ والترحيل الكامل 

والأفضل كما أشار أبو عيد أن ترفق ملفك أو مثال توضيحي

[ams27]

Sub All()
'
' All Macro
'

'
    Sheets("Sheet2").Select
    Range("A2:B2").Select
    Selection.Copy
    Sheets("Report").Select
    Range("K6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.Run "'Egypt Report Tool_v14.xlsm'!ConnectSqlServer"
    Application.Run "'Egypt Report Tool_v14.xlsm'!SaveMyCover"
    ActiveWindow.Close
    Sheets("Sheet2").Select
    Range("A3:B3").Select
    Selection.Copy
    Sheets("Report").Select
    Range("K6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.Run "'Egypt Report Tool_v14.xlsm'!ConnectSqlServer"
    Application.Run "'Egypt Report Tool_v14.xlsm'!SaveMyCover"
    ActiveWindow.Close

الكود اعلاه هو المستخدم

يلاحظ اني مرة بعمل

 a1 و b1 

 

و مرة ثانية بعمل 

A2 و b2 

 

مش عايز افضل اكتبهم كده انا عايزه ينفذ الماكرو ده علي كل البيانات اللي موجودة في 

A و b اعمدة

 

 

[ams27]

و شكرا لتعبكم

[أبوعيد]

تفضل

Sub All()
'
' All Macro
'

Dim x as long

for x =0 to 4
    Sheets("Sheet2").Select
    Range("A2:B2").offset(x,0).Select
    Selection.Copy
    Sheets("Report").Select
    Range("K6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.Run "'Egypt Report Tool_v14.xlsm'!ConnectSqlServer"
    Application.Run "'Egypt Report Tool_v14.xlsm'!SaveMyCover"
    ActiveWindow.Close

next
End sub

===========

ملاحظة : تستطيع تغيير القيمة X  الموجودة في بداية الكود وهي تعني عدد مرات التنفيذ

كما في الكود أعلاه : إذا كانت X من صفر إلى 4 فهذا يعني أنك تريد تنفيذ الكود 5 مرات

عند 0 أول مرة بداية من السطر رقم 2 يعني A2:B2

عند 1 ثاني مرة السطر 3 يعني A3:B3

عند 2 ثالث مرة السطر 4 يعني A4:B4

عند 3 رابع مرة السطر 5 يعني A5:B5

عند 4 خامس مرة السطر 6 يعني A6:B6

وهكذا ...

 

[ams27]

شكرا ابو عيد يسلمو ايدك