Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet_BeforeClose conditional Worksheet change
Trying to make the following macro dependant on any change in the active
worksheet. In other words it should not be inaugerated if the the file just is opened for view or printing, but only when any cell in the sheet is changed. Can worksheet change be used? Does anybody have a solution? Sub Workbook_BeforeClose(cancel As Boolean) If Sheets("INKÖP").Range("C3").Value Range("C2") Then If MsgBox("Revisionsdatum ej uppdaterat! Uppdatera nu?", _ vbCritical + vbYesNo, _ "OBS! revisionsdatum") = vbYes Then cancel = True End If End Sub -- PerNorman |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet_BeforeClose conditional Worksheet change
Hello Per, If you use the Worksheet_Change method, you would have to put the
code in each worksheet code module, and it would fire on any change at at all. Or You could use the Workbook_SheetChange method which would fire when a change is made to any sheet except a chart sheet. Check the VBA help files for more information on these two change events. "Per" wrote: Trying to make the following macro dependant on any change in the active worksheet. In other words it should not be inaugerated if the the file just is opened for view or printing, but only when any cell in the sheet is changed. Can worksheet change be used? Does anybody have a solution? Sub Workbook_BeforeClose(cancel As Boolean) If Sheets("INKÖP").Range("C3").Value Range("C2") Then If MsgBox("Revisionsdatum ej uppdaterat! Uppdatera nu?", _ vbCritical + vbYesNo, _ "OBS! revisionsdatum") = vbYes Then cancel = True End If End Sub -- PerNorman |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet_BeforeClose conditional Worksheet change
Thank you, will try to consult the VBA help for this. I am not a VBA
programmer but work with quality management. May come back for further advice. Many thanks -- PerNorman "JLGWhiz" wrote: Hello Per, If you use the Worksheet_Change method, you would have to put the code in each worksheet code module, and it would fire on any change at at all. Or You could use the Workbook_SheetChange method which would fire when a change is made to any sheet except a chart sheet. Check the VBA help files for more information on these two change events. "Per" wrote: Trying to make the following macro dependant on any change in the active worksheet. In other words it should not be inaugerated if the the file just is opened for view or printing, but only when any cell in the sheet is changed. Can worksheet change be used? Does anybody have a solution? Sub Workbook_BeforeClose(cancel As Boolean) If Sheets("INKÖP").Range("C3").Value Range("C2") Then If MsgBox("Revisionsdatum ej uppdaterat! Uppdatera nu?", _ vbCritical + vbYesNo, _ "OBS! revisionsdatum") = vbYes Then cancel = True End If End Sub -- PerNorman |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet_BeforeClose conditional Worksheet change
Here are some web sites that will give you more information on using event
procedures. They also provide sample code which you can use to construct a procedure that fits your needs. http://www.mvps.org/dmcritchie/excel/event.htm http://msdn2.microsoft.com/en-us/lib...ffice.10).aspx http://www.cpearson.com/excel/Events.aspx "Per" wrote: Thank you, will try to consult the VBA help for this. I am not a VBA programmer but work with quality management. May come back for further advice. Many thanks -- PerNorman "JLGWhiz" wrote: Hello Per, If you use the Worksheet_Change method, you would have to put the code in each worksheet code module, and it would fire on any change at at all. Or You could use the Workbook_SheetChange method which would fire when a change is made to any sheet except a chart sheet. Check the VBA help files for more information on these two change events. "Per" wrote: Trying to make the following macro dependant on any change in the active worksheet. In other words it should not be inaugerated if the the file just is opened for view or printing, but only when any cell in the sheet is changed. Can worksheet change be used? Does anybody have a solution? Sub Workbook_BeforeClose(cancel As Boolean) If Sheets("INKÖP").Range("C3").Value Range("C2") Then If MsgBox("Revisionsdatum ej uppdaterat! Uppdatera nu?", _ vbCritical + vbYesNo, _ "OBS! revisionsdatum") = vbYes Then cancel = True End If End Sub -- PerNorman |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Conditional formatting does not change when values change. ?? | Excel Worksheet Functions | |||
Conditional formatting or worksheet change event? | Excel Programming | |||
Change conditional formatting to coloured alternate rows dependent on a change in date? | Excel Programming | |||
Conditional Formating on Worksheet Change | Excel Programming | |||
Change Cell from Validated List Not Firing Worksheet Change Event | Excel Programming |