![]() |
|
#8
|
|||
|
|||
|
Code:
Private Sub CommandButton21_Click()
Dim marks As Range
Dim bFail As Boolean
Dim n As Integer
Set marks = Range(Cells(1, 2), Cells(4, 2))
For n = 1 To marks.Rows.Count
If marks.Cells(n, 2) < 50 Then
bFail = True
Exit For
End If
Next n
If bFail Then
Range("B6") = "Fail"
Else
Range("B6") = "Pass"
End If
End Sub
I Tried this one for Range B1 to B4 but Failed!! |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Run Time Error '91': Object variable or With block variable not set using Catalogue Mailmerge | Berryblue | Mail Merge | 1 | 11-13-2014 05:36 PM |
Run-time error 91 object variable or with block variable not set
|
JUST ME | Word VBA | 4 | 03-25-2014 06:56 AM |
object variable or with block variable not set
|
MJP143 | Excel | 1 | 02-11-2013 05:07 AM |
Run-time error '91': Object variable or With block variable not set
|
tinfanide | Excel Programming | 2 | 06-10-2012 10:17 AM |
| XML parsing & Object variable not set (Error 91) | tinfanide | Excel Programming | 0 | 12-29-2011 08:43 AM |