Siba Bush قام بنشر أبريل 13, 2013 مشاركة قام بنشر أبريل 13, 2013 أريد أن أدخل الماكرو الذي سيتم إدراج صف ونسخ الصيغ تلقائيا من الصف أعلاه، الصيغ في الأعمدة 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 :) رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر أبريل 13, 2013 مشاركة قام بنشر أبريل 13, 2013 أخي الكريم // لاضافة صفوف مع نسخة معادلة استخدم الكود التالي 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 رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أبريل 13, 2013 مشاركة قام بنشر أبريل 13, 2013 الأخت الفاضلة / Siba Bush أنت خالفت قواعد المشاركة أولا اسم الظهور يجب ان يكون باللغة العربية ثانيا المشاركة والطلب بغير العربية .. هل لأنك لا تعرفى العربية أم شيء آخر زميلى المحترم / ضاحى الغريب أليس بغريب عليك تلك المشاركة ولم تلفت نظرها لتعم الفائدة ======================================= عفوا إن لم يتم التعديل سوف يحذف الموضوع أو يغلق 1 رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر أبريل 13, 2013 مشاركة قام بنشر أبريل 13, 2013 استاذنا وعميدنا الاستاذ / دغيدي اولا انا اتأسف لانني اعتقد ان السائل لا يجيد التعامل بالعربية لذلك قمت بالرد عليه لانه لاحظت انه سال بالأنجليزية وان كان غير ذلك فانا اعتذر جدا انا فقط احببت ان اساعده لاعتقادي انه لا يجيد العربية تقبل اسفي وتحياتي رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أبريل 13, 2013 مشاركة قام بنشر أبريل 13, 2013 أخى ضاحى سلام الله عليكم لااعتذار بيننا الأخت صيدلانية رابط هذا التعليق شارك More sharing options...
Siba Bush قام بنشر أبريل 13, 2013 الكاتب مشاركة قام بنشر أبريل 13, 2013 well, i've already tried that codes and it didn't work . any way thanks for your help. رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر أبريل 13, 2013 مشاركة قام بنشر أبريل 13, 2013 أخي الحبيب وعميدنا الأستاذ // جمال الدغيدي جزاك الله خيرا وبارك الله فيك مع تحياتي رابط هذا التعليق شارك More sharing options...
Siba Bush قام بنشر أبريل 13, 2013 الكاتب مشاركة قام بنشر أبريل 13, 2013 أخي الكريم // لاضافة صفوف مع نسخة معادلة استخدم الكود التالي 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 رابط هذا التعليق شارك More sharing options...
Siba Bush قام بنشر أبريل 13, 2013 الكاتب مشاركة قام بنشر أبريل 13, 2013 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 رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أبريل 13, 2013 مشاركة قام بنشر أبريل 13, 2013 الاستاذ الفاضل دغيدي الملاحظ بأن الأخت تعيش في الولايات المتحدة الاميريكية ========================================= Dear Sister Is it possible to attach a file to work on it رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أبريل 13, 2013 مشاركة قام بنشر أبريل 13, 2013 شكرا أخى الكريم / أبو عبد الله كان يجب على / السيدة Siba Bush التنويهبظروفها وخاصة المنتدى باللغة العربية وأكيد هى تعرف العربية شكرا جزيلا رابط هذا التعليق شارك More sharing options...
Siba Bush قام بنشر أبريل 13, 2013 الكاتب مشاركة قام بنشر أبريل 13, 2013 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. شكرا لمساعدتكم رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أبريل 13, 2013 مشاركة قام بنشر أبريل 13, 2013 Welcome .......Sorry .........We are all with you 1 رابط هذا التعليق شارك More sharing options...
أبو سجده قام بنشر نوفمبر 10, 2013 مشاركة قام بنشر نوفمبر 10, 2013 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان