[عنوان معدل] إدراج صفوف بنفس تنسيق الصف الاعلى سابقاً (Insert a macro that will insert a row )

[Siba Bush]

أريد أن أدخل الماكرو الذي سيتم إدراج صف ونسخ الصيغ تلقائيا من الصف أعلاه، الصيغ في الأعمدة R، T، V

 

الرجاء المساعدة 

 

وشكراً

 

 

 

i wanna Insert a macro that will insert a row and automatically copy formulas from the row above, the formulas are in columns R,T,V

can i get some help ??

thank you :)

 

[ضاحي الغريب]

أخي الكريم // 

لاضافة صفوف مع نسخة معادلة استخدم الكود التالي

 

 

Sub InSert_Row()
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown
End Sub

ولا ضافة صفوف مع نسخ القيم استخدم الكود التالي

 

 

Sub Insert_Row_2()
R = ActiveCell.Row
ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown
Range("O" & R + 1 & ":AA" & R + 1).Formula = Range("O" & R & ":AA" & R).Formula
Range("AN" & R + 1 & ":AO" & R + 1).Formula = Range("AN" & R & ":AO" & R).Formula
Range("AQ" & R + 1 & ":AR" & R + 1).Formula = Range("AQ" & R & ":AR" & R).Formula
End Sub

[دغيدى]

الأخت الفاضلة / Siba Bush 

أنت خالفت قواعد المشاركة 

أولا اسم الظهور يجب ان يكون باللغة العربية

ثانيا   المشاركة والطلب بغير العربية .. هل لأنك لا تعرفى العربية أم شيء آخر

زميلى المحترم / ضاحى الغريب

أليس بغريب عليك  تلك المشاركة ولم تلفت نظرها لتعم الفائدة

 

=======================================

عفوا إن لم يتم التعديل سوف يحذف الموضوع أو يغلق

[ضاحي الغريب]

استاذنا وعميدنا الاستاذ / دغيدي

اولا انا اتأسف لانني اعتقد ان السائل لا يجيد التعامل بالعربية 

لذلك قمت بالرد عليه

لانه لاحظت انه سال بالأنجليزية

وان كان غير ذلك فانا اعتذر جدا

انا فقط احببت ان اساعده لاعتقادي انه لا يجيد العربية 

تقبل اسفي وتحياتي

[دغيدى]

أخى ضاحى

سلام الله عليكم

لااعتذار بيننا

الأخت صيدلانية 

[Siba Bush]

well, i've already tried that codes and it didn't work .
 any way thanks for your help.

 

[ضاحي الغريب]

أخي الحبيب وعميدنا الأستاذ // جمال الدغيدي

جزاك الله خيرا وبارك الله فيك

مع تحياتي

[Siba Bush]

أخي الكريم // 

لاضافة صفوف مع نسخة معادلة استخدم الكود التالي

 

 

Sub InSert_Row()
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown
End Sub

ولا ضافة صفوف مع نسخ القيم استخدم الكود التالي

 

 

Sub Insert_Row_2()
R = ActiveCell.Row
ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown
Range("O" & R + 1 & ":AA" & R + 1).Formula = Range("O" & R & ":AA" & R).Formula
Range("AN" & R + 1 & ":AO" & R + 1).Formula = Range("AN" & R & ":AO" & R).Formula
Range("AQ" & R + 1 & ":AR" & R + 1).Formula = Range("AQ" & R & ":AR" & R).Formula
End Sub

[Siba Bush]

could you please edit that macro In order to match the columns R,T,V in my work sheet ??
'cause i'm not good at VSA

thanks again

[عبدالله المجرب]

الاستاذ الفاضل دغيدي 

 

الملاحظ بأن الأخت تعيش في الولايات المتحدة الاميريكية

 

=========================================

 

Dear Sister

Is it possible to attach a file to work on it

[دغيدى]

شكرا أخى الكريم / أبو عبد الله

كان يجب على / السيدة Siba Bush

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

شكرا جزيلا

[Siba Bush]

I do know Arabic, but not good enough .
I can explain my questions in English more clearly .
i can't tell the differnce wheather i asked in English or Arabic as long as you can got me.

شكرا لمساعدتكم

[دغيدى]

Welcome .......Sorry .........We are all with you

[أبو سجده]

جزاك الله خيرا