اريد استبدال الرقم أعلى كل خلية مكان الرقم الذى فى الخلية اسفلها اذا كان اكبر منه

[نورانور]

السلام عليكم

من فضلكم

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

ا رصد2015 دورثان.rar

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

الأخ الكريم نور

الملف غير منطقي بعض الشيء

الرقمين لطالبين مخلتفين !! أو يمكن أكون فهمت غلط

 

 

وضح ما هي الصفوف التي تخص كل طالب حيث أن الأمر ملتبس عليا بعض الشيء

[نورانور]

الرقمين لطالب واحد الدرجة بالدور الأول السفلى ثم الدرجة بالدور الثانى العليا لكل طالب صفين

تم تعديل يوليو 16, 2015 بواسطه نورانور

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

جرب الكود بهذا الشكل عله يفي بالغرض

Sub Test()
    Dim I As Long, J As Long, WS As Worksheet
    Set WS = Sheets("رصد 2015")
    Application.ScreenUpdating = False
        With WS
            For I = 15 To .Cells(Rows.Count, 1).End(xlUp).Row Step 2
                For J = 11 To 22
                    If .Cells(I, J) < .Cells(I - 1, J) And Not IsEmpty(.Cells(I - 1, J)) Then .Cells(I, J) = .Cells(I - 1, J)
                Next J
            Next I
        End With
    Application.ScreenUpdating = True
End Sub

[نورانور]

شكرا اخى هذا الكود اضعه فى الصفحة فى الماكرو ام اتشاء له زر

[نورانور]

اخى العزيز كل سنة وانت طيب

ياريت ملف مرفك اثابكم الله

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

تفضل أخي المنور نور أنور

 

 

Rasd2015.rar

[نورانور]

اشكرك وجزاك الله خيرا اخى والملف يعمل تماما وكل سنة طيب

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

الحمد لله الذي بنعمته تتم الصالحات

أخي الكريم نور أنور .. تقبل الله منا ومنكم

يرجى تحديد أفضل إجابة والضغط على كلمة "أعجبني هذا"