تعديل فى كود نسخ تعديل فى كود نسخ

[samycalls2020]

السلام عليكم ..

هذا كود يقوم بتصفية على تاريخ بداية فى B3 ونهايه فى B4  وذلك فى ورقة الخزينة

تم يقوم بنقل التصفية الى ورقة طباعة .. أحياناً تكون التصفية مثلاً 800 صف ولكن الجدول

الذى بنقل اليه فى ورقة طباعة 500 صف فقط . فعند اعطاء الأمر أجد حوالى 300 صف

خارج الجدول فى الأسفل فى ورقة الطباعة .

المطلوب تحديد قبول ورقة طباعة 500 صف فقط . واعتقد هذا فى As Long

Sub للنسخ()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim lr As Long
    Set ws = Sheets("الخزينة")
    Set sh = Sheets("طباعة")
      Application.ScreenUpdating = False
      If Range("B2") = True Then
    Range("الجدول3").AutoFilter Field:=2, Criteria1:=">=" & [B3], Operator:=xlAnd, _
    Criteria2:="<=" & [B4]
         sh.Range("E8:O507").ClearContents
        lr = sh.Cells(Rows.Count, 2).End(xlUp).Row + 1
        ws.Range("D12:N11011").SpecialCells(xlCellTypeVisible).Copy
        sh.Range("E" & lr).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
      End If
End Sub

 

[samycalls2020]

هذا الملف به الكود السابق ذكره ..

قمت بتحديد مدة زمنية كبيرة نسبياً فعند الضغط على زر الماكرو ستجد النسخ الى

ملف طباعة تجاوز ال 500 صف ..

كود نصفية ونفل.rar

[samycalls2020]

للرفع

[samycalls2020]

أفيدونى يرحمكم الله

للرفع

[samycalls2020]

للرفع

[samycalls2020]

للرفع

 

تم تعديل أغسطس 13, 2017 بواسطه samycalls2020