Todoexpertos.com
http://www.todoexpertos.com
La respuesta está en Internet
Información de la pregunta
Título: relleno con condicion
Experto: elsamatilde
Valoración: 5
Fecha: 16/05/2008

relleno con condicion
Hola a todos, he leido este foro y parece muy interesante. No soy experto en excel pero necesito alguna ayuda. Como puedo rellenar una serie de celdas segun 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 esribo el valor 26, apareceran del 1 al 26 numeradas consecutivamente. Seguro que para vosotros sera sencillo....... un saludo a todos. Angel

relleno con condicion
Hola: Tenés que escribir en 1 celda el primer número (ej: 1). Ahora seleccioná esa celda, y vas a menú [b]Edición [/b](o buscá dentro del último grupo: Modificar si estás en Excel 2007), [b]Rellenar[/b], [b]Series[/b]. En esa ventana, optá por [b]Columna[/b], [b]Lineal[/b], Incremento ([b]1[/b]) y en [b]límite [/b]ingresá [b]5[/b] o 26 o lo que fuere. Aceptá y lo tendrás en tu hoja. Saludos Elsa [url=http://galeon.com/aplicaexcel]http://galeon.com/aplicaexcel[/url]

relleno con condicion
Gracias por la aclaracion, pero tal vez me he explicado mal. Repito: el objetivo consiste en que cuando escriba un numero entero en una celda, automaticamente y sin hacer ningun proceso ese numero se desarolle en las deldas inferiores. ejemplo Nª de plazas [b]3[/b] (valor a introducir) 1 2 relleno automatico 3 otro ejemplo Nª de plazas [b]6[/b] (valor a introducir) 1 2 (relleno automatico) 3 4 5 6

relleno con condicion
Bueno, 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 Probalo y si esto resuelve tu consulta, no olvides finalizarla. Saludos Elsa [url=http://galeon.com/aplicaexcel]http://galeon.com/aplicaexcel[/url]

Pregunta finalizada. Valoración: 5
Gracias experto, funciona perfectamente; esto empezaba a convertirse en una obsesion. Un saludo. Angel

Volver al mensaje
http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/1844845/relleno-con-condicion