حامل المسك قام بنشر سبتمبر 17, 2016 مشاركة قام بنشر سبتمبر 17, 2016 السلام عليكم ورحمة الله وبركاته .. وفقكم الله تعلمون أن اكسل به أعمدة A b c d إلى آخره وصفوف 1 2 3 4 إلخ لدي بيانات في مجموعة من الصفوف أريد إدراج صف فارغ بعد كل صف به بيانات مع جزيل الشكر وفقكم الله .. رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر سبتمبر 17, 2016 الكاتب مشاركة قام بنشر سبتمبر 17, 2016 مرفق مثال للتعديل المصنف1.rar رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر سبتمبر 17, 2016 مشاركة قام بنشر سبتمبر 17, 2016 Option Explicit Sub Mokhtar_Inserting_blank_row_after_every_row_with_data() Dim R As Long, Fr As Long, Lr As Long With Application .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False End With Fr = ActiveSheet.Range("B8").Row ' أول صف به بيانات Lr = ActiveSheet.Range("B8").End(xlDown).Row ' آخر صف به بيانات For R = Lr To Fr Step -1 If Application.WorksheetFunction.CountA(Rows(R)) > 0 Then ' شرط اضافة الصف الفارغ : أن يكون الصف به بيانات Rows(R).Insert shift:=xlDown Else End If Next R With Application .Calculation = xlCalculationAutomatic .ScreenUpdating = True .EnableEvents = True .DisplayAlerts = True End With End Sub ضع الكود فى مديول عادى 1 رابط هذا التعليق شارك More sharing options...
قلم-الاكسل(عبدالعزيز) قام بنشر سبتمبر 17, 2016 مشاركة قام بنشر سبتمبر 17, 2016 شكرا استاذنا مختار وكود ممتاز مبدع الله يبارك فيك دووما رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر سبتمبر 17, 2016 مشاركة قام بنشر سبتمبر 17, 2016 ربنا يبارك فيك أخى عبدالعزيز تحياتى لمنع تحريك الخلية الاولى من مكانها ضع السطر ده Fr = ActiveSheet.Range("B8").Offset(1).Row ' أول صف به بيانات +1 مكان السطر Fr = ActiveSheet.Range("B8").Row ' أول صف به بيانات رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر سبتمبر 17, 2016 الكاتب مشاركة قام بنشر سبتمبر 17, 2016 مبدع مبدع ماشاء الله تبارك الله زادكم الله نورا وهدى وتوفيقا .. رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر سبتمبر 17, 2016 مشاركة قام بنشر سبتمبر 17, 2016 بسم الله ما شاء الله عليك أخي الغالي مختار نشاط رائع ومجهود فوق العادة .. لا حرمنا الله منك إثراءً للموضوع إليكم الكود التالي رابط الكود من هنا رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر أكتوبر 10, 2016 مشاركة قام بنشر أكتوبر 10, 2016 اخي مختار حسين محمود ما شاء الله عليك جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
abassreda قام بنشر أكتوبر 12, 2016 مشاركة قام بنشر أكتوبر 12, 2016 جزاكم الله كل خير كود محترم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.