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.

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.

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.

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.

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.

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.