سليم حاصبيا قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 لا تشغل بالك بالمعادلات/اذا كنت تريد ان تحذف الفراغات من جدول ما فإن الكود يقوم بذلك دون ان يؤثر على الصفوف في بقية الأعمدة ازالة الفراغات.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 السلام عليكم أخى الفاضل / سليم تسلم ايديك على هذه الإبداعات ولاثراء الموضوع هذا كود آخر يعتمد على Array وبدون عمود مساعد Sub ragab() Dim i As Integer Dim LR As Integer Dim cl As Range Dim arr() As Variant '========================================= Set WF = Application.WorksheetFunction LR = Cells(Rows.Count, 1).End(xlUp).Row '========================================= For Each cl In Range("A1:A" & LR) If Not IsEmpty(cl) Then i = i + 1 ReDim Preserve arr(1 To i) arr(i) = cl End If Next Range("A:A").ClearContents Range("A1").Resize(i) = WF.Transpose(arr) Erase arr End Sub ازالة الفراغات.rar 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 16, 2014 الكاتب مشاركة قام بنشر مايو 16, 2014 تسلم ايديك اخي رجب كود رائع رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 أخى الفاضل / سليم جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 جزاكم الله خيرا جميعا رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 أخى الفاضل / أبو إيمان جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 ما شاء الله أخى فى الله الأستاذ // سليم أخى فى الله أستاذى القدير // رجب جاويش بارك الله فيكم وزادكم الله من فضله تقبلوا منى وافر الإحترام والتقدير رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 أخى الحبيب / محمود الشريف جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة تقبل أرق تحياتى وتقديرى رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 اخى رجب جاويش اكواد متقنة ومفيدة بارك الله فيك لى سؤال اخى هل من الممكن تطبيق الكود على عدة اعمدة بدل العمود a فقط اشكرك كل الشكر رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 أخى الفاضل / سعد عابد شكرا جزيلا على مرورك العطر وكلماتك الطيبة إن شاء الله أحاول تنفيذ فكرتك رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 السلام عليكم أخى الفاضل / سعد عابد تفضل ما تريد Sub ragab() Dim i As Integer Dim x As Integer Dim LR As Integer Dim cl As Range Dim arr() As Variant '========================================= Set WF = Application.WorksheetFunction '========================================= For x = 0 To 2 LR = Cells(Rows.Count, x + 1).End(xlUp).Row For Each cl In Range("A1:A" & LR).Offset(0, x) If Not IsEmpty(cl) Then i = i + 1 ReDim Preserve arr(1 To i) arr(i) = cl End If Next Range("A1").Offset(0, x).Resize(LR).ClearContents Range("A1").Offset(0, x).Resize(i) = WF.Transpose(arr) Erase arr i = 0 Next End Sub ازالة الفراغات2.rar رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر مايو 17, 2014 مشاركة قام بنشر مايو 17, 2014 إخوانى فى الله بارك الله فيكم وزادكم الله من فضله وبعد إذن الأستاذ // سليم وبعد إذن استاذى القدير // رجب جاويش كود لإزاله الخلايا الفارغة لعمود بيانات يمكن التعديل عليه الكود من اعداد الأستاذ القدير // عبد الله المجرب Sub حامل_المسك() Range("B1:C1000").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete Range("A1").Select End Sub وتقبلوا منى وافر الإحترام والتقدير رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 17, 2014 الكاتب مشاركة قام بنشر مايو 17, 2014 استاذ محمود /بعد السلام ورحمة الله الكود الذي ذكرته للاستاذ العلاّمة عبدالله ،فعّال جداً ولكنه يحذف كل الصفوف الفارغة من العامود الهدف و يحذف ايضاً الصفوف التي تقابلها من جميع الأعمدة حتى لو لم تكن فارغة/أرجو ان تكون قد فهمت قصدي رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 17, 2014 الكاتب مشاركة قام بنشر مايو 17, 2014 السلام عليكم استاذ رجب تعديل ممتاز على الكود جزاك الله خيراً و لكن عندي اقتراح/دع المستخدم نفسه يحدد عدد الأعمدة الهدف من خلال رقم يوضع في خلية معيّنة for x=0 to y حيث y=a1 وهو رقم يختاره المستخدم و يوضع في بداية الكود رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر مايو 17, 2014 مشاركة قام بنشر مايو 17, 2014 اخى رجب جاويش هو المطلوب شكرا شكرا والله اهم من وجود العلم هو وجود الاخلاق اخلاقك عاليه بارك الله فيك اشكرك رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 17, 2014 مشاركة قام بنشر مايو 17, 2014 أخى الحبيب / محمود الشريف جزاك الله كل خير بالنسبة لكود الأستاذ الكبير عبد الله المجرب فإنه كما قال لك أخى الفاضل سليم يقوم بحذف الصفوف الفارغة أما هذه الأكواد تقوم بتجميع البيانات بدون الفراغات من غير حذف للصفوف الفارغة رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 17, 2014 مشاركة قام بنشر مايو 17, 2014 أخى الفاضل / سليم اقتراح جميل وإن شاء الله أحاول تنفيذه رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 17, 2014 مشاركة قام بنشر مايو 17, 2014 أخى الفاضل / سعد عابد جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان