Relleno con condición
Hola a todos, he leído este foro y parece muy interesante. No soy experto en excel pero necesito alguna ayuda. Como puedo rellenar una serie de celdas según un numero determinado y variable; es decir, si yo escribo en una celda el valor 5 necesito que en las celdas inferiores se numeren consecutivamente del 1 al 5; si escribo el valor 26, aparecerán del 1 al 26 numeradas consecutivamente. Seguro que para vosotros sera sencillo... Un saludo a todos. Angel
1 respuesta
Respuesta de Elsa Matilde
1
Tenés que escribir en 1 celda el primer número (ej: 1).
Ahora seleccioná esa celda, y vas a menú Edición (o buscá dentro del último grupo: Modificar si estás en Excel 2007), Rellenar, Series.
En esa ventana, optá por Columna, Lineal, Incremento (1) y en límite ingresá 5 o 26 o lo que fuere. Aceptá y lo tendrás en tu hoja.
Ahora seleccioná esa celda, y vas a menú Edición (o buscá dentro del último grupo: Modificar si estás en Excel 2007), Rellenar, Series.
En esa ventana, optá por Columna, Lineal, Incremento (1) y en límite ingresá 5 o 26 o lo que fuere. Aceptá y lo tendrás en tu hoja.
Gracias por la aclaración, pero tal vez me he explicado mal. Repito: el objetivo consiste en que cuando escriba un numero entero en una celda, automáticamente y sin hacer ningún proceso ese numero se desarrolle en las deldas inferiores.
Ejemplo
Nª de plazas 3 (valor a introducir)
1
2 relleno automático
3
Otro ejemplo
Nª de plazas 6 (valor a introducir)
1
2 (relleno automático)
3
4
5
6
Ejemplo
Nª de plazas 3 (valor a introducir)
1
2 relleno automático
3
Otro ejemplo
Nª de plazas 6 (valor a introducir)
1
2 (relleno automático)
3
4
5
6
Para esto necesitarás una rutina.
Entrá al Editor (con Alt y F11), seleccioná con doble clic la HOJA donde ingresarás los valores (de la lista de objetos en panel a tu izquierda) y allí copiá esto:
Private Sub Worksheet_Change(ByVal Target As Range)
'indicar el rango donde se ingresarán los valores
mirgo = "A2:E2"
If Not Intersect(Target, Range(mirgo)) Is Nothing Then
'si lo ingresado es número se rellena hacia abajo
If IsNumeric(Target) Then
lim = Target.Value
Target.Offset(1, 0) = 1
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=lim, Trend:=False
End If
End If
End Sub
Ajustá el rango donde ingresarás los números, que yo dejé como A2:E2
Pruébalo y si esto resuelve tu consulta, no olvides finalizarla.
Entrá al Editor (con Alt y F11), seleccioná con doble clic la HOJA donde ingresarás los valores (de la lista de objetos en panel a tu izquierda) y allí copiá esto:
Private Sub Worksheet_Change(ByVal Target As Range)
'indicar el rango donde se ingresarán los valores
mirgo = "A2:E2"
If Not Intersect(Target, Range(mirgo)) Is Nothing Then
'si lo ingresado es número se rellena hacia abajo
If IsNumeric(Target) Then
lim = Target.Value
Target.Offset(1, 0) = 1
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=lim, Trend:=False
End If
End If
End Sub
Ajustá el rango donde ingresarás los números, que yo dejé como A2:E2
Pruébalo y si esto resuelve tu consulta, no olvides finalizarla.
