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

[ssbnd]

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

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

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

 

اخ hassona229

 

هل انت متأكد من الكود لانه اعطى خطأ هنا

.SortFields

compile error

Invalid or unqualified reference

 

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

[حسونة حسين]

اخى 

اذهب للسطر الثالث في صفحه ( ورقه١)

رقم تاريخ رقم العملية رقم العميل الإجمالي

وعلم من اول الكلمه رقم 

الى الكلمه اجمالي

ثم اضغط فلتر 

كما بالصورة

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

[ssbnd]

7 ساعات مضت, hassona229 said:

اخى 

اذهب للسطر الثالث في صفحه ( ورقه١)

رقم تاريخ رقم العملية رقم العميل الإجمالي

وعلم من اول الكلمه رقم 

الى الكلمه اجمالي

ثم اضغط فلتر 

كما بالصورة

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

اخ hassona229

ما زال الكود يعطي خطأ

 

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

[حسونة حسين]

تفضل اخى وعذرا لانى اعمل على الهاتف 

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

 

[ssbnd]

2 ساعات مضت, hassona229 said:

تفضل اخى وعذرا لانى اعمل على الهاتف 

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

 

أخ hassona229

ياخي ايش اقول، ربي يجزاك خير

كل شيء تمام و الكود شغال

ربي يحفطك أن شاء الله ما قصرت

[حسونة حسين]

وجزاكم مثله اخى الكريم 

آمين يارب العالمين وإياكم اخى 

والحمد لله الذي بنعمته تتم الصالحات