ترحيل المتأخرين

[أيهاب ممدوح]

السلام عليكم

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

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

ويوجد كود ترحيل بالفعل ولكن طويل جدااا ولا يشمل بعض الصفحات

شكرا

الايجارات - ايهاب .xlsm

[Ali Mohamed Ali]

لقد تم الحل من قبل

 

ترحيل المتأخرين.xlsm

[أيهاب ممدوح]

اخي الكريم

حضرتك لم تنبه لاخر سطر في التعليق الاول

قولت يوجد كود ولكن طويل ولا يشمل بعض الصفحات 

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

شكرا لحضرتك

[أيهاب ممدوح]

لو سمحتم هل من الممكن  استبدال الكود المرفق بكود مختصر وقابل للتعديل والاضافه

Sub ÊÃÎíÑ()
Application.ScreenUpdating = False
Sheets("ÊÃÎíÑ").Select
       Range("B3:R5000").SpecialCells(xlCellTypeConstants).ClearContents
     Range("H5").Select
    Sheets("ÓáØÇä").Select
    ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=A", _
        Operator:=xlOr, Criteria2:="="
    Range("B3:q102").Select
    Selection.Copy
    Sheets("ÊÃÎíÑ").Select
  
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H3").Select
    Sheets("ÓáØÇä").Select
  
      Application.CutCopyMode = False
    Range("H3").Select
    ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1
    Sheets("ÇáÌæåÑÉ").Select
    ActiveSheet.Range("$A$1:$A$40").AutoFilter Field:=1, Criteria1:="=A", _
        Operator:=xlOr, Criteria2:="="
    Range("B3:Q115").Select
    Selection.Copy
    Sheets("ÊÃÎíÑ").Select
 
    Range("B55").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H55").Select
    Sheets("ÇáÌæåÑÉ").Select
    
    Application.CutCopyMode = False
    Range("H3:K3").Select
    ActiveSheet.Range("$A$1:$A$40").AutoFilter Field:=1
    Sheets("ÇáÈÇíæäíå").Select

    ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1, Criteria1:="=A", _
        Operator:=xlOr, Criteria2:="="
    Range("B3:Q101").Select
    Selection.Copy
    Sheets("ÊÃÎíÑ").Select
  
    Range("B105").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H105").Select
    Sheets("ÇáÈÇíæäíå").Select
   
    Application.CutCopyMode = False
    Range("H3:K3").Select
    ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1
    Sheets("ÇáÑÇßå").Select
  
    ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1, Criteria1:="=A", _
        Operator:=xlOr, Criteria2:="="
    Range("B3:Q60").Select
    Selection.Copy
    Sheets("ÊÃÎíÑ").Select
  
    Range("B155").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H155").Select
    Sheets("ÇáÑÇßå").Select
   
    Application.CutCopyMode = False
    Range("H3:K3").Select
    ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1
    Sheets("ÓÚÏ").Select
    ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1, Criteria1:="=A", _
        Operator:=xlOr, Criteria2:="="
    Range("B3:Q88").Select
    Selection.Copy
    Sheets("ÊÃÎíÑ").Select
  
    Range("B206").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H206").Select
    Sheets("ÓÚÏ").Select
    
    Application.CutCopyMode = False
    Range("H3:K3").Select
    ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1
    Sheets("äÇíÝ").Select
    ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1, Criteria1:="=A", _
        Operator:=xlOr, Criteria2:="="
    Range("B3:Q53").Select
    Selection.Copy
    Sheets("ÊÃÎíÑ").Select
 
    Range("B255").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H255").Select
    Sheets("äÇíÝ").Select
   
    Application.CutCopyMode = False
    
    Range("H3:K3").Select
    ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1
    Sheets("äÇÕÑ").Select
    ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1, Criteria1:="=A", _
        Operator:=xlOr, Criteria2:="="
    Range("B3:Q82").Select
    Selection.Copy
    Sheets("ÊÃÎíÑ").Select
    
    Range("B305").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H305").Select
    Sheets("äÇÕÑ").Select
    Application.CutCopyMode = False
  
    Range("H3:K3").Select
    ActiveSheet.Range("$A$1:$A$39").AutoFilter Field:=1
    Sheets("ÊÃÎíÑ").Select
    Range("D24,D68,D112,D162,D217,D272,D321").Select
       Selection.ClearContents
    Range("H3").Select
    Application.ScreenUpdating = True
End Sub