دمج خليتين فى خلية

[خالد الشاعر]

السادة الخبراء

عندى فى الملف المرفق شيت1 به عمود a  . b . c , عمودين للاسماء

اريد فى شيت 2 وضعهم كلهم لوحدهم مع وضع اسم1 و اسم2 فى خلية واحدة

هل هذا ينفع بالماكرو

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

دمج.zip

[ياسر خليل أبو البراء]

أخي الكريم خالد الشاعر

جرب الكود التالي عله يفي بالغرض

Sub Test()
    Dim lRow As Long, I As Long
    lRow = 4
    Application.ScreenUpdating = False
    With Sheet1
        For I = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            Sheet2.Cells(lRow, 1) = .Cells(I, 1)
            Sheet2.Cells(lRow, 2) = .Cells(I, 2) & " " & .Cells(I, 3)
            lRow = lRow + 1
        Next I
    End With
    Application.ScreenUpdating = True
End Sub

 

[محمد حسن المحمد]

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

إجابة موفقة وكود رائع .

تم من خلاله جمع الأسماء بشطري كل منها في خلية واحدة .

وفقك الله إلى كل خير يا نبض المنتدى والسلام عليكم.

[خالد الشاعر]

استاذ ياسر

شكراً على الاهتمام و كود رائع فعلاً

ولكن اريد فصل مثال a وفصل b كشف وحدة

بالاضافة هل ممكن الكون يجعل الاسمين فى الخلية فوق بعض مثال اسم1 تحتة اسم 2

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

[ياسر خليل أبو البراء]

أخي الحبيب خالد

اعذرني لن أستجيب للطلب الثاني ..لأنك لم تذكر شيء عنه في بداية الموضوع .. والطلب مختلف عن الطلب الاول

يمكنك طرح موضوع جديد بالطلب الجديد .. ولا تنسى أن تغلق الموضوع بتحديد أفضل إجابة قبل بدء موضوعك الجديد

عارف إني مستفز النهاردة (بس لازم نمشي صح)

تقبل تحياتي

[خبير الاكسيل محمد]

استاذ ياسر

شكراً على الاهتمام و كود رائع فعلاً

ولكن اريد فصل مثال a وفصل b كشف وحدة

بالاضافة هل ممكن الكون يجعل الاسمين فى الخلية فوق بعض مثال اسم1 تحتة اسم 2

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

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