Sub HIDE()
Dim AAKASH As Integer
For AAKASH = 1 To 10
If Cells(AAKASH, 2).Value = "AAKAS" Then
Cells(AAKASH, 3).Value = "PASS"
Cells(AAKASH, 3).Interior.Color = vbGreen
Else
Cells(AAKASH, 3).Value = ""
Cells(AAKASH, 3).Interior.Color = vbRed
End If
Next AAKASH
End Sub
No comments:
Post a Comment
THANKS FOR YOUR SUPPORT