Consulta de cambio de hoja
Hola como estas... Mi consulta es como puedo hacer para que cuando yo ejecute una rutina de VBA en donde cambia de la Hoja1 a la Hoja2 copie unos datos seleccionados y regresa a la Hoja1, no se vea el cambio de hoja, y la otra seria como hago para que el rango seleccionado para copiar se desseleccione.. Gracias de antemano
1 respuesta
Respuesta de fejoal
1
Si me ciño a tu pedido el macro trivial sería:
Application.ScreenUpdating = False 'evita que se vean las acciones ejecutadas
Range("A1:A5").Copy
Sheets("Hoja2").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False 'quita selección al rango original
Selection.Cells(1, 1).Select 'deselecciona el rango copiado
Sheets("Hoja1").Select
En el código están indicadas las funciones que pediste.
Sin embargo yo usaría:
Range("A1:A5"). Copy Sheets("Hoja2"). Range("A2")
Que hace exactamente lo mismo: copia el rango A1:A5 y lo pega en otra hoja desde la celda A2, sin seleccionar ninguno de ellos y sin moverse de hoja.
Esto debería resolver tu pregunta. Si así fuera, agradeceré un comentario y que la finalices.
Si no, pregúntame de nuevo.
Un abrazo!
Fernando
"Me lo explicaron y lo olvidé,
lo leí y lo entendí,
lo hice y lo aprendí".
(Considera que la valoración que figura predeterminada
es 3/5. Tal vez quieras cambiarla...)
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.
Application.ScreenUpdating = False 'evita que se vean las acciones ejecutadas
Range("A1:A5").Copy
Sheets("Hoja2").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False 'quita selección al rango original
Selection.Cells(1, 1).Select 'deselecciona el rango copiado
Sheets("Hoja1").Select
En el código están indicadas las funciones que pediste.
Sin embargo yo usaría:
Range("A1:A5"). Copy Sheets("Hoja2"). Range("A2")
Que hace exactamente lo mismo: copia el rango A1:A5 y lo pega en otra hoja desde la celda A2, sin seleccionar ninguno de ellos y sin moverse de hoja.
Esto debería resolver tu pregunta. Si así fuera, agradeceré un comentario y que la finalices.
Si no, pregúntame de nuevo.
Un abrazo!
Fernando
"Me lo explicaron y lo olvidé,
lo leí y lo entendí,
lo hice y lo aprendí".
(Considera que la valoración que figura predeterminada
es 3/5. Tal vez quieras cambiarla...)
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.
