Cerrar cuadro informativo en excel desde macro
Publicado por ANTONIA M. (2 intervenciones) el 28/05/2012 10:53:16
Hola, buenos días
Soy bastante novatilla en esto de las macros y básicamente trabajo grabándolas y luego entro y las modifico.
Ahora estoy haciendo una macro que copia los datos de una hoja de excel y los pega en otra hoja, pero al cerrar el fichero me aparece un cuadro informativo donde se avisa que:
"Se ha puesto gran cantidad de información en el Portapapeles. ¿Desea que esta información quede disponible para pegarla en otro documento?..."
Luego hay 3 botones para seleccionar que son: Si, No y Cancelar.
Yo quiero que se seleccione "No" y se ejecute este botón, pero no doy con el modo de hacerlo.
Pongo debajo parte del procedimiento que grabé:
Workbooks.Open Filename:="F:\EXCEL\NEGRIN\RADG.XLS", UpdateLinks:=0
Workbooks.Open Filename:="F:\EXCEL\NEGRIN\DIAS\rdgintervqconvt.xls"
Range("A1:G50").Select
Selection.Copy
Windows("RADG.XLS").Activate
Sheets("DIASProcQuirEsp").Select
Range("A2").Select
ActiveSheet.Paste
Windows("rdgintervqconvt.xls").Activate
ActiveWindow.Close
AQUÍ ES CUANDO APARECE EL CUADRO Y CREE DEBAJO DE LO ANTERIOR LA SIGUIENTE LINEA QUE NO ME FUNCIONA:
Active.SendKeys ("RIGHT,ENTER"), True 'Enviar tecla para cambiar a No y Aceptar
Si alguien me puede ayudar se lo agradecería.
Un saludo y buen día.
Soy bastante novatilla en esto de las macros y básicamente trabajo grabándolas y luego entro y las modifico.
Ahora estoy haciendo una macro que copia los datos de una hoja de excel y los pega en otra hoja, pero al cerrar el fichero me aparece un cuadro informativo donde se avisa que:
"Se ha puesto gran cantidad de información en el Portapapeles. ¿Desea que esta información quede disponible para pegarla en otro documento?..."
Luego hay 3 botones para seleccionar que son: Si, No y Cancelar.
Yo quiero que se seleccione "No" y se ejecute este botón, pero no doy con el modo de hacerlo.
Pongo debajo parte del procedimiento que grabé:
Workbooks.Open Filename:="F:\EXCEL\NEGRIN\RADG.XLS", UpdateLinks:=0
Workbooks.Open Filename:="F:\EXCEL\NEGRIN\DIAS\rdgintervqconvt.xls"
Range("A1:G50").Select
Selection.Copy
Windows("RADG.XLS").Activate
Sheets("DIASProcQuirEsp").Select
Range("A2").Select
ActiveSheet.Paste
Windows("rdgintervqconvt.xls").Activate
ActiveWindow.Close
AQUÍ ES CUANDO APARECE EL CUADRO Y CREE DEBAJO DE LO ANTERIOR LA SIGUIENTE LINEA QUE NO ME FUNCIONA:
Active.SendKeys ("RIGHT,ENTER"), True 'Enviar tecla para cambiar a No y Aceptar
Si alguien me puede ayudar se lo agradecería.
Un saludo y buen día.
Valora esta pregunta


0