Selection Change Event
 

I have added an Selection Change Event in my workbook. However, problem is
found when I perform copy and paste. The data is "lost" (the "Paste" is in
light grey) after I has right clicked another cell. Any solution for this?
Thanks in advance for any help!

Pat

Selection Change Event
 

Post the code for the selection change.


"pwz" wrote in message
...
I have added an Selection Change Event in my workbook. However, problem is
found when I perform copy and paste. The data is "lost" (the "Paste" is in
light grey) after I has right clicked another cell. Any solution for this?
Thanks in advance for any help!

Pat

Selection Change Event
 

Here it is:

Private Sub App_SheetCalculate(ByVal Sh As Object)
If Sh.AutoFilterMode Then macroA
End Sub


"JLGWhiz" wrote in message
...
Post the code for the selection change.


"pwz" wrote in message
...
I have added an Selection Change Event in my workbook. However, problem is
found when I perform copy and paste. The data is "lost" (the "Paste" is in
light grey) after I has right clicked another cell. Any solution for this?
Thanks in advance for any help!

Pat

Selection Change Event
 

It should be this one:

Private Sub App_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA

End Sub
"JLGWhiz" wrote in message
...
Post the code for the selection change.


"pwz" wrote in message
...
I have added an Selection Change Event in my workbook. However, problem is
found when I perform copy and paste. The data is "lost" (the "Paste" is in
light grey) after I has right clicked another cell. Any solution for this?
Thanks in advance for any help!

Pat

Selection Change Event
 

You may want to post your selectionchange code.
--
HTH,

Barb Reinhardt



"pwz" wrote:

I have added an Selection Change Event in my workbook. However, problem is
found when I perform copy and paste. The data is "lost" (the "Paste" is in
light grey) after I has right clicked another cell. Any solution for this?
Thanks in advance for any help!

Pat


.

Selection Change Event
 

Here it is:

Private Sub App_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA

Thanks!


"Barb Reinhardt" wrote in message
...
You may want to post your selectionchange code.
--
HTH,

Barb Reinhardt



"pwz" wrote:

I have added an Selection Change Event in my workbook. However, problem
is
found when I perform copy and paste. The data is "lost" (the "Paste" is
in
light grey) after I has right clicked another cell. Any solution for
this?
Thanks in advance for any help!

Pat


.

Selection Change Event
 

Here it is:

Private Sub App_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA (to change a cell content)

Thanks!


"Barb Reinhardt" wrote in message
...
You may want to post your selectionchange code.
--
HTH,

Barb Reinhardt



"pwz" wrote:

I have added an Selection Change Event in my workbook. However, problem
is
found when I perform copy and paste. The data is "lost" (the "Paste" is
in
light grey) after I has right clicked another cell. Any solution for
this?
Thanks in advance for any help!

Pat


.

Selection Change Event
 

It appears that you are trying to run a workbook defined event from the
application level. I am not familiar with that technique, and am not sure
that Excel accepts that as valid event code for the SheetSelectionChange
event. I would normally write the code as

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA (to change a cell content)


"pwz" wrote in message
...
Here it is:

Private Sub App_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA (to change a cell content)

Thanks!


"Barb Reinhardt" wrote in
message
...
You may want to post your selectionchange code.
--
HTH,

Barb Reinhardt



"pwz" wrote:

I have added an Selection Change Event in my workbook. However, problem
is
found when I perform copy and paste. The data is "lost" (the "Paste" is
in
light grey) after I has right clicked another cell. Any solution for
this?
Thanks in advance for any help!

Pat


.

Selection Change Event
 

Also, the code must be in the ThisWorkbook code module for it to execute
properly on event.



"JLGWhiz" wrote in message
...
It appears that you are trying to run a workbook defined event from the
application level. I am not familiar with that technique, and am not sure
that Excel accepts that as valid event code for the SheetSelectionChange
event. I would normally write the code as

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA (to change a cell content)


"pwz" wrote in message
...
Here it is:

Private Sub App_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
If Sh.AutoFilterMode Then MacroA (to change a cell content)

Thanks!


"Barb Reinhardt" wrote in
message
...
You may want to post your selectionchange code.
--
HTH,

Barb Reinhardt



"pwz" wrote:

I have added an Selection Change Event in my workbook. However, problem
is
found when I perform copy and paste. The data is "lost" (the "Paste" is
in
light grey) after I has right clicked another cell. Any solution for
this?
Thanks in advance for any help!

Pat


.