ams27 قام بنشر يناير 27, 2023 مشاركة قام بنشر يناير 27, 2023 برجاء الافادة اقوم باستخدام كود ماكرو مسجل و ما يفعله هو نسخ الخلية a1 و b1 الي ورقة عمل اخري بنفس النطاق الي a1 و b1 في ورقة العمل الاخري ثم يقوم بعمل run لماكرو اخر المطلوب هنا ماذا افعل لتطبيق الماكرو هذا اعلاه ليقوم بعمل نفس المهمة علي a2 و b2 ثم a3 و b3 وهكذا حتي اخر ما يكون موجود من معلومات في الخلايا رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر يناير 27, 2023 مشاركة قام بنشر يناير 27, 2023 المطلوب هو أن ترسل الملف حتى نعدل على الكود لأنه يصعب الكلام في البرمجة عند عدم وجود الملف 1 رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر يناير 27, 2023 مشاركة قام بنشر يناير 27, 2023 بعد إذن الاستاذ أبو عيد مبدئا يمكن عمل ما قولت باستخدام أم التكرار for next أو النسخ والترحيل الكامل والأفضل كما أشار أبو عيد أن ترفق ملفك أو مثال توضيحي رابط هذا التعليق شارك More sharing options...
ams27 قام بنشر يناير 27, 2023 الكاتب مشاركة قام بنشر يناير 27, 2023 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 اعمدة رابط هذا التعليق شارك More sharing options...
ams27 قام بنشر يناير 27, 2023 الكاتب مشاركة قام بنشر يناير 27, 2023 و شكرا لتعبكم رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبوعيد قام بنشر يناير 27, 2023 أفضل إجابة مشاركة قام بنشر يناير 27, 2023 تفضل 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 وهكذا ... 1 1 رابط هذا التعليق شارك More sharing options...
ams27 قام بنشر يناير 28, 2023 الكاتب مشاركة قام بنشر يناير 28, 2023 شكرا ابو عيد يسلمو ايدك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.