سليم حاصبيا قام بنشر يونيو 26, 2015 مشاركة قام بنشر يونيو 26, 2015 رمضان كريم اخواني في المنتدى اليكم هذا اللغز حاولوا ان تجدوا له الحل (سوف ارسل لكم الباسورد لاحقاً) تجميع خلايا 2003.rar 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر يونيو 26, 2015 مشاركة قام بنشر يونيو 26, 2015 السلام عليكم هذا الحل قريب من الحزورة استعرت الكود - وليسمح لي صاحبه جزاه الله خيراً تجميع خلايا 2007.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 26, 2015 مشاركة قام بنشر يونيو 26, 2015 أخي الحبيب سليم بارك الله فيك على الموضوع المتميز والرائع .. فكرتنا بأيام زماااان أخي الغالي أبو يوسف كود في منتهى الروعة وحل بارع .. تسلم الأيادي 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر يونيو 26, 2015 مشاركة قام بنشر يونيو 26, 2015 أخي الحبيب سليم بارك الله فيك على الموضوع المتميز والرائع .. فكرتنا بأيام زماااان أخي الغالي أبو يوسف كود في منتهى الروعة وحل بارع .. تسلم الأيادي السلام عليكم ورحمة الله وبركاته: أخي وحبيببي في الله ياسر أبو البراء المحترم هذا بعضاً مما عندكم ...لا أدعي لنفسي فضلاً بذلك بل للأخ الذي كتب الكود فأنا مثل الشعب العربي يستهلك ما ينتجه الغرب... .. أشكركم على هذا الدعم المعنوي .. والسلام عليكم ورحمة الله وبركاته.. رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يونيو 26, 2015 مشاركة قام بنشر يونيو 26, 2015 السلام عليكم اليكم مشاركة على السريع 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان