Code to test value in Cell

[erock24]

I was hoping for code that will test cells e3:g3 in sheet 1 of workbook "AR" for a value of "OK" or "Error". These cells contain if formulas that return "OK" or "Error"
If all Cells = "OK" then I need the macro to put "Ok" in D5 in sheet 1 of workbook "Guide". If 1 or more cells = "Error" then put "Error" in D5.
Also, I know I could use a formula in D5, but I really need the code for my specific application.

Thank you very much for your time and help.

 

[blackbox]

Sub Error_check()
Dim X As String
Dim Y As String
Application.ScreenUpdating = False
Guide = ActiveWorkbook.Name
Y = Dir("C:\Documents and Settings\j.doe\Desktop\AR.xls")
Workbooks.Open ("C:\Documents and Settings\j.doe\Desktop\AR.xls")
 If Range("E3") = "OK" Then
     If Range("F3") = "OK" Then
       If Range("G3") = "OK" Then
          X = "OK"
          Else: X = "Error"
        End If
       Else: X = "Error"
     End If
    Else: X = "Error"
  End If
Windows(Guide).Activate
Sheets("sheet1").Select
Range("D5") = X
Workbooks(Y).Close
Application.ScreenUpdating = True
End Sub

adjust the file pathways as needed

FYI... it's case sensitive, if your formulas output is "Ok" the change the the code to match

 

[Scott Huish]

Duplicate post.

See http://www.mrexcel.com/board2/viewtopic.php?p=1385965

 

[blackbox]

oh well...

 

[erock24]

thank you for the reply.

macro works perfect. I had some computer trouble. I thouht the server went down. Question got posted twice????. I don't know I didn't even think it got posted once. So I went to OZ becaue I couldn't pullup mr.excel.
sorry. I really don't know what happened.