عندي عمود فيه بيانات وعايز اجمع البيانات اللي ف العامود كله ف خلية واحده ويفصل بين كل معلومة واللي بعدها علامة الناقص مع العلم ان عندي اكثر من ١٢٠٠٠ سطر يعني ماينفعش & وايضاً عايز لو ضفت اَي حاجه ف العمود تظهر اوتوماتيك ف الخلية
بالفعل هو ده الكود الى بيعمله !!!! راجع الملف بشكل جيد
بالنسبه للجزئيه التانيه استبدل الكود بهذا الكود
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 1 And Target.Column <> 2 And Target.Column <> 3 And Target.Column <> 4 Then
Dim Lc As Long, r As Variant, i As Integer
Lc = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
For i = 5 To Lc
r = r & Cells(Target.Row, i