اضافه صف فى جدول

[احمد حسن الامام]

السلام عليكم 

ممكن  اضافه صفوف فى جدول بعدد الرقم الذى يكتب فى خليه معينه 

 

كشف اقساط.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم هذا الكود

Sub AddRows()
Dim x As Integer, i As Integer
Application.ScreenUpdating = False
x = Sheets("ورقة1").Range("D7") - 2
For i = 1 To x
Sheets("ورقة1").Range("A13").EntireRow.Insert
Next
Application.ScreenUpdating = True
End Sub

 

[احمد حسن الامام]

تسلم الايادى 

  لا يعمل 

ممكن حضرتك اضافه فى الملف 

[سمير نجار]

تفضل اخي الكريم

 

كشف اقساط.xlsm

[ابراهيم الحداد]

السلام عليكم ورحمة الله

الملف يعمل لدى بمنتهى الكفاءة

اليك الملف

 

كشف اقساط.rar

[احمد حسن الامام]

شكرا لكم  كثير

استاذ

سمير نجار 

واستاذ

زيزو العجوز

طلب اخر هل يمكن  ينسخ المعادله التى فى الصف 

 

تم تعديل مارس 15, 2018 بواسطه احمد حسن الامام