أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
khaled alborene Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil برنامج مرتبات الصقر - الاصدار التانى - حسام خطاب اكسيل اسئله واجابات




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





Excel-VBA لنسخ سطر تحت سطر معين بعد إضافة محتوى لخلية فارغة من ضمن مجموعة معينة

السلام عليكم جميعاً, احتاج سكريبت لينسخ سطر جاهز لتحت منه بعد تعديله اثناء النسخ بإضافة محتوى خليه من مجموعة خلايا معينه ..



09-09-2018 11:59 صباحا
Ahmed ElGammal
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 09-09-2018
رقم العضوية : 7943
المشاركات : 1
الجنس : ذكر
تاريخ الميلاد : 15-7-1986
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
الاعجاب : 0
 offline 

السلام عليكم جميعاً,
احتاج سكريبت لينسخ سطر جاهز لتحت منه بعد تعديله اثناء النسخ بإضافة محتوى خليه من مجموعة خلايا معينه,
علماً بان السطر المنسوخ يوجب إزاحة باقى الشيت لتحت من دون الاضرار بمحتواه او افساد باقى الاسطر المعتمده علي مضمون خلايا اخرى,

,Need to insert new row copied from the one above it after filling a new cell in a certain range of cells
the result should be a concatenated row/cells with the data inserted into a cell of the mentioned range in a new row after pushing all the below rows down






09-09-2018 12:35 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 329
قوة السمعة : 14684
الاعجاب : 5481
 offline 
look/images/icons/i1.gif Excel-VBA لنسخ سطر تحت سطر معين بعد إضافة محتوى لخلية فارغة من ضمن مجموعة معينة
وعليكم السلام أخي الكريم
يفضل إرفاق ملف لتتضح صورة طلبك بشكل أدق ..
أو جرب الكود التالي عله يفيدك
Sub Test()
    Dim m As Long

    Application.ScreenUpdating = False
        m = Cells(Rows.Count, 1).End(xlUp).Row
        Cells(m, 1).EntireRow.Copy Destination:=Cells(m + 1, 1).Resize(1)
    Application.ScreenUpdating = True
End Sub


أثارت هذه المشاركة إعجاب: Yasser Elaraby، محمد النيل، اباالياس،






الكلمات الدلالية
Excel-VBA ، لنسخ ، معين ، إضافة ، محتوى ، لخلية ، فارغة ، مجموعة ، معينة ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 09:03 صباحا

أعلن هنا
أعلن هنا
أعلن هنا