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 وهكذا حتي اخر ما يكون موجود من معلومات في الخلايا