حزورة رمضان رقم 2

[سليم حاصبيا]

رمضان كريم

اخواني في المنتدى

اليكم هذا اللغز حاولوا ان تجدوا له الحل (سوف ارسل لكم الباسورد لاحقاً)

 

تجميع خلايا 2003.rar

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

السلام عليكم 

هذا الحل قريب من الحزورة 

استعرت الكود  - وليسمح لي صاحبه جزاه الله خيراً

تجميع خلايا 2007.rar

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

أخي الحبيب سليم

بارك الله فيك على الموضوع المتميز والرائع .. فكرتنا بأيام زماااان

 

أخي الغالي أبو يوسف

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

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

 

أخي الحبيب سليم

بارك الله فيك على الموضوع المتميز والرائع .. فكرتنا بأيام زماااان

 

أخي الغالي أبو يوسف

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

 

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

أخي وحبيببي في الله ياسر أبو البراء المحترم 

هذا بعضاً مما عندكم ...لا أدعي لنفسي فضلاً بذلك بل للأخ الذي كتب الكود 

فأنا مثل الشعب العربي يستهلك ما ينتجه الغرب...

..      أشكركم على هذا الدعم المعنوي      ..

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

[عبدالله المجرب]

السلام عليكم 

 

اليكم مشاركة على السريع 

Sub Abu_Ahmed()
Dim lstCol, Col, i
Dim cl As Range
Col = UsedRange.Columns.Count
lstCol = Col
Columns(Col).ClearContents
For Each cl In UsedRange
If Not IsEmpty(cl) Then Cells(i + 1, Col) = cl: i = i + 1
Next
End Sub