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

[اوفيس 2003]

السلام عليكم

 

لدي الالاف الأرقام التامينية وامام كل رقم بعض أرقام الأكواد ومنهم ماهو في عمود منفصل عن عمود اخر

 

 

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

 

مرفق مثال

Test100.rar

[عبدالله باقشير]

السلام عليكم

جرب الكود التالي:

Sub kh_Sort()
Dim N
Dim Lr As Long, r As Long, Lrr As Long
Dim c As Integer
'''''''''''''
Application.ScreenUpdating = False
'  اختيار العمود الاكثر طولا
For c = 1 To 6
    Lrr = Cells(Rows.Count, c).End(xlUp).Row
    If Lrr > Lr Then Lr = Lrr
Next
'''''''''''''
'
For r = 2 To Lr
    If Len(Trim(Cells(r, "A"))) Then
        N = Cells(r, "A").Value
    Else
        With Cells(r, "A")
            .Value = N
            .Interior.ColorIndex = 6
        End With
    End If
Next
''''''''''''''''''
'  الفرز للعمود الاول
With Range("A2:F" & Lr)
    .Sort .Columns(1), xlAscending
End With
''''''''''''''''''
For r = 2 To Lr
    With Cells(r, "A")
        If .Interior.ColorIndex = 6 Then
            .ClearContents
            .Interior.ColorIndex = -4142
        End If
    End With
Next
Application.ScreenUpdating = True
End Sub

شاهدالمرفق 2010

Test100.rar

 

 

[اوفيس 2003]

مشكور استاذنا الغالي  عبد الله 

 

ولكن هل هذا الكود يطبق على اي ملف بنفس الشكل ام ماذا 

[عبدالله باقشير]

 

مشكور استاذنا الغالي  عبد الله 

 

ولكن هل هذا الكود يطبق على اي ملف بنفس الشكل ام ماذا 

 

اذا كانت بنفس المكان وبنفس الحجم 

في اي ورقة او اي ملف  ممكن تنفيذ هذا الكود انطلاقا من مكان وجود الجدول

[اوفيس 2003]

بارك الله فيك استاذنا 

 

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

[ا بو سليمان]

ما شاء الله تبارك الله