Anónimo
Cómo usar la función "autorrellenar" en Excel
Hola a todos,
Me gustaría sacar más partido a la función de "autorrellenar" en Excel. Mi duda es la siguiente:
Quiero que Excel me autorrellene con números crecientes (1,2,3,4,5...) un conjunto de celdas. Sin embargo, me gustaría que lo hiciese con el criterio siguiente: cada 138 celdas me incrementas en un número. Es decir, en las primeras 138 celdas quiero que aparezca un "1"; en las siguientes 138 celdas quiero que aparezca un "2"; y así sucesivamente.
No se si me he explicado bien. ¿Se podría hacer?
Gracias a todos!
Me gustaría sacar más partido a la función de "autorrellenar" en Excel. Mi duda es la siguiente:
Quiero que Excel me autorrellene con números crecientes (1,2,3,4,5...) un conjunto de celdas. Sin embargo, me gustaría que lo hiciese con el criterio siguiente: cada 138 celdas me incrementas en un número. Es decir, en las primeras 138 celdas quiero que aparezca un "1"; en las siguientes 138 celdas quiero que aparezca un "2"; y así sucesivamente.
No se si me he explicado bien. ¿Se podría hacer?
Gracias a todos!
1 Respuesta
Respuesta de dayvitt
1
Dime el rango de las celdas
Quisiera que desde H2 a H4417, se rellenase automáticamente con "1" de H2 a H139; con "2" de H140 a H278;... y así sucesivamente hasta completar con "32" de H4280 a H4417.
Me gustaría que fuese algo dinámico, en el sentido de que pueda utilizar la función o macro más adelante en otros archivos, con otros rangos y con otro criterio de separación (p.e., en lugar de cada 138 celdas, cada 40).
Gracias por el interés!
Me gustaría que fuese algo dinámico, en el sentido de que pueda utilizar la función o macro más adelante en otros archivos, con otros rangos y con otro criterio de separación (p.e., en lugar de cada 138 celdas, cada 40).
Gracias por el interés!
Ve a Herramientas ->Macro->Editor Visual Basic -> Insertar -> Modulo
Y pon esto.
Sub rellena()
Dim x, y, z As Integer
x = 2
y = 1
z = 1
Do Until x > 4417
Cells(x, "H") = y
x = x + 1
If z < 138 Then
z = z + 1
Else
z = 1
y = y + 1
End If
Loop
End Sub
Luego Herramientas -> Macro -> Macro
Y ejecuta "rellenar"
Y pon esto.
Sub rellena()
Dim x, y, z As Integer
x = 2
y = 1
z = 1
Do Until x > 4417
Cells(x, "H") = y
x = x + 1
If z < 138 Then
z = z + 1
Else
z = 1
y = y + 1
End If
Loop
End Sub
Luego Herramientas -> Macro -> Macro
Y ejecuta "rellenar"