¿Hay alguna forma de fijar el número de columnas a rellenar usando Microsoft Excel?
A ver, ¿hay alguna manera de fijar el numero de columnas que se quieren rellenar? Me explico, quiero que se llenen el doble de columnas respecto al numero de 400 que hay en otra columna y menos 4. Es decir, si en la otra columna hay 20 400, pues se tendrían que llenar 36 filas con números consecutivos. Supongo que no me he explicado muy bien, pero espero que me puedan ayudar. Si hace falta lo explico más detalladamente. Gracias de antemano
1 respuesta
Respuesta de Elsa Matilde
1
Siento que no hayas entendido y eso que siempre detallo cada instrucción de la rutina.
Aquí casi todas las consultas se tratan de macros, eso hace presuponer que saben de qué estamos hablando.
De todos modos me alegro que lo hayas resuelto. En el link que te adjunto encontrarás el tema desarrollado en nivel bastante inicial. Si me dejas tu mail ya te enviaré un buen manual para que comiences de cero si te interesa.
Saludos
Elsa
*** http://es.geocities.com/lacibelesdepunilla/macros
Aquí casi todas las consultas se tratan de macros, eso hace presuponer que saben de qué estamos hablando.
De todos modos me alegro que lo hayas resuelto. En el link que te adjunto encontrarás el tema desarrollado en nivel bastante inicial. Si me dejas tu mail ya te enviaré un buen manual para que comiences de cero si te interesa.
Saludos
Elsa
*** http://es.geocities.com/lacibelesdepunilla/macros
mi mail es [email protected]
Gracias por todo
Gracias por todo
Aquí va una rutina para que ajustes y pruebes Se coloca en un módulo
Sub rellena()
Dim conta As Integer, miValor As Integer, miContador As Integer
'el valor consecutivo que agregaré
miContador = 1
'aquí fijas la cantidad de columnas (o filas????)
miValor = Range("E5") - 4
'primer celda a rellenar
ActiveSheet.Range("A5").Select
'repito el bucle para el total que calculé
While conta < miValor
ActiveCell.Value = miContador
'paso a la fila siguiente
ActiveCell.Offset(1, 0).Select
miContador = miContador + 1
Wend
End Sub
Sub rellena()
Dim conta As Integer, miValor As Integer, miContador As Integer
'el valor consecutivo que agregaré
miContador = 1
'aquí fijas la cantidad de columnas (o filas????)
miValor = Range("E5") - 4
'primer celda a rellenar
ActiveSheet.Range("A5").Select
'repito el bucle para el total que calculé
While conta < miValor
ActiveCell.Value = miContador
'paso a la fila siguiente
ActiveCell.Offset(1, 0).Select
miContador = miContador + 1
Wend
End Sub
