Selection Change Event

[pwz]

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

 

[JLGWhiz]

Post the code for the selection change.

 

[pwz]

Here it is:

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


Post the code for the selection change.

 

[pwz]

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
Post the code for the selection change.

 

[Barb Reinhardt]

You may want to post your selectionchange code.

 

[pwz]

Here it is:

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

Thanks!


You may want to post your selectionchange code.

 

[pwz]

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!


You may want to post your selectionchange code.

 

[JLGWhiz]

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)

 

[JLGWhiz]

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