تعديل كود

[طالب مدرسة أوفيسنا]

السلام عليكم

 

المطلوب تعديل هذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A2").Value < Range("B2") Then
Range("B2").ClearContents
End If
  
If Range("A3").Value < Range("B3") Then
Range("B3").ClearContents
End If

End Sub

طريقة عمله يقوم اذاكانت الخلية A اصغر من الخلية B يقوم بمسح الخليه B

الكود يعمل بشكل جيد ولكن متعب وكبير لكل خليه IF  شرطية بعمنى A2 بشرط و A3 بشرط اخر وكل ما زادات الخلايا زادت الشروط

اريد منه جمعها بشرط واحد

مع الشكر

تم تعديل فبراير 7, 2015 بواسطه x8.

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم، جرب الكود التالي :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  For I = 2 To 100
    If Range("A" & I).Value < Range("B" & I) Then
        Range("B" & I).ClearContents
    End If
  Next
End Sub

أخوك بن علية

[طالب مدرسة أوفيسنا]

استاذي العزيز بن علية

الف شكر على سرعة الرد

نعم هذا المطلوب والله يجزاك خير