Forums Últimos mensajes - Powered by IBM
 

Copiar un valor en varias hojas a la vez

01/03/2005 - 03:52 por Fabian | Informe spam
Hola a todos!
Sub JuntarHojas( )
Sheets(Array("Hoja1", "Hoja2")).Select
Range("A1") = "Prueba"
End Sub
Como se hace para que esto funcione?, o sea que lo copie en las dos hojas a
la vez. Gracias.
 

Leer las respuestas

#1 Fernando Arroyo
01/03/2005 - 09:20 | Informe spam
"Fabian" escribió en el mensaje news:
Hola a todos!
Sub JuntarHojas( )
Sheets(Array("Hoja1", "Hoja2")).Select
Range("A1") = "Prueba"
End Sub
Como se hace para que esto funcione?, o sea que lo copie en las dos hojas a
la vez. Gracias.





Intenta:

Sub prueba()
Sheets(Array("Hoja1", "Hoja2")).Select
Sheets("Hoja1").Activate
Range("A1").Select
Selection = "Prueba"
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

Preguntas similares