عدم اشتغال كود

[mahmoudsakr]

ارجو الافاد 
الكود مش راضى يشتغل معايا على الاكسيل 
 

Sub testr()
For i = 2 To 7
If Cells(i, 1).Value <= 50 Then Cells(i, 2).Value = ناجح Else Cells(i, 2).Value = راسب

Next i

End Sub

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

الكود يكتب هكذا

Option Explicit
Sub test_Me()
Dim i As Byte
For i = 2 To 7
 With Cells(i, 1)
    If .Value >= 50 Then
      Cells(i, 2) = "ناجح"
    Else
      Cells(i, 2) = "راسب"
    End If
  End With
Next
End Sub

 

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

اكثر اختصاراً

Option Explicit
Sub test_Me()
Dim i As Byte
For i = 2 To 7
   Cells(i, 2) = IIf(Cells(i, 1) >= 50, "ناجح", "راسب")
Next
End Sub