Macro para copiar valor de una celda a todas las hojas

[pepegoteras]

Hola, tengo un libro con 31 hojas, una hoja por dia, y el problema es que, segun el mes o dias tengo que cambiar ciertos valores de productividad.

lo que hago es lo siguiente:

Sub copiar()...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JM123]

Hola prueba esto

Sub copiar()
Sheets("Hoja1").Activate
Range("a1").Copy
For i = 2 To 31
Sheets(i).Activate
Range("a1").PasteSpecial
Next i
End Sub

Saludos

 

[pepegoteras]

Perfecto, funciona de maravilla, mil gracias!!!!

 

[Adrian]

Hola, basado en lo aportado JM123, pongo alternativa:

Sub Copiar()
Dim i As Integer
Hoja1.Range("A1").Copy
For i = 2 To Sheets.Count 'hasta la cantidad de hojas...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí