عمل ملخص في ملف اكسل من مجموعة كبيره من ملفات اكسل

[ssbnd]

السلام عليكم

لدي مجموعه كبيره من فواتير يتم انشاءها بشكل يومي ببرنامج الاكسل و الوورد تصل إلى 40 فاتورة كل فاتورة تحتوي على بيانات مفصله للعملية (اسم العميل, بيانات القطع المبعاه, عددها و قيمتها ثم القيمة الإجمالية) هذه الفواتير عباره عن ملف اكسل او وورد منفصل لكل فاتورة (يعني اذا عملت 40 عملية يعني 40 فاتورة يعني 40 ملف اكسل او وورد) و على نهاية الشهر اقوم بعمل ملخص لجميع هذه الفواتير في ملف واحد اكسل يحتوي على جزء من بيانات هذه الفواتير (يحتوي فقط على اسم العميل, تاريخ الفاتورة, منطقه العميل, دائن او مدين) في سطر واحد في ملف ملخص عمليات البيع.

أريد ان يقوم الاكسل او الوورد في الفواتير اليومية أن يقوم اتوماتيكيا بنقل خلايا معينة من الفواتير اليومية بعد الحفظ إلى ملخص الفواتير الشهري.

هل هذا ممكن

Invoice-et1232098-1-11-2021.xlsx Monthly Summery.xlsx Invoice-et1232099-1-11-2021.xlsx

تم تعديل نوفمبر 10, 2021 بواسطه ssbnd

[alliiia]

وعليكم السلام ورحمة الله وبركاته

لماذا لا تجعلهم جميعم في ملف واحد؟؟ 

شيت لكل عميل 

وفي النهاية شيت ملخص للفواتير.

 

[حسونة حسين]

وعليكم السلام ورحمة الله وبركاته 

تفضل اخى الكريم طلبك ان شاء الله 

Monthly Summery.zip

[ssbnd]

شكرا اخ hassona229 على جهدك

فهمت انه اقوم بعمل الفواتير في مجلد الفواتير و اترك ملف الملخص خارج هذا المجلد

قمت بعمل فاتورة ثالثه و لكن لم تتم اضافتها في ملف الملخص، يعني هل فقط بأنشاء ملف جديد وهو يقوم آليا بأضافته إلى الملخص، عادتي انني اقوم بفتح أخر ملف فاتورة ثم اقوم بالتعديل على بياناتها ثم اقوم بعمل حفظ بإسم لإنشاء فاتورة جديدة.

و ايضا قمت بتعديل على الفاتورة الأولى و لكن لم يتم التعديل.

هل بأمكانك ايضاح كيف تتم الآلية الأضافه و التعديل او انني لم اقم بشيء كما يجب

شكرا جزيلا

[ssbnd]

6 ساعات مضت, alliiia said:

وعليكم السلام ورحمة الله وبركاته

لماذا لا تجعلهم جميعم في ملف واحد؟؟ 

شيت لكل عميل 

وفي النهاية شيت ملخص للفواتير.

 

شكرا و لكن في الحقيقه هذه ليس هذا هو العمل حقيقة انما هذا مثال لما اريد عمله و انا اقوم بمثل هذا المثال اقوم بعمل فاتورة cover لكل فاتورة استلمها لذا عملت هذا المثال

قد قمت بعمل كثير من الاضافات لتسهيل العمل و لكن ما زال العمل يحتاج إلى كثير من الجهد

و الشركة تبحث في موضوع عمل هذا من خلال برنامج و لكني احتاج إلى هذا حاليا.

شكرا على ملاحظتك

تم تعديل نوفمبر 11, 2021 بواسطه ssbnd

[حسونة حسين]

20 دقائق مضت, ssbnd said:

فهمت انه اقوم بعمل الفواتير في مجلد الفواتير و اترك ملف الملخص خارج هذا المجلد

تمام كده مظبوط

20 دقائق مضت, ssbnd said:

قمت بعمل فاتورة ثالثه و لكن لم تتم اضافتها في ملف الملخص

هل وضعت هذه الفاتورة الثالثه في نفس الفولدر الذي ارسلته لك في الملف المضغوط أم ماذا صنعت

 

21 دقائق مضت, ssbnd said:

ايضا قمت بتعديل على الفاتورة الأولى و لكن لم يتم التعديل.

هل هذه الفاتورة ضمن الفولدر الذي في ملف المضغوط ام في مكان اخر

 

اخى الكريم 

الكود به اسم الفولدر هو ( فواتير )

كما بالصورة التاليه

كل ما هو بفولدر فواتير بمجرد تشغيل الكود سوف يجلبه لك اخى الكريم

[ssbnd]

الان, hassona229 said:

تمام كده مظبوط

هل وضعت هذه الفاتورة الثالثه في نفس الفولدر الذي ارسلته لك في الملف المضغوط أم ماذا صنعت

 

هل هذه الفاتورة ضمن الفولدر الذي في ملف المضغوط ام في مكان اخر

 

اخى الكريم 

الكود به اسم الفولدر هو ( فواتير )

كما بالصورة التاليه

كل ما هو بفولدر فواتير بمجرد تشغيل الكود سوف يجلبه لك اخى الكريم

نعم قمت بتنزيل الملف المضغوط و قمت بعمل استخراج إلى Monthly summery

الفاتورة الثالثه قمت بفتح الفاتورة الأولى و قمت بعمل التعديل عليها و قمت بعمل حفظ بإسم لأنشاء الفاتورة الثالثه في نفس مجلد الفواتير

سؤال متى يتفعل الكود هل عند فتح الملف Monthly Summery.xlsb ؟

[حسونة حسين]

29 دقائق مضت, ssbnd said:

الحقيقه هذه ليس هذا هو العمل حقيقة انما هذا مثال لما اريد عمله و انا اقوم بمثل هذا المثال اقوم بعمل فاتورة cover لكل فاتورة استلمها لذا عملت هذا المثال

قد قمت بعمل كثير من الاضافات لتسهيل العمل و لكن ما زال العمل يحتاج إلى كثير من الجهد

ما هو طبيعه العمل

هل هذه الفواتير موجوده في شيتات اكسل ولا لا

ان كانت غير موجوده وانت تكتبها فاتورة فاتورة

فنصيحه منى

كل الفواتير تكون في شيت واحد (فقط)

ويكون يوجد شيت لشكل الفاتورة

ويكون شيت لملخص الفواتير

 

تم تعديل نوفمبر 11, 2021 بواسطه hassona229

[حسونة حسين]

اخى الكريم لتشغيل الكود

اضغط 

Alt+F11

ستجد modules

ستجد module1

اضغط في اي سطر بها 

ثم اضغط

F5

او يمكنك عمل ذر وربطه بالكود

[ssbnd]

الان, hassona229 said:

ما هو طبيعه العمل

هل هذه الفواتير موجوده في شيتات اكسل ولا لا

ان كانت غير موجوده وانت تكتبها فاتورة فاتورة

فنصيحه منى

كل الفواتير تكون في شيت واحد (فقط)

ويكون يوجد شيت لشكل الفاتورة

ويكون شيت لملخص الفواتير

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

لكل ورقه تأكيد اقوم بعمل فاتورة كفر فيها معلومات العمل هذا مع سعر هذا العمل و اقوم بإرفاق الفاتورة بورقه تأكيد العمل

لا استطيع عمل جميع هذه الفواتير و التي قد تصل إلى 6000 فاتوره في شيت واحد لأنه بالتأكيد سوف يهنج الجهاز لذا اقوم بعمل كل فاتورة في ملف اكسل خاص بها اسميه بتاريخ اليوم و رقم الفاتورة

و في نهاية الشهر اقوم بتسليمهم كل الأوراق (كل فاتورة مضافه لها ورقه تأكيد العمل) أضافه للفاتورة النهائية تشمل مبلغ كل الفواتير للشركه الأم لتأكد من الاسعار التي وضعناها و التأكد من صحتها و لكنهم ايضا يطلبون ملخص لجميع الفواتير وهو شي مرهق بالنسبه لي بالنسبه لهم يأخذون صورة من الفاتورة و الملخص لحفظها في السجلات لديهم.

[ssbnd]

4 دقائق مضت, hassona229 said:

اخى الكريم لتشغيل الكود

اضغط 

Alt+F11

ستجد modules

ستجد module1

اضغط في اي سطر بها 

ثم اضغط

F5

او يمكنك عمل ذر وربطه بالكود

اخ hassona229 ربي لا أراك هما

قمت بعمل ما أخبرتني و فعلا تم تحديث ملف الملخص. و فعلا سأقوم بعمل زر لجعل العملية اسهل من الدخول إلى الكود و تشغيله.

لكن اسمح لي ان اتعبك

ما هي الآليه في ترتيب معلومات الفواتير بداخل الملخص يعني ربما أكون نسيت فاتورة مثلا في تاريخ 4 نوفمبر 2021  و انا حاليا قد اضفت فواتير حتى تاريخ 20 نوفمبر 2021 يعني أن هناك عشرات الفواتير بعد هذا التاريخ تمت اضافتها. كيف اجعل هذه الفاتورة التي نسيتها و التي قمت بعملها متأخرا ان تندرج تحت الفواتير التي في نفس اليوم.

و شكرا جزيلا

[حسونة حسين]

5 دقائق مضت, ssbnd said:

لا استطيع عمل جميع هذه الفواتير و التي قد تصل إلى 6000 فاتوره في شيت واحد لأنه بالتأكيد سوف يهنج الجهاز لذا اقوم بعمل كل فاتورة في ملف اكسل خاص بها اسميه بتاريخ اليوم و رقم الفاتورة

ملف الاكسل سوف يكون به ٣ شيتات فقط

 

كل هذه ال ٦٠٠٠ فاتورة نكون في شيت واحد

هذا الشيت الواحد اسمه (data)

يكون السطر البيان الاول من ببانات الفاتورة

والسطر الثاني يكون البيان الثانى من الفاتورة

وهكذا الى انتهاء الفاتورة

ثم الفاتورة التاليه في السطر الذي يليه

وهكذا الى انتهاء الفواتير

ويكون شيت ثانى باسم search

يكون به شكل الفاتورة التى صممتها وهذا التصميم ياخذ بيانته من صفحه (data) اوتوماتيكى

وشيت ثالث يكون به ملخص الفواتير

 

[حسونة حسين]

6 دقائق مضت, ssbnd said:

ما هى الآليه في ترتيب معلومات الفواتير بداخل الملخص يعني ربما أكون نسيت فاتورة مثلا في تاريخ 4 نوفمبر 2021  و انا حاليا قد اضفت فواتير حتى تاريخ 20 نوفمبر 2021 يعني أن هناك عشرات الفواتير بعد هذا التاريخ تمت اضافتها. كيف اجعل هذه الفاتورة التي نسيتها و التي قمت بعملها متأخرا ان تندرج تحت الفواتير التي في نفس اليوم.

 

اخى الكريم من الذي تحدث عن ترتيب الفواتير

هو احنا اتفقنا على كده

من بدايه موضوعك لم تتحدث عن اي ترتيب

كده هنزعل من بعض ولا ايه

وكمان اين هى هذه التواريخ

 

[ssbnd]

7 دقائق مضت, hassona229 said:

ملف الاكسل سوف يكون به ٣ شيتات فقط

 

كل هذه ال ٦٠٠٠ فاتورة نكون في شيت واحد

هذا الشيت الواحد اسمه (data)

يكون السطر البيان الاول من ببانات الفاتورة

والسطر الثاني يكون البيان الثانى من الفاتورة

وهكذا الى انتهاء الفاتورة

ثم الفاتورة التاليه في السطر الذي يليه

وهكذا الى انتهاء الفواتير

ويكون شيت ثانى باسم search

يكون به شكل الفاتورة التى صممتها وهذا التصميم ياخذ بيانته من صفحه (data) اوتوماتيكى

وشيت ثالث يكون به ملخص الفواتير

 

أخ hassona229

هل تقصد ان جميع بيانات الفاتورة رقم 1 في 1 نوفمبر 2021 سوف تكون في السطر الأول للشيت data

ثم الفاتوره رقم 2 في 1 نوفمبر 2021 سوف تكون في السطر الثاني للشيت data

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

أو اني لم افهم قصدك

و لكن الفكره ممتازه

و لكن بالنسبه للشيت search سوف يكون فيه كود لسحب بيانات فاتورة معينة اقوم انا بأختيارها صحيح.

[ssbnd]

4 دقائق مضت, hassona229 said:

اخى الكريم من الذي تحدث عن ترتيب الفواتير

هو احنا اتفقنا على كده

من بدايه موضوعك لم تتحدث عن اي ترتيب

كده هنزعل من بعض ولا ايه

وكمان اين هى هذه التواريخ

 

فعلا اخي لم اتحدث عن ترتيب

و حاشا اذا اردت زعلك ^_^

لكن بحكم كمية الفواتير فعند مراجعه الشركة الأم للفواتيرنا فأنها تقوم بمراجعة الفواتير بحسب ما قدمته لها من اعمال قمنا بعملها لها في كل يوم من ايام الشهر فأذا قمت باضافه فاتورة في الملخص من يوم سابق في نهاية يوم آخر سوف يكون متعب للمراجعه.

يعني هل هناك طريقه لجعل الكود مثلا يبحث عن طريق تاريخ الفاتورة و رقمها (وهو مثلا سيكون اسم ملف الفاتورة يعني فاتورة رقم 3 تاريخ 15 نوفمبر 2021- فأقوم بعمل اسم الفاتورة مثلا (3-15-11-2021)) و يقوم الكود بترتيب بيانات الفواتير بحسب اسمها في الملخص. او انك ترى طريقه اخرى اسهل.

 

 و شكرا جزيلا

[حسونة حسين]

اخى الكريم 

 التواريخ في ملفك 

ليست صيغه تواربخ

1\11\2021

لابد ان بكون صبغه تاريخ صحيحه 

01/11/2021

[ssbnd]

1 دقيقه مضت, hassona229 said:

اخى الكريم 

 التواريخ في ملفك 

ليست صيغه تواربخ

1\11\2021

لابد ان بكون صبغه تاريخ صحيحه 

01/11/2021

اخي hassona229

فعلا اخي هذا صحيح

[عبدالفتاح في بي اكسيل]

استغرق  مني  الكثير  من  الوقت   حتى  يعمل  نتيجة تعديلات وتصحيحات   بناء  على متطلباتك 

اولا  الغي  جميع  الخلايا  المدمجة  والا  الكود  لن  يعمل  بشكل  جيد  

ثانيا قم بتسمية  الورقة Summary  في  الملف  الذي  سيتم   تشغيل  الماكرو منه

ثالثا  ضع جميع  الملفات في  مجلد واحد  ما عدا  الملف  الذي  سيتم  من تشغيل  الماكرو تجنبا  لاي  مشاكل 

رابعا  يجب  ان  يكونوا  الملفات  من امتداد xlsx

خامسا  انسخ  مسار   المجلد  الذي  به الملفات وقم بوضعه  في  الكود  كما  موجود بالضبط (قم بتغيير هذا فقط C:\Users\PC WORLD\Desktop\path)

سادسا يجب  ان  تكون  بياناتك  كلها   في  الورقة  الاولى  لجميع  الملفات  

Public Sub Copy_Values_From_Workbooks()

    Dim matchWorkbooks As String
    Dim destSheet As Worksheet, r As Long
    Dim folderPath As String
    Dim wbFileName As String
    Dim fromWorkbook As Workbook
 
    
 
    matchWorkbooks = "C:\Users\PC WORLD\Desktop\path\*.xlsx"
 
    'Define destination sheet
 
    Set destSheet = ActiveWorkbook.Worksheets("Summary")
 
            destSheet.Cells.ClearContents

    r = 0
 
    Application.ScreenUpdating = False
         
    folderPath = Left(matchWorkbooks, InStrRev(matchWorkbooks, "\"))
    wbFileName = Dir(matchWorkbooks)
    While wbFileName <> vbNullString
        Set fromWorkbook = Workbooks.Open(folderPath & wbFileName)
        With fromWorkbook.Worksheets(1)
        destSheet.Range("A3").Value = .Range("A6").Value
            destSheet.Range("B3").Value = .Range("A4").Value
            destSheet.Range("C3").Value = .Range("G5").Value
           destSheet.Range("D3").Value = .Range("G4").Value
           destSheet.Range("E3").Value = .Range("A19").Value
            destSheet.Range("B4").Offset(r).Value = .Range("B4").Value
            destSheet.Range("C4").Offset(r).Value = .Range("H5").Value
            destSheet.Range("D4").Offset(r).Value = .Range("H4").Value
            destSheet.Range("E4").Offset(r).Value = .Range("H19").Value
            
            r = r + 1
        End With
        fromWorkbook.Close savechanges:=False
        DoEvents
        wbFileName = Dir
    Wend
 Call test2
    Application.ScreenUpdating = True
 
    MsgBox "Finished"
    
 
End Sub
Sub test2()
With Range("b4", Range("b" & Rows.Count).End(xlUp)).Offset(, -1)
 .Formula = "=row()-3"
 .Value = .Value
End With
End Sub

 

تم تعديل نوفمبر 11, 2021 بواسطه عبدالفتاح في بي اكسيل
تعديل في الكود

[حسونة حسين]

26 دقائق مضت, ssbnd said:

تقصد ان جميع بيانات الفاتورة رقم 1 في 1 نوفمبر 2021 سوف تكون في السطر الأول للشيت data

 

26 دقائق مضت, ssbnd said:

تحتوي بعض الفواتير على مدخل واحد و اخرى سوف تحتوي على 8 مثلا

اخى الكريم 

انت تكتب فاتورتك عادى 

الفاتورة الاولى

السطر الاول منتج ١ وبياناته وسعره

السطر الثانى منتج ٢ وبياناته وسعره 

وهكذا الى ان تنتهى الفاتورة رقم ١

ثم الفاتورة الثانيه

ثم الثالثه

وهكذا

[ssbnd]

32 دقائق مضت, hassona229 said:

اخى الكريم من الذي تحدث عن ترتيب الفواتير

هو احنا اتفقنا على كده

من بدايه موضوعك لم تتحدث عن اي ترتيب

كده هنزعل من بعض ولا ايه

وكمان اين هى هذه التواريخ

 

اخي hassona229

ماذا اذا وضعت فواتير كل يوم في مجلد يعني فواتير يوم 1 نوفمبر اضعها في مجلد اسميه 1 و فواتير ثاني يوم اضعها في مجلد 2 و هكذا و كل هذه المجلدات في مجلد الفواتير

ثم يكون هناك في الكود لووب تقوم بدخول لكل مجلد في مجلد الفواتير يبدأ من المجلد رقم 1 و حتى اخر يوم وهو سيكون المجلد 30 او 31 و عند دخوله في كل مجلد يأخد اي اضافات او تعديل حصلت في فواتير هذا اليوم؟

[حسونة حسين]

كل هذه الفولدرات علشان الترتيب 

لا يا اخى

الترتيب امره سهل جدا

حته كود صغنن نزوده هترتب لك التواريخ

[ssbnd]

33 دقائق مضت, عبدالفتاح في بي اكسيل said:

استغرق  مني  الكثير  من  الوقت   حتى  يعمل  نتيجة تعديلات وتصحيحات   بناء  على متطلباتك 

اولا  الغي  جميع  الخلايا  المدمجة  والا  الكود  لن  يعمل  بشكل  جيد  

ثانيا قم بتسمية  الورقة Summary  في  الملف  الذي  سيتم   تشغيل  الماكرو منه

ثالثا  ضع جميع  الملفات في  مجلد واحد  ما عدا  الملف  الذي  سيتم  من تشغيل  الماكرو تجنبا  لاي  مشاكل 

رابعا  يجب  ان  يكونوا  الملفات  من امتداد xlsx

خامسا  انسخ  مسار   المجلد  الذي  به الملفات وقم بوضعه  في  الكود  كما  موجود بالضبط (قم بتغيير هذا فقط C:\Users\PC WORLD\Desktop\path)

سادسا يجب  ان  تكون  بياناتك  كلها   في  الورقة  الاولى  لجميع  الملفات  

Public Sub Copy_Values_From_Workbooks()

    Dim matchWorkbooks As String
    Dim destSheet As Worksheet, r As Long
    Dim folderPath As String
    Dim wbFileName As String
    Dim fromWorkbook As Workbook
 
    
 
    matchWorkbooks = "C:\Users\PC WORLD\Desktop\path\*.xlsx"
 
    'Define destination sheet
 
    Set destSheet = ActiveWorkbook.Worksheets("Summary")
 
            destSheet.Cells.ClearContents

    r = 0
 
    Application.ScreenUpdating = False
         
    folderPath = Left(matchWorkbooks, InStrRev(matchWorkbooks, "\"))
    wbFileName = Dir(matchWorkbooks)
    While wbFileName <> vbNullString
        Set fromWorkbook = Workbooks.Open(folderPath & wbFileName)
        With fromWorkbook.Worksheets(1)
        destSheet.Range("A3").Value = .Range("A6").Value
            destSheet.Range("B3").Value = .Range("A4").Value
            destSheet.Range("C3").Value = .Range("G5").Value
           destSheet.Range("D3").Value = .Range("G4").Value
           destSheet.Range("E3").Value = .Range("A19").Value
            destSheet.Range("B4").Offset(r).Value = .Range("B4").Value
            destSheet.Range("C4").Offset(r).Value = .Range("H5").Value
            destSheet.Range("D4").Offset(r).Value = .Range("H4").Value
            destSheet.Range("E4").Offset(r).Value = .Range("H19").Value
            
            r = r + 1
        End With
        fromWorkbook.Close savechanges:=False
        DoEvents
        wbFileName = Dir
    Wend
 Call test2
    Application.ScreenUpdating = True
 
    MsgBox "Finished"
    
 
End Sub
Sub test2()
With Range("b4", Range("b" & Rows.Count).End(xlUp)).Offset(, -1)
 .Formula = "=row()-3"
 .Value = .Value
End With
End Sub

 

شكرا اخ عبدالفتاح على وقتك ربي يحفظك

 

و لكن قمت باضافة عدة فواتير بتواريخ تاليه ثم قمت بعمل فاتورة بتاريخ سابق و لم يتم الترتيب وضع الملخص اخر فاتورة مضافه في اخر سطر و ان كان تاريخها سابق لآخر فاتورة مضافه

كنت اريد ادرج صورة و لكن تظهر لي رسالة خطأ error 200 ما اعرف ليش

[عبدالفتاح في بي اكسيل]

اقتباس

شكرا اخ عبدالفتاح على وقتك ربي يحفظك

 

و لكن قمت باضافة عدة فواتير بتواريخ تاليه ثم قمت بعمل فاتورة بتاريخ سابق و لم يتم الترتيب وضع الملخص اخر فاتورة مضافه في اخر سطر و ان كان تاريخها سابق لآخر فاتورة مضافه

كنت اريد ادرج صورة و لكن تظهر لي رسالة خطأ error 200 ما اعرف ليش

هل  الكود  اشتغل  معاك  

اما  موضوع  ترتيب  التواريخ  ليس  هذا  ما  طلبته وهذا  موضوع  مختلف تماما 

الرجاء  اغلاق  الموضوع  اذا  كان  الكود  يعمل  وفق سؤالك  الاصلي   ولا داعي  لفتح  اسئلة  جديدة 

ابدا  موضوع  جديد   وقد  يساعدك  احد  الاعضاء  بتزويد  كود اخر  يقوم  بالفلترة وترتيب  التواريخ  بدلا  من  الخروج  عن  الموضوع  الاصلي 

تحياتي 

[ssbnd]

1 دقيقه مضت, عبدالفتاح في بي اكسيل said:

هل  الكود  اشتغل  معاك  

اما  موضوع  ترتيب  التواريخ  ليس  هذا  ما  طلبته وهذا  موضوع  مختلف تماما 

الرجاء  اغلاق  الموضوع  اذا  كان  الكود  يعمل  وفق سؤالك  الاصلي   ولا داعي  لفتح  اسئلة  جديدة 

ابدا  موضوع  جديد   وقد  يساعدك  احد  الاعضاء  بتزويد  كود اخر  يقوم  بالفلترة وترتيب  التواريخ  بدلا  من  الخروج  عن  الموضوع  الاصلي 

تحياتي 

اخ عبدالفتاح

نعم الكود الذي وضعته اشتغل و ايضا الكود الذي وضعه الاخ hassona229 سابقا اشتغل ما قصرتو على المساعده يعطيكم الف عافيه.

و لكني كنت أسأل الأخ hassona229 عن موضوع ترتيب الفواتير عندما قمت انت بوضع الكود الذي أنشأته وهو بشكل مختلف فأعتقدت انه يحل موضوع الترتيب.

شكرا كثيرا على المساعده

موضوع الترتيب يخص العمل الذي اريده فلا أريد ان تكون المشكلة في منقسمه في موضوعين

[حسونة حسين]

قبل هذا السطر في الكود ( الكود في مشاركتى )

Application.ScreenUpdating = True

ضع هذه السطور

WS.AutoFilter.Sort.SortFields.Clear: .SortFields.Add Key:=Range("b3"), Order:=xlAscending: .Apply

ليصبح لكود هكذا 

WS.AutoFilter.Sort.SortFields.Clear: .SortFields.Add Key:=Range("b3"), Order:=xlAscending: .Apply
Application.ScreenUpdating = True