[حل شده] کنار هم گذاشتن اعداد در دفتر تلفن

[alikhassi]

سلام
دفتر تلفن دارم که میخواستم با تیک زدن مقابل اسمشون ، شماره تلفن اونا کنار هم گذاشته بشه و شماره ها بدون فاصله , گذاشته بشه .مثل نمونه
ممنون از راهنماییتون

[iranweld]

با سلام

هر چک باکس را بایستی به سلول مجاور آن مطابق تصویر لینک نمایید

Sub TEST()

Z1 = Cells(Rows.Count, "E").End(xlUp).Row

For I = 3 To Z1

If Range("E" & I) = True Then

If Len(XX) > 0 Then

XX = XX & "," & Range("C" & I)

Else

XX = Range("C" & I)

End If

End If

Next

Range("I6") = XX

End Sub 

[میثم مقدم نیا]

سلام
دفتر تلفن دارم که میخواستم با تیک زدن مقابل اسمشون ، شماره تلفن اونا کنار هم گذاشته بشه و شماره ها بدون فاصله , گذاشته بشه .مثل نمونه
ممنون از راهنماییتون

سلام
دوست عزیز فایل پیوست را ببینید به کارتون میاد

[حسام بحرانی]

سلام
دوست عزیز فایل پیوست را ببینید به کارتون میاد

سلام...
ممنون که بابت پاسخگویی به کاربران وقت میذارید...

[alikhassi]

عالی بود ممنون از لطفتون