View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Nasim Nasim is offline
external usenet poster
 
Posts: 13
Default worksheet_calculation problem

Hi,
I have a sheet(1 )on which I want to check the postal code as soon as
the user enters the code. then on sheet(4) I have several formulas in
several cells to remove space and "-" and so on (last check is in A4)
then I have another formula in B5 to check if A4 is correct (returns
True or False) . then I have a worksheet_calculate event for sheet(4)
as follow:

Private Sub Worksheet_Calculate()
'check if a4 has 6 characters:
If Len(Range("a4").Value) < 6 Then
MsgBox "Please enter correct postal code"
Else
'if the code itself is not correct
If Range("b5").Value < True Then
MsgBox "Please enter correct postal code"
End If
End If
End Sub

It totally works but the problem is that whenever I open the saved file
and do absolutely nothing it asks me if I want to save changes.
I tried these things and the problem is still the
1- in workbook_open put thisworkbook.saved= true
then changes code for sheet(3) as follow:

Private Sub Worksheet_Calculate()
If ThisWorkbook.Saved = True Then
Application.Calculate = xlCalculationManual
Else
Application.Calculate = XlCalculation.xlCalculationAutomatic
If Len(Range("a4").Value) < 6 Then
MsgBox "Please enter correct postal code"
Else
If Range("b5").Value < True Then
MsgBox "Please enter correct postal code"
End If
End If
End If
End Sub

and now I get a compile error: Copmile error in hidden module: hseet 4
I am using excell2003 but I am not sure what version the user might
use.
Any idea how to solve this problem?