تجميع عدة اعمدة فى عمود واحد ( لمجال ديناميكى )

[ناصر حسان]

                                   أخواني الكرام

ارجوا المساعدة فى اتمام هدة العملية والتى حاولت فيها كثيرا ولم اوفق فيها

وهى تجميع عدة اعمدة فى عمود واحد تبدأ من الصف الثاني الى الصف الاخير

مع اهمال أي خلية فارغة ضمن المجال المحدد ( التجميع فى شيت تجميع )

                    ولكم فائق الشكر والاحترام

 

تجميع اعمدة.rar

[ابراهيم الحداد]

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

انسخ هذا الكود والصقه فى موديول جديد وخصص له زر

Sub Collection()
For R = 2 To Range("A" & Rows.Count).End(xlUp).Row
Z = ""
For Each C In Range("A" & R & ":F" & R)
If C <> "" Then
Z = Z & C.Value & "-"
End If
Next
Range("K" & R) = Mid(Z, 1, Len(Z))
Next
End Sub

 

[ناصر حسان]

بارك اللة بيك اخى الفاضل

جربت التعديل المقدم من حضرتك وهو يعمل

ولكن استاذى الفاضل كمل جميلك معى واريد تعديل الكود الخاص بحضرتك كما هو مبين باللون الاخضر فى المرفق

ولك كل الاحترام والتقدير

تجميع اعمدة.rar

[رجب جاويش]

السلام عليكم

بعد اذن الأستاذ الفاضل زيزو العجوز

أخى الفاضل ناصر

جرب هذا الجزء فى نهاية كود الأستاذ زيزو

[J2:J1000].ClearContents
For T = 1 To 6
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Not IsEmpty(Cells(i, T)) Then
            Range("J" & Range("j" & Rows.Count).End(xlUp).Row + 1) = Cells(i, T)
        End If
    Next
Next

 

[ناصر حسان]

الاستاذ الفاضل / رجب 

الف الف شكر  , لك الاحترام والتقدير هذا هو المطلوب بالضبط ....

جعلة اللة فى ميزان حسناتك ورحم  اللة بيها والديك

كما اشكر الاستاذ زيزو لة الاحترام والتقدير

واشكر هذا المنتدى الرائع والذى فعلا تجد ضالتك فية.

وهذاا هو المرفق

تحياتى

 

تجميع اعمدة.rar

[ابراهيم الحداد]

كل التقدير و الاحترام لاستاذنا الكبير الاستاذ / رجب

و هذا ايضا كود آخر يؤدى المطلوب دفعة واحدة

Sub Looping1()
Dim Arr As Variant, i As Integer, Lp As String, Fl As Variant
Lr = Sheet1.UsedRange.Rows.Count
Arr = Sheet1.Range("A2:F" & Lr)
For y = 1 To UBound(Arr, 2)
For i = 1 To UBound(Arr, 1)
If Arr(i, y) <> "" Then
p = p + 1
Lp = Arr(i, y)
Fl = Split(Lp, " ")
Cells(p + 1, 10) = Fl
End If
Next
Next
End Sub

 

 

 

 

 

[ناصر حسان]

الاستاذ الفاضل / زيزو العجوز

لك كل التحية واللة , جعلة اللة فى ميزان حسناتك يارب

ويرحم اللة بيها والديك يارب

وهذا هو المرفق

تحياتى

 

2تجميع اعمدة.rar