Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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? |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Colon at the end of excel file name(ex: problem.xls:1, problem.xls | New Users to Excel | |||
Started out as an Access problem. Now an Excel problem | Excel Discussion (Misc queries) | |||
problem with a conditional max problem | Excel Discussion (Misc queries) | |||
Problem when multipple users access shared xl-file at the same time, macrocode for solve this problem? | Excel Programming |