ازالة الفراغات دون التاثير على الصفوف في بقية الأعمدة

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

لا تشغل بالك بالمعادلات/اذا كنت تريد ان تحذف الفراغات

  من جدول ما فإن  الكود يقوم بذلك دون ان يؤثر على الصفوف في بقية الأعمدة

ازالة الفراغات.rar

[رجب جاويش]

السلام عليكم

أخى الفاضل / سليم

تسلم ايديك على هذه الإبداعات

 

ولاثراء الموضوع هذا كود آخر يعتمد على 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

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

تسلم ايديك اخي رجب

كود رائع

[رجب جاويش]

أخى الفاضل / سليم

جزاك الله كل خير

[أبو إيمان]

جزاكم الله خيرا جميعا

[رجب جاويش]

أخى الفاضل / أبو إيمان

جزاك الله كل خير

[محمود_الشريف]

ما شاء الله

أخى فى الله 

الأستاذ // سليم

أخى فى الله

أستاذى القدير // رجب جاويش

بارك الله فيكم وزادكم الله من فضله

تقبلوا منى وافر الإحترام والتقدير

[رجب جاويش]

أخى الحبيب / محمود الشريف

جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة

تقبل أرق تحياتى وتقديرى

[saad abed]

اخى رجب جاويش

اكواد متقنة ومفيدة بارك الله فيك

لى سؤال اخى

هل من الممكن تطبيق الكود على عدة اعمدة بدل العمود a فقط

اشكرك كل الشكر

[رجب جاويش]

أخى الفاضل / سعد عابد

شكرا جزيلا على مرورك العطر وكلماتك الطيبة

 

إن شاء الله أحاول تنفيذ فكرتك

[رجب جاويش]

السلام عليكم

أخى الفاضل / سعد عابد

تفضل ما تريد

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

[محمود_الشريف]

إخوانى فى الله

بارك الله فيكم وزادكم الله من فضله

وبعد إذن الأستاذ // سليم

وبعد إذن استاذى القدير // رجب جاويش

 

كود لإزاله الخلايا الفارغة لعمود بيانات يمكن التعديل عليه

الكود من اعداد الأستاذ القدير // عبد الله المجرب

Sub حامل_المسك()
    Range("B1:C1000").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
    Range("A1").Select
End Sub

وتقبلوا منى وافر الإحترام والتقدير

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

استاذ محمود /بعد السلام ورحمة الله

الكود الذي ذكرته للاستاذ العلاّمة عبدالله ،فعّال جداً ولكنه يحذف كل الصفوف الفارغة من العامود الهدف و يحذف ايضاً الصفوف التي تقابلها من جميع الأعمدة حتى لو لم تكن فارغة/أرجو ان تكون قد فهمت قصدي

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

السلام عليكم استاذ رجب

تعديل ممتاز على الكود جزاك الله خيراً

و لكن عندي اقتراح/دع المستخدم نفسه يحدد عدد الأعمدة الهدف من خلال رقم يوضع في خلية معيّنة

for x=0 to y       حيث  y=a1    وهو رقم يختاره المستخدم و يوضع في بداية الكود

[saad abed]

اخى رجب جاويش

هو المطلوب شكرا شكرا

والله اهم من وجود العلم  هو وجود الاخلاق اخلاقك عاليه بارك الله فيك

اشكرك

[رجب جاويش]

أخى الحبيب / محمود الشريف

جزاك الله كل خير

 

بالنسبة لكود الأستاذ الكبير عبد الله المجرب فإنه كما قال لك أخى الفاضل سليم يقوم بحذف الصفوف الفارغة

أما هذه الأكواد تقوم بتجميع البيانات بدون الفراغات من غير حذف للصفوف الفارغة

[رجب جاويش]

أخى الفاضل / سليم

اقتراح جميل

وإن شاء الله أحاول تنفيذه

[رجب جاويش]

أخى الفاضل / سعد عابد

جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة