ams27

السلام عليكم لدي الشيت المرفق كما هو موضح واريد 2 كود الأول يقوم بعمل فلتر بناء على البيانات الموجودة في الخلية u من شيت POS مع العلم بوجود نفس القيم في الشيتات الاخري في العمود AX ثم يقوم بهذا الفلتر في كل الشيتات بناء علي هذه القيم ثم نسخ البيانات بناء علي هذا الفلتر من خلايا N:R من شيت POS الي كل شيت على حده حسب الفلتر الى خلايا K:O الكود الثاني المطلوب ان يقوم تعمل نفس الفلتر كما هو الحال في الكود الاول ولكن هذه المره العامل المشترك موجود في العمود N في Sheet1 ثم يقوم بنسخ البيانات الموجودة في العمود A من شيت Sheet1 إلى كل شيت على حده حسب الفلتر إلى خلية s ثم البيانات من B الي T لكل شيت على حدة ثم البيانات من H الي R لكل شيت على جده Daily provider Report - Hospital In - 2023.xlsm

بيطلعلي المسج دي Run-time error '1004': To do this, all the merged cells need to be the same size

السلام عليكم انا استخدم الكود ادناه بعمل نسخ للخلية S2 من sheet2 الي الخلية k15 في sheet1 ثم اقوم باجراء ماكرو اخر كما هو موضح بالكود احتاج الي تعديل هذا الكود لينفذ نفس الكلام علي جميع البيانات الموجودة في العمود S Sub Copy() ' ' Copy Macro ' ' Range("S2").Select Selection.Copy Sheets("Sheet1").Select Range("K15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Application.Run "Advance.xlsm!svpdf" Sheets("Sheet2").Select

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

و شكرا لتعبكم

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 اعمدة

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