حبذا طريقة للنقل من صفحة دون فتحها، يوجد مثال

[شكيب عمار]

أريد أنقل بيانات من صفحة وتعتبر قاعدة البيانات (بعد فلترة معينة، يعني حسب حاجتي)، إلى صفحة أخرى وهي قوائم اسمية،  وبعد النقل من القاعدة تحذف خاصية الفلترة
المطلوب في كل هذا، وهو موجود سلفا، لكن أريد طريقة يقوم بها الإكسل دون إظهار التنقل بين الصفحات أو فتحها، يعني دون الحاجة لإظهار الصفحة التي يعمل عليها سواء قاعدة البيانات أو غيرها المهم يقوم بما طلب منه وهو النقل بعد فلترة معينة
وجزاكم الله خيري الدنيا والآخرة
عندنا:
Sheets("قاعدة")
Sheets("قوائم")

Sub LISTS()
' جميع قوائم المعنيين

    Range("C2:C5000").Select
    Selection.ClearContents
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

    Sheets("قاعدة").Select
    
    'ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=67, Criteria1:= _
     '   "تكفي"
    
    

        
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=123, Criteria1:= _
        "تكفي"
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=136, Criteria1:= _
        "لا"
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=137, Criteria1:= _
        "لا"
    ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=138, Criteria1:= _
        "لا"
    
    
    Range("Table2[1]").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast

    Sheets("قوائم").Select

    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Calculate
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

    Sheets("قاعدة").Select
    ActiveSheet.ShowAllData
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast

    Sheets("قوائم").Select
    Range("C2").Select

 

نقل من صفحة.rar