كود لاضافة سطر جديد

[حليم ناصر]

سلام عليكم

سادة الاعضاء سلام عليكم اتمنى ان تكونوا في احسن حال ان شاء الله

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

وهذا دون اتباع الخطوات العادية لاضافة سطر بل بالكود

مثلا اريد اضافة سطر جديد بين  فاتورتين  230706406 و 230706408 لاضافة فاتورة جديد رقمها 230706407 مثل ماهو في المرفق وبمبلغ 60000

اتمنى ان اجد الجواب

وفي انتظار ردكم تقبلو مني فائق التقذير والاحترام

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

كود اضافة سطر.xlsx

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

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

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

Sub AddRow()
Selection.EntireRow.Insert , xlFormatFromLeftOrAbove
End Sub

 

[حليم ناصر]

سلام عليكم

اشكرك اسناذ ابراهيم الحداد و بارك الله فيك و جزاك الله عنا خيرا