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

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

قام بنشر

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

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

 

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

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

  • 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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information