فرز البيانات دون الحاجة لتفعيل صفحة البيانات

[Saleh89]

السلام عليكم ، حياكم الله جميعاً

عندي ملف اكسل فيه صفحتان وهما: (DatabaseShe , AddShe ) أريد فرز البيانات الموجودة في DatabaseShe من صفحة AddShe!

كود الفرز موجود لكن المشكلة أني لازم استخدم تفعيل الصفحة: DatabaseShe.Activate حتى يعمل فرز!!

هل من طريقة لعمل فرز أو حتى حذف مع الاستغناء عن Activate؟

Database_1.xlsm

[سليم حاصبيا]

جرب هذا الكود

Sub get_data()
Dim rg As Range
Dim ro
Sheets("AddShe").Range("A1").CurrentRegion.ClearContents
Set rg = Sheets("DatabaseShe").Range("a1").CurrentRegion
Sheets("AddShe").Range("A1"). _
Resize(rg.Rows.Count, rg.Columns.Count).Value = _
     rg.Value
Sheets("AddShe").Range("A1"). _
CurrentRegion.Sort key1:=Range("B2"), Header:=1
ro = Sheets("AddShe").Range("a1").CurrentRegion.Rows.Count
Sheets("AddShe").Range("A2").Resize(ro - 1) = _
Evaluate("row(1:" & ro - 1 & ")")

End Sub

الملف مرفق

Saleh.xlsm

[Saleh89]

لم أنسى الإعجاب يا صديقي، ولكن بسبب انشغالي وعدم تجربة الكود لم أرد على أستاذنا القدير سليم

جزاك الله خير، وبارك فيك

لكن هل يمكن الحصول على طريقة أسهل وكود أصغر 😁