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