ارجو التعديل على كود اضافه سطر

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

وكل عام وانتم جميعا بخير

اريد عند اضافة سطر ان يتم الاضافه للخلايا من b الى g

مدموجه مع بعضها

هل يمكن عمل ذلك

ارجو المساعده بارك الله فيكم

SHER.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم إبراهيم، تم تعديل طفيف على الكود بإضافة الأسطر التالية (في عدة مواضع) :

    Range(Cells(Target.Row + 1, 4), Cells(Target.Row + 1, 7)).Select

    Selection.Merge

    Cells(Target.Row + 1, 1).Select

الكل تجده في الملف المرفق (ملف إكسيل 2003)...

أخوك بن علية

SHER.rar

[إبراهيم ابوليله]

الاخ بن علية

بارك الله فيك

ولكن هل من شرح للاستفاده

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم إبراهيم، الإضافة التي وضعتها في الكود والتي تتمثل في الأسطر التالية

        Range(Cells(Target.Row + 1, 4), Cells(Target.Row + 1, 7)).Select

        Selection.Merge

        Cells(Target.Row + 1, 1).Select

لا تحتاج إلى شرح ولكن أحاول تقريب مفهومها لتتضح الصورة... أولا هذه الإضافات وُضعت مباشرة بعد إدراج السطر في نهاية الجداول...

* السطر الأول يقوم بتحديد الخلايا في السطر المضاف من العمود رقم 4 (أي العمود D) إلى العمود رقم 7 (أي العمود G)

* السطر الثاني يقوم بدمج Merge للخلايا المحددة من هذا السطر

* السطر الثالث يعيد المؤشر (التحديد) إلى الخلية الأولى (من العمود A) من السطر المضاف

أرجو أني وُفقت في الشرح...

أخوك بن علية

[إبراهيم ابوليله]

الاخ بن علية

بارك الله فيك

ومشكورا على الشرح