Checking cells values

[djbubu99]

I have 2 cells with values and I want to check if the first 4 characters of those cells are the same.

My code is:

Sub ZFVsZT()

If Range("E3").Formula = "=left(E2,4)" <> Range("G3").Formula = "=left(G2,4)" Then
MsgBox "Check values for ZF & ZT"
End If

End Sub

I know this must be a simple thing, but I can't seem to get to the bottom of it..

I need to do this through VBA as a final check on the file that a user will submit to an access database.

 

[VoG]

Do you mean something like

Sub ZFVsZT()

If Range("E3").Value <> Left(Range("E2").Value, 4) Or Range("G3").Value <> Left(Range("G2").Value, 4) Then
    MsgBox "Check values for ZF & ZT"
End If

End Sub

 

[Weaver]

if left(range("E3").value,4)=left(range("G3").value,4)...

 

[djbubu99]

thanks for the help!

the code i needed is:

Sub ZFVsZT()

If Left(Range("E2").Value, 4) <> Left(Range("G2").Value, 4) Then
    MsgBox "Check values for ZF & ZT"
End If

End Sub

I didn't know I can use Left function that way inside of VBA code.

Thanks again!