Sobre rellenar datos
Saludos
Tengo una formula en hoja1: ='hoja1'!E25, necesito rellenar varias filas abajo, pero que incremente el numero de la hoja, estoy usando '1', '2', ...'50' como nombres de hoja. Al mismo tiempo necesito que el valor de la celda E25 se mantenga para todas las celdas rellenadas.
Al final debería quedar:
='1'!E25
='2'!E25
='3'!E25
.
.
='50'!E25
neanq
Tengo una formula en hoja1: ='hoja1'!E25, necesito rellenar varias filas abajo, pero que incremente el numero de la hoja, estoy usando '1', '2', ...'50' como nombres de hoja. Al mismo tiempo necesito que el valor de la celda E25 se mantenga para todas las celdas rellenadas.
Al final debería quedar:
='1'!E25
='2'!E25
='3'!E25
.
.
='50'!E25
neanq
1 Respuesta
Respuesta de calvuch
1
Prueba
Sub rellenar()
Dim i As Integer
For i = 1 To Application.Sheets.Count
Range("A" & i) = "=Hoja" & i & "!" & "E25"
Next
End Sub
Te dejara los resultados en la col A si necesitas que sea en otra col modifica la referencia range
No olvides CERRAR la pregunta
Sub rellenar()
Dim i As Integer
For i = 1 To Application.Sheets.Count
Range("A" & i) = "=Hoja" & i & "!" & "E25"
Next
End Sub
Te dejara los resultados en la col A si necesitas que sea en otra col modifica la referencia range
No olvides CERRAR la pregunta
