اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

 

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

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

  • Like 1
رابط هذا التعليق
شارك

 

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

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

 

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

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

 

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

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

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم 

 

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

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
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information