Anular la opción mover

hola, Francesca !

... lo que no funciona es copiar mediante Ctrl+C o editar > copiar
ya que al cambiar a la celda de destino para hacer Ctrl+V o editar > pegar
se apaga la 'intermitencia' del contorno de la celda que se desea copiar
y tambien se deshabilita la opcion de pegado en editar.
Sin embargo, si elimino la linea
.CellDragAndDrop = False
entonces sí funciona copiar mediante Ctrl+C o editar > copiar ya que no se apaga el contorno ...

prueba cambiando de lugar esa linea (p.e.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a:e")) Is Nothing Then Exit Sub
With Application
If .CutCopyMode = xlCut Then .CutCopyMode = False
Do While .CutCopyMode = xlCopy
DoEvents
Loop
.CellDragAndDrop = False ' <= esta linea es nueva '
End With
End Sub

saludos,
hector.

No hay dudas Héctor. Nadie sabe taaaaaaaanto de Excel como tú. Ahora está
perfecto con ese cambio de línea. ;)
Muchas gracias.

Saludos
Fran

"Héctor Miguel" escribió en el mensaje de
noticias news:%

hola, Francesca !

... lo que no funciona es copiar mediante Ctrl+C o editar > copiar
ya que al cambiar a la celda de destino para hacer Ctrl+V o editar >
pegar
se apaga la 'intermitencia' del contorno de la celda que se desea copiar
y tambien se deshabilita la opcion de pegado en editar.
Sin embargo, si elimino la linea
.CellDragAndDrop = False
entonces sí funciona copiar mediante Ctrl+C o editar > copiar ya que no
se apaga el contorno ...

prueba cambiando de lugar esa linea (p.e.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a:e")) Is Nothing Then Exit Sub
With Application
If .CutCopyMode = xlCut Then .CutCopyMode = False
Do While .CutCopyMode = xlCopy
DoEvents
Loop
.CellDragAndDrop = False ' <= esta linea es nueva '
End With
End Sub

saludos,
hector.

hola, Francesca !

gracias por el "feed-back", aunque solo fue otra excepcion (confirmando la regla)...
donde "el orden de los factores, SI altera el producto" :))

saludos,
hector.

p.d. sigo siendo solo un aprendiz de excel (tozudo, pero aprendiz aun)
te sorprenderia conocer el numero de personas que saben mas (y bastante) que... ;)