Por que esta macro inabilita copiar y pegar?

Hola, O. Salazar !

... esta macro inhabilita ... copiar y pegar [...]

==> al 'ejecutarse' [cualquier] codigo SE PIERDEN algunos 'beneficios' [como el UnDo] y se 'vacia' el portapapeles <\×_×/>
si quisieras 'corregir' lo del Cut-Copy-Paste, agrega una 'atrapada' a si la aplicacion 'se encuentra' en ese modo +/- asi:
[p.e.] ANTES de la sentencia =>'On Error Resume Next'<=...

Select Case Application.CutCopyMode
Case xlCut, xlCopy
Do
DoEvents
Loop Until Application.CutCopyMode = False
SendKeys "{Enter}"
End Select
On Error . etc.
_______
Saludos,
Héctor.
MS-MVP

Muchas gracias Héctor Miguel funciona muy bien, una ultima preguna ¿como
puedo hacer que al abrir excel se autoejecute esta macro?

Otra vez muchas gracias.





Mensaje enviado desde http://grupos.buscadoc.org

sago escribió en el mensaje
... ¿como puedo hacer que al abrir excel se autoejecute esta macro?

==> [yo creo que] no tiene sentido 'automatizar' en un bucle 'Do...Loop' una instruccion que...
'le permita' a la aplicacion 'ejercer sus derechos de accion' [DoEvents] ;)
en este caso especifico, 'su' objetivo es NO 'vaciar' el portapapales cuando se cambia la celda activa
[si 'en el inter' se esta llevando a cabo un 'cut' o 'copy' para 'llevarlo' -manualmente- a otra celda de 'destino']
ya que se esta ejecutando un codigo 'personalizado' en los eventos de la hoja ['_SelectionChange']
y 'ya ves' [algunos de] los 'beneficios' que se 'pierden' al ejecutarse un codigo :((
_______
Saludos,
Héctor.
MS-MVP