Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Mensaje en Macro

30/06/2005 - 15:46 por AnGeLo | Informe spam
Ayuda Hacer una pregunta
Buenos Días grupo,

Tengo la siguiente macro:

Sub Insertar()
CLAVE = "1"
Application.ScreenUpdating = False
With ActiveSheet
.Unprotect CLAVE
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveWindow.LargeScroll ToRight:=0
.Protect CLAVE
End With
Application.ScreenUpdating = True
End Sub


Necesito que el usuario para poder ejecutar la macro tenga seleccionado la
"Fila Completa o Filas" si no es así que le envie un mensaje diciendo q la
debe seleccionar completa.

Saludos, y espero que me ayan entedido


Angelo Vernaza
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
30/06/2005 - 16:30 | Informe spam
Hola Angelo,

Podrias evitar dar la lata con tu mensaje si corriges la seleccion
directamente en el codigo:

Sub Insertar()
CLAVE = "1"
Application.ScreenUpdating = False
With ActiveSheet
.Unprotect CLAVE
With Selection.EntireRow
.Copy
.Insert Shift:=xlDown
End With
.Protect CLAVE
End With
Application.ScreenUpdating = True
End Sub

Saludos,
KL


"AnGeLo" wrote in message
news:
Buenos Días grupo,

Tengo la siguiente macro:

Sub Insertar()
CLAVE = "1"
Application.ScreenUpdating = False
With ActiveSheet
.Unprotect CLAVE
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveWindow.LargeScroll ToRight:=0
.Protect CLAVE
End With
Application.ScreenUpdating = True
End Sub


Necesito que el usuario para poder ejecutar la macro tenga seleccionado la
"Fila Completa o Filas" si no es así que le envie un mensaje diciendo q la
debe seleccionar completa.

Saludos, y espero que me ayan entedido


Angelo Vernaza


Preguntas similares

 

Busqueda sugerida :