ThisWorkbook of personal.xls
 

Hi all,

Hi all,

When I have in ThisWorkbook of personal.xls the code below without the last
sub (the Private Sub xlApp_SheetSelectionChange), all functions well.
But when the last sub is added I have problems with copying because when I
try to copy data, the items paste and past special of the right mouse click
menue are greyed out, the same with the paste buttons in the bar (don't know
its name) above in my screen. Also ctr c - ctr v does not work in the proper
way.

What causes this behaviour and how can I overcome it?

Jack Sons
The Netherlands
------------------------------------------------------------------------------------------------------------------
Option Explicit
Public WithEvents xlApp As Application
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set xlApp = Nothing
End Sub

Private Sub Workbook_Open()
Set xlApp = Application
End Sub

Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
Range)
Application.DisplayStatusBar = True
On Error Resume Next
If Target.Count < 2 Then
Application.StatusBar = False
Else
Application.StatusBar = _
"Average=" & Round(Application.Average(Target), 2) & _
"; " & _
"Count=" & Application.CountA(Target) & "; " & _
"Count nums=" & Application.Count(Target) & _
"; " & _
"Sum=" & Round(Application.sum(Target), 2) & "; " & _
"Max=" & Application.Max(Target) & "; " & _
"Min=" & Application.Min(Target)
End If
End Sub

ThisWorkbook of personal.xls
 

This line exits CutCopyMode:

Application.DisplayStatusBar = True

It doesn't make sense that it has this affect but so it is. Perhaps you can
set DisplayStatusBar in Auto_Open and assume it has remained set and so
remove this line from your macro.

--
Jim
"Jack Sons" wrote in message
...
| Hi all,
|
| Hi all,
|
| When I have in ThisWorkbook of personal.xls the code below without the
last
| sub (the Private Sub xlApp_SheetSelectionChange), all functions well.
| But when the last sub is added I have problems with copying because when I
| try to copy data, the items paste and past special of the right mouse
click
| menue are greyed out, the same with the paste buttons in the bar (don't
know
| its name) above in my screen. Also ctr c - ctr v does not work in the
proper
| way.
|
| What causes this behaviour and how can I overcome it?
|
| Jack Sons
| The Netherlands
| ------------------------------------------------------------------------------------------------------------------
| Option Explicit
| Public WithEvents xlApp As Application
| Private Sub Workbook_BeforeClose(Cancel As Boolean)
| Set xlApp = Nothing
| End Sub
|
| Private Sub Workbook_Open()
| Set xlApp = Application
| End Sub
|
| Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
| Range)
| Application.DisplayStatusBar = True
| On Error Resume Next
| If Target.Count < 2 Then
| Application.StatusBar = False
| Else
| Application.StatusBar = _
| "Average=" & Round(Application.Average(Target), 2) & _
| "; " & _
| "Count=" & Application.CountA(Target) & "; " & _
| "Count nums=" & Application.Count(Target) & _
| "; " & _
| "Sum=" & Round(Application.sum(Target), 2) & "; " & _
| "Max=" & Application.Max(Target) & "; " & _
| "Min=" & Application.Min(Target)
| End If
| End Sub
|
|

ThisWorkbook of personal.xls
 

Jim,

What exactly sall I put in Private Sub Workbook_Open()
DisplayStatusBar
or
set DisplayStatusBar ?

Both give an error message. Should it come before of after the line with Set
xlApp = Application?
I'm afraid I did not understand your tip well enough.

Jack.


"Jim Rech" schreef in bericht
...
This line exits CutCopyMode:

Application.DisplayStatusBar = True

It doesn't make sense that it has this affect but so it is. Perhaps you
can
set DisplayStatusBar in Auto_Open and assume it has remained set and so
remove this line from your macro.

--
Jim
"Jack Sons" wrote in message
...
| Hi all,
|
| Hi all,
|
| When I have in ThisWorkbook of personal.xls the code below without the
last
| sub (the Private Sub xlApp_SheetSelectionChange), all functions well.
| But when the last sub is added I have problems with copying because when
I
| try to copy data, the items paste and past special of the right mouse
click
| menue are greyed out, the same with the paste buttons in the bar (don't
know
| its name) above in my screen. Also ctr c - ctr v does not work in the
proper
| way.
|
| What causes this behaviour and how can I overcome it?
|
| Jack Sons
| The Netherlands
| ------------------------------------------------------------------------------------------------------------------
| Option Explicit
| Public WithEvents xlApp As Application
| Private Sub Workbook_BeforeClose(Cancel As Boolean)
| Set xlApp = Nothing
| End Sub
|
| Private Sub Workbook_Open()
| Set xlApp = Application
| End Sub
|
| Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As
| Range)
| Application.DisplayStatusBar = True
| On Error Resume Next
| If Target.Count < 2 Then
| Application.StatusBar = False
| Else
| Application.StatusBar = _
| "Average=" & Round(Application.Average(Target), 2) & _
| "; " & _
| "Count=" & Application.CountA(Target) & "; " & _
| "Count nums=" & Application.Count(Target) & _
| "; " & _
| "Sum=" & Round(Application.sum(Target), 2) & "; " & _
| "Max=" & Application.Max(Target) & "; " & _
| "Min=" & Application.Min(Target)
| End If
| End Sub
|
|

ThisWorkbook of personal.xls
 

What exactly sall I put in Private Sub Workbook_Open()

Application.DisplayStatusBar = True


--
Jim
"Jack Sons" wrote in message
...
| Jim,
|
| What exactly sall I put in Private Sub Workbook_Open()
| DisplayStatusBar
| or
| set DisplayStatusBar ?
|
| Both give an error message. Should it come before of after the line with
Set
| xlApp = Application?
| I'm afraid I did not understand your tip well enough.
|
| Jack.
|
|
| "Jim Rech" schreef in bericht
| ...
| This line exits CutCopyMode:
|
| Application.DisplayStatusBar = True
|
| It doesn't make sense that it has this affect but so it is. Perhaps you
| can
| set DisplayStatusBar in Auto_Open and assume it has remained set and so
| remove this line from your macro.
|
| --
| Jim
| "Jack Sons" wrote in message
| ...
| | Hi all,
| |
| | Hi all,
| |
| | When I have in ThisWorkbook of personal.xls the code below without the
| last
| | sub (the Private Sub xlApp_SheetSelectionChange), all functions well.
| | But when the last sub is added I have problems with copying because
when
| I
| | try to copy data, the items paste and past special of the right mouse
| click
| | menue are greyed out, the same with the paste buttons in the bar
(don't
| know
| | its name) above in my screen. Also ctr c - ctr v does not work in the
| proper
| | way.
| |
| | What causes this behaviour and how can I overcome it?
| |
| | Jack Sons
| | The Netherlands
|
| ------------------------------------------------------------------------------------------------------------------
| | Option Explicit
| | Public WithEvents xlApp As Application
| | Private Sub Workbook_BeforeClose(Cancel As Boolean)
| | Set xlApp = Nothing
| | End Sub
| |
| | Private Sub Workbook_Open()
| | Set xlApp = Application
| | End Sub
| |
| | Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal
Target
| As
| | Range)
| | Application.DisplayStatusBar = True
| | On Error Resume Next
| | If Target.Count < 2 Then
| | Application.StatusBar = False
| | Else
| | Application.StatusBar = _
| | "Average=" & Round(Application.Average(Target), 2) & _
| | "; " & _
| | "Count=" & Application.CountA(Target) & "; " & _
| | "Count nums=" & Application.Count(Target) & _
| | "; " & _
| | "Sum=" & Round(Application.sum(Target), 2) & "; " & _
| | "Max=" & Application.Max(Target) & "; " & _
| | "Min=" & Application.Min(Target)
| | End If
| | End Sub
| |
| |
|
|
|
|

ThisWorkbook of personal.xls
 

Jim,

It really seems to work nicely. Many tanks.

Jack.

"Jim Rech" schreef in bericht
...
What exactly sall I put in Private Sub Workbook_Open()

Application.DisplayStatusBar = True


--
Jim
"Jack Sons" wrote in message
...
| Jim,
|
| What exactly sall I put in Private Sub Workbook_Open()
| DisplayStatusBar
| or
| set DisplayStatusBar ?
|
| Both give an error message. Should it come before of after the line with
Set
| xlApp = Application?
| I'm afraid I did not understand your tip well enough.
|
| Jack.
|
|
| "Jim Rech" schreef in bericht
| ...
| This line exits CutCopyMode:
|
| Application.DisplayStatusBar = True
|
| It doesn't make sense that it has this affect but so it is. Perhaps
you
| can
| set DisplayStatusBar in Auto_Open and assume it has remained set and
so
| remove this line from your macro.
|
| --
| Jim
| "Jack Sons" wrote in message
| ...
| | Hi all,
| |
| | Hi all,
| |
| | When I have in ThisWorkbook of personal.xls the code below without
the
| last
| | sub (the Private Sub xlApp_SheetSelectionChange), all functions
well.
| | But when the last sub is added I have problems with copying because
when
| I
| | try to copy data, the items paste and past special of the right
mouse
| click
| | menue are greyed out, the same with the paste buttons in the bar
(don't
| know
| | its name) above in my screen. Also ctr c - ctr v does not work in
the
| proper
| | way.
| |
| | What causes this behaviour and how can I overcome it?
| |
| | Jack Sons
| | The Netherlands
|
| ------------------------------------------------------------------------------------------------------------------
| | Option Explicit
| | Public WithEvents xlApp As Application
| | Private Sub Workbook_BeforeClose(Cancel As Boolean)
| | Set xlApp = Nothing
| | End Sub
| |
| | Private Sub Workbook_Open()
| | Set xlApp = Application
| | End Sub
| |
| | Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal
Target
| As
| | Range)
| | Application.DisplayStatusBar = True
| | On Error Resume Next
| | If Target.Count < 2 Then
| | Application.StatusBar = False
| | Else
| | Application.StatusBar = _
| | "Average=" & Round(Application.Average(Target), 2) &
_
| | "; " & _
| | "Count=" & Application.CountA(Target) & "; " & _
| | "Count nums=" & Application.Count(Target) & _
| | "; " & _
| | "Sum=" & Round(Application.sum(Target), 2) & "; " & _
| | "Max=" & Application.Max(Target) & "; " & _
| | "Min=" & Application.Min(Target)
| | End If
| | End Sub
| |
| |
|
|
|
|