بالكود_ نسخ صف مماثل بالتنسيقات والمعادلات

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

 

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

 

 

تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير

 

Sub KH_FillDown()

Dim Last As Long

Last = Range("A" & Rows.Count).End(xlUp).Row + 1

On Error Resume Next

With Rows(Last)

    .FillDown

    .SpecialCells(xlConstants).ClearContents

End With

On Error GoTo 0

End Sub

 

وهو يعتمد على اخر خلية في العمود A

يضيف صف مع المعادلات فقط ويمسح القيم

 

مرفق الملف

INVOICE.rar

و لو أردنا أن يضيف الكود عدد من الصفوف محدد بقيمة في خلية ما في صفحة أخرى غير التي نعمل عليها

 

استخدم الكود التالي:

Sub KH_Copy()

On Error Resume Next

Dim Last As Long

Dim Count As Integer

Count = 1

Count = Sheets("KHBOOR").Range("F9").Value

With ActiveSheet

    Last = .Range("A" & .Rows.Count).End(xlUp).Row

    .Rows(Last).Copy .Rows(Last + 1).Resize(Count)

    .Rows(Last + 1).Resize(Count).SpecialCells(xlConstants).ClearContents

End With

On Error GoTo 0

End Sub

مرفق الملف

 

KH_COPY.rar

 

 و لا تنسونا من صالح الدعاء

تحياتى