Logical operators work in columns

[The Student]

I found this script and i now wonder how to make it work in more than one row. i tried to add Range("A1:A10"). but it gives me a run time-error 13 . Hope you can help.

Sub test()
Dim score1 As Integer, score2 As Integer, result As String

score1 = Range("A1").Value
score2 = Range("B1").Value

If score1 >= 60 And score2 > 1 Then
result = "pass"
Else
result = "fail"
End If

Range("C1").Value = result

End sub()

 

[JonXL]

Sub test()
Dim score1 As Integer, score2 As Integer, result As String
Dim rng As Range, cll As Range 

Set rng = Range("A1:A10")

For Each cll in rng.Cells

score1 = cll.Value
score2 = cll.Offset(0, 1).Value

If score1 >= 60 And score2 > 1 Then
result = "pass"
Else
result = "fail"
End If

cll.Offset(0, 2) = result

Next cll

End sub()

You should be able to modify the range to reference any cells you'd like.

 

[Fluff]

Another option

Sub CheckScore()
   With Range("C1", Range("A" & Rows.Count).End(xlUp).Offset(, 2))
      .Value = Evaluate(Replace(Replace("if((@a>=60)*(@b>1),""Pass"",""fail"")", "@a", .Offset(, -2).Address), "@b", .Offset(, -1).Address))
   End With
End Sub

 

[The Student]

This is just amazing. Thanks a lot JonXL

 

[The Student]

and to you Fluff also. love how people help each other on this site

 

[Fluff]

Glad we could help & thanks for the feedback