استفسار عن فرز الارقام

[بومتعب]

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

 

عندي استفسار بخصوص طريقه فرز الارقام 

 

558216431

 

962558216431

 

بحيث اي رقم غير عن هذا العدد المكون من 9ارقام او 12 رقم يتم حذفه 

 

 

[طارق محمود]

Cond-Format.rarالسلام عليكم

مرفق حل ينبهك علي الخلايا التي طولها لايساوي 9 أو 12 بالتنسيق الشرطي Conditional Format

 

أرجو أن يكون هو ماتريد

وإلا إرفق أنت ملفا من عندك

[محمد حسن المحمد]

Cond-Format.rarالسلام عليكم

مرفق حل ينبهك علي الخلايا التي طولها لايساوي 9 أو 12 بالتنسيق الشرطي Conditional Format

 

أرجو أن يكون هو ماتريد

وإلا إرفق أنت ملفا من عندك

الأستاذ طارق محمود المحترم جزاك الله خيرأ على تنبيهه عن الأرقام التي تزيد أو تنقص عن هاتين القيمتين إلا أنك لم توجد طريقة لحذف تلك الأرقام المخالفة للشرط الذي حددته راجياً لك التوفيق والسداد...

[طارق محمود]

أرجو أن تقرر ياأخي بعد الحذف يترحل باقي الجدول لأعلي أم لليسار

[محمد حسن المحمد]

 

Cond-Format.rarالسلام عليكم

مرفق حل ينبهك علي الخلايا التي طولها لايساوي 9 أو 12 بالتنسيق الشرطي Conditional Format

 

أرجو أن يكون هو ماتريد

وإلا إرفق أنت ملفا من عندك

الأستاذ طارق محمود المحترم جزاك الله خيرأ على تنبيهه عن الأرقام التي تزيد أو تنقص عن هاتين القيمتين إلا أنك لم توجد طريقة لحذف تلك الأرقام المخالفة للشرط الذي حددته راجياً لك التوفيق والسداد...

 

أعتذر أخي طارق ....رأيت هذه الأرقام قد تم تنسيقها كما قلت بالتنسيق الشرطي إلا أنني لم أر فرزاً أو تصفية لهذه الأرقام دون غيرها ...أكرر اعتذاري لأن صاحب الطلب لم يطلب الترحيل... شكراً على سعة صدركم.

[ياسر خليل أبو البراء]

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

لم أطلع على الملف بعد ..لكن لي سؤال ماذا تقصد بعملية الفرز هل تقصد الترتيب ؟ وما مصير الأرقام التي لا تطابق الشرط هل تحذف؟

[محمد حسن المحمد]

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

لم أطلع على الملف بعد ..لكن لي سؤال ماذا تقصد بعملية الفرز هل تقصد الترتيب ؟ وما مصير الأرقام التي لا تطابق الشرط هل تحذف؟

 

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

 

عندي استفسار بخصوص طريقه فرز الارقام 

 

558216431

 

962558216431

 

بحيث اي رقم غير عن هذا العدد المكون من 9ارقام او 12 رقم يتم حذفه 

أحبك الله الذي أحببتنا لأجله ...كلمة تثلج الصدر ... أقصد تصفيتها من بين زحمة الأرقام التي وجدت ضمنها.لاحظ سؤاله يريد طريقة لفرز تلك الأرقام ثم يطلب حذف الأرقام المخالفة ...هذا ما فهمته من سؤاله ... والله أعلم.

[ياسر خليل أبو البراء]

الأخ الكريم أبو يوسف

لم ترفق ملف فعملت على الملف المرفق الذي تفضل به الباشمهندس طارق

النتائج في العمود L ..تم عمل كود ليجمع البيانات من الأعمدة ثم حذف الأرقام التي لا تطابق الشرط

Sub CopyAllToOneColumn()
    Dim lCol As Long, lRow As Long
    Dim LR As Long, I As Long
    Dim Cell As Range
    
    LR = Cells(Rows.Count, 2).End(xlUp).Row
    lRow = 2
    Application.ScreenUpdating = False
        Range("L2:L1000").ClearContents
        For lCol = 2 To 10
            Cells(lRow, 12).Resize(LR - 1).Value = Range(Cells(2, lCol), Cells(LR, lCol)).Value
            lRow = Cells(Rows.Count, 12).End(xlUp).Row + 1
        Next lCol

        For I = lRow - 1 To 2 Step -1
            If Len(Cells(I, 12)) <> 9 And Len(Cells(I, 12)) <> 12 Then
                Cells(I, 12).Delete Shift:=xlUp
            End If
        Next I
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

Delete Numbers Based On Length.rar

[محمد حسن المحمد]

الأخ الكريم أبو يوسف

لم ترفق ملف فعملت على الملف المرفق الذي تفضل به الباشمهندس طارق

النتائج في العمود L ..تم عمل كود ليجمع البيانات من الأعمدة ثم حذف الأرقام التي لا تطابق الشرط

Sub CopyAllToOneColumn()
    Dim lCol As Long, lRow As Long
    Dim LR As Long, I As Long
    Dim Cell As Range
    
    LR = Cells(Rows.Count, 2).End(xlUp).Row
    lRow = 2
    Application.ScreenUpdating = False
        Range("L2:L1000").ClearContents
        For lCol = 2 To 10
            Cells(lRow, 12).Resize(LR - 1).Value = Range(Cells(2, lCol), Cells(LR, lCol)).Value
            lRow = Cells(Rows.Count, 12).End(xlUp).Row + 1
        Next lCol

        For I = lRow - 1 To 2 Step -1
            If Len(Cells(I, 12)) <> 9 And Len(Cells(I, 12)) <> 12 Then
                Cells(I, 12).Delete Shift:=xlUp
            End If
        Next I
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

أشكركما جزيل الشكر وأرجو ألا أكون ثقيل الظل فما أنا إلا طالب يخوض في ساحل بحركم الزاخر بالعلم والمعرفة .....شعاري:"وقل رب زدني علماً" ....تقبلوا تحيات أخيكم أبو يوسف

[ياسر خليل أبو البراء]

أستاذي أبو يوسف

بارك الله فيك وجزيت خيراً فأنت أستاذنا ومعلمنا ، ومنكم إن شاء الله نستفيد

إذا كانت المشاركة قد حلت المشكلة فيرجى تحديد أفضل إجابة ليظهر الموضوع منتهي

[محمد حسن المحمد]

الأخ الكريم أبو يوسف

لم ترفق ملف فعملت على الملف المرفق الذي تفضل به الباشمهندس طارق

النتائج في العمود L ..تم عمل كود ليجمع البيانات من الأعمدة ثم حذف الأرقام التي لا تطابق الشرط

Sub CopyAllToOneColumn()
    Dim lCol As Long, lRow As Long
    Dim LR As Long, I As Long
    Dim Cell As Range
    
    LR = Cells(Rows.Count, 2).End(xlUp).Row
    lRow = 2
    Application.ScreenUpdating = False
        Range("L2:L1000").ClearContents
        For lCol = 2 To 10
            Cells(lRow, 12).Resize(LR - 1).Value = Range(Cells(2, lCol), Cells(LR, lCol)).Value
            lRow = Cells(Rows.Count, 12).End(xlUp).Row + 1
        Next lCol

        For I = lRow - 1 To 2 Step -1
            If Len(Cells(I, 12)) <> 9 And Len(Cells(I, 12)) <> 12 Then
                Cells(I, 12).Delete Shift:=xlUp
            End If
        Next I
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

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

[ياسر خليل أبو البراء]

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

في أسفل كل مشاركة يوجد كلمة "تحديد كأفضل إجابة"

بتشوف المشاركة التي حلت المشكلة وتحددها كأفضل إجابة ليظهر الموضوع مجاب ومنتهي