Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Por que esta macro inabilita copiar y pegar?

30/09/2003 - 00:05 por osalazarg | Informe spam
Ayuda Hacer una pregunta
Me podrian ayudar por favor.
Por que esta macro inhabilita las funciones de copiar y pegar en excel
2000.
Agradeciendoles por anticipado cualquier ayuda que me puedan proporcionar.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static oldrng As String
On Error Resume Next
Range(oldrng).Interior.ColorIndex = xlNone ' .Color = RGB(255, 255, 255)
With Target
.Interior.Color = RGB(255, 255, 220)
oldrng = .Address
End With
End Sub





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

email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
30/09/2003 - 05:32 | Informe spam
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

Preguntas similares

 

Busqueda sugerida :