اذهب الي المحتوي
أوفيسنا

[عنوان معدل] إدراج صفوف بنفس تنسيق الصف الاعلى سابقاً (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 

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

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

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

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

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

 

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

أخي الكريم // 

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

 

 

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
رابط هذا التعليق
شارك

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

 

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

 

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

 

Dear Sister

Is it possible to attach a file to work on it
رابط هذا التعليق
شارك

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

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

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

شكرا جزيلا

رابط هذا التعليق
شارك

  • 6 months later...

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information