البحث في الموقع
Showing results for tags 'تعديل فى كود نسخ'.
تم العثور علي 1 نتيجه
-
السلام عليكم .. هذا كود يقوم بتصفية على تاريخ بداية فى 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
