| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
From Office 2003 to Office 2007
Hello from Steved
The below tracks my changes in Excel. It works perfect in Office 2003, but Now I've upgraded to Office 2007 it no longer works. Have you Got an answer for me please. Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count 1 Then Exit Sub If Not Intersect(Range("A5:AB272"), .Cells) Is Nothing Then Application.EnableEvents = False If Not IsEmpty(.Value) Then Me.Range("B3") = Now End If Application.EnableEvents = True End If End With End Sub Thankyou. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
From Office 2003 to Office 2007
It works in 2007 too.
Regards, Shailesh Shah http://in.geocities.com/shahshaileshs/ (Excel Add-ins Page) If You Can't Excel with Talent, Triumph with Effort. "Steved" wrote in message ... Hello from Steved The below tracks my changes in Excel. It works perfect in Office 2003, but Now I've upgraded to Office 2007 it no longer works. Have you Got an answer for me please. Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count 1 Then Exit Sub If Not Intersect(Range("A5:AB272"), .Cells) Is Nothing Then Application.EnableEvents = False If Not IsEmpty(.Value) Then Me.Range("B3") = Now End If Application.EnableEvents = True End If End With End Sub Thankyou. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
From Office 2003 to Office 2007
Hello from Steved
I've tried again in 2007 but it is not working. My thinking is that I have a different setting preventing from working. Have you any i'deas please that can point me the direction Thankyou. "shah shailesh" wrote: It works in 2007 too. Regards, Shailesh Shah http://in.geocities.com/shahshaileshs/ (Excel Add-ins Page) If You Can't Excel with Talent, Triumph with Effort. "Steved" wrote in message ... Hello from Steved The below tracks my changes in Excel. It works perfect in Office 2003, but Now I've upgraded to Office 2007 it no longer works. Have you Got an answer for me please. Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count 1 Then Exit Sub If Not Intersect(Range("A5:AB272"), .Cells) Is Nothing Then Application.EnableEvents = False If Not IsEmpty(.Value) Then Me.Range("B3") = Now End If Application.EnableEvents = True End If End With End Sub Thankyou. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
From Office 2003 to Office 2007
Hello from Steved
I've tried this on another computer with office 2007 and it's fine. I've setup Office to compatabilty for others to use (2003), if this is the reason is their a work around please. Thankyou. "Steved" wrote: Hello from Steved I've tried again in 2007 but it is not working. My thinking is that I have a different setting preventing from working. Have you any i'deas please that can point me the direction Thankyou. "shah shailesh" wrote: It works in 2007 too. Regards, Shailesh Shah http://in.geocities.com/shahshaileshs/ (Excel Add-ins Page) If You Can't Excel with Talent, Triumph with Effort. "Steved" wrote in message ... Hello from Steved The below tracks my changes in Excel. It works perfect in Office 2003, but Now I've upgraded to Office 2007 it no longer works. Have you Got an answer for me please. Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count 1 Then Exit Sub If Not Intersect(Range("A5:AB272"), .Cells) Is Nothing Then Application.EnableEvents = False If Not IsEmpty(.Value) Then Me.Range("B3") = Now End If Application.EnableEvents = True End If End With End Sub Thankyou. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
From Office 2003 to Office 2007
It works with Compatibility mode also. BTW have you enabled the macro &
check to see any other events\codes runs that has application.enanableevents set to false. Regards, Shailesh Shah http://in.geocities.com/shahshaileshs/ (Free addins Excel Menu-2003 for Excel-2007) If You Can't Excel with Talent, Triumph with Effort. "Steved" wrote in message ... Hello from Steved I've tried this on another computer with office 2007 and it's fine. I've setup Office to compatabilty for others to use (2003), if this is the reason is their a work around please. Thankyou. "Steved" wrote: Hello from Steved I've tried again in 2007 but it is not working. My thinking is that I have a different setting preventing from working. Have you any i'deas please that can point me the direction Thankyou. "shah shailesh" wrote: It works in 2007 too. Regards, Shailesh Shah http://in.geocities.com/shahshaileshs/ (Excel Add-ins Page) If You Can't Excel with Talent, Triumph with Effort. "Steved" wrote in message ... Hello from Steved The below tracks my changes in Excel. It works perfect in Office 2003, but Now I've upgraded to Office 2007 it no longer works. Have you Got an answer for me please. Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count 1 Then Exit Sub If Not Intersect(Range("A5:AB272"), .Cells) Is Nothing Then Application.EnableEvents = False If Not IsEmpty(.Value) Then Me.Range("B3") = Now End If Application.EnableEvents = True End If End With End Sub Thankyou. |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
From Office 2003 to Office 2007
Hello shah shailesh from Steved
It helps if you enable macro I thankyou. Also I visited you site I find it excellent value. Thankyou. "shah shailesh" wrote: It works with Compatibility mode also. BTW have you enabled the macro & check to see any other events\codes runs that has application.enanableevents set to false. Regards, Shailesh Shah http://in.geocities.com/shahshaileshs/ (Free addins Excel Menu-2003 for Excel-2007) If You Can't Excel with Talent, Triumph with Effort. "Steved" wrote in message ... Hello from Steved I've tried this on another computer with office 2007 and it's fine. I've setup Office to compatabilty for others to use (2003), if this is the reason is their a work around please. Thankyou. "Steved" wrote: Hello from Steved I've tried again in 2007 but it is not working. My thinking is that I have a different setting preventing from working. Have you any i'deas please that can point me the direction Thankyou. "shah shailesh" wrote: It works in 2007 too. Regards, Shailesh Shah http://in.geocities.com/shahshaileshs/ (Excel Add-ins Page) If You Can't Excel with Talent, Triumph with Effort. "Steved" wrote in message ... Hello from Steved The below tracks my changes in Excel. It works perfect in Office 2003, but Now I've upgraded to Office 2007 it no longer works. Have you Got an answer for me please. Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count 1 Then Exit Sub If Not Intersect(Range("A5:AB272"), .Cells) Is Nothing Then Application.EnableEvents = False If Not IsEmpty(.Value) Then Me.Range("B3") = Now End If Application.EnableEvents = True End If End With End Sub Thankyou. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Office 2007 compatibility pack on Office 2003 (slow network file | Setting up and Configuration of Excel | |||
| Office 2007 compatibility at office 2003 is not working for graphs | Excel Discussion (Misc queries) | |||
| Opening an Office 2007 Excel file in Office 2003 | Excel Discussion (Misc queries) | |||
| Problem with Interop.Excel after uninstalling Office 2007 and installing Office 2003 | Excel Programming | |||
Linear Mode
