Macro que inserte filas

Necesitaría una Macro que me inserte filas, a lo largo de una columna, (unas 50 celdas), tantas como el valor de la celda, siempre que dicho valor sea mayor que 1, es decir, si A1 =3, me inserte 2 filas, copiando el valor de A1, y en el rango B2:B3 creado, copie el valor de B1 y así sucesivamente, de manera que en la columna B, repita el valor tantas veces como indica la columna A.
Una cosa +o- asi:
A1=3    B1=2020
A2=2    B2=3030
Resultado:
A1=3    B1=2020
A2=3    B2=2020
A3=3    B3=2020
A4=2    B4=3030
A5=2    B5=3030
Y así sucesivamente.
Muchísimas Gracias.

1 Respuesta

Respuesta
1
Servido Sr. José María.
Selecciona la ÚLTIMA celda llena de la COLUMNA A, y luego ejecuta la macro
Sub Macro1()
Dim inicio As Double
Dim fin As Double
Dim rangoinsert As String
Dim celdant As Range
Application.ScreenUpdating = False
While ActiveCell.Row > 0
If IsNumeric(ActiveCell) And ActiveCell > 1 Then
inicio = ActiveCell.Row + 1
fin = ActiveCell.Row + ActiveCell - 1
rangoinsert = inicio & ":" & fin
Rows(rangoinsert).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
For i = inicio To fin
Cells(i, 1) = Cells(inicio - 1, 1)
Cells(i, 2) = Cells(inicio - 1, 2)
Next
End If
If ActiveCell.Row <> 1 Then
ActiveCell.Offset(-1, 0).Select
Else
Exit Sub
End If
Wend
End Sub
Carlos L.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Valor de una celda de Excel

Tengo tres hojas de calculo, una seria el real otra el presupuesto y otra que seria a que tendría que poner el dato mi pregunta es como podría hacer sil a de real tiene valor cogiera ese valor, en caso de no existir ese dato cogiera de la tabla de...
1 respuesta

Crear Macro, con condiciones y editar celda

¿Cómo crear una macro que Busque en toda la hoja, (bucle con condiciones), introduciendo texto y se pueda editar celda?
1 respuesta

Extraer datos de celdas descontinuas de una hoja de excel.

Extraer datos de celdas descontinuas de una hoja de excel y enviarlos a otra hoja donde hay una tabla donde se van a ir agregando los datos por cada día en la parte de abajo. Ejemplo datos de: HOJA1 J11, H12, E18, O19,020, O21, O22, F23, J23...
1 respuesta

Al agregar columnas en una hoja de Excel, se desconfiguraron unas fórmulas.

Tengo un archivo de Excel con 4 hojas en una tengo RENTAS y en la segunda NOTAS en donde al ponerle el número de pedido me jala la información de la hoja RENTAS. Pero tengo la necesidad de agregar más columnas con más productos, y al agregar esas...
2 respuestas

Uso de filtros avanzados y listbox en userfotm

Tengo una tabla, con nombre, productos y mes, ¿Cómo filtrar por mes y aparezca en un listbox de un userform?
3 respuestas

Cómo asignar una letra para el año de una fecha

Tengo una celda (J22) que contiene una fecha (12/03/2024), y otra celda que lee esa fecha y segun el año le asigna una letra, con esta formula =SI(TEXTO(C5;"aaaa")="2024";"A/";""), en este caso A/. El valor de la celda J22, puede cambiar dependiendo...
2 respuestas

¿Macro en excel que sombree las celdas con condiciones?

Macro en excel que sombree las celdas de la columna "G" que suman el valor de cada celda de la columna "D" si como condición la celda "E" dice "campeon"
1 respuesta

¿Cómo coloreo los resultados: de amarillo a los valores menores al rango, y de color rosa a los valores mayores, en excel?

Tengo la siguiente lista: A B C 1 NUM1 NUM2 RESULTADO 2 10 20 5 3 30 40 35 4 50 60 70 Por ejemplo, me gustaría que el resultado fuera así: -> Que la celda "C2" se pinte de amarillo, porque "5" es menor al rango 10 a 20. -> Que la celda C3 no cambie...
2 respuestas

Importación desde Access 2007 de un fichero Excel 2007 con 900.000 filas

Que me parece 'de locos'. La base del problema es que quiero importar desde Access un fichero Excel con unas 900,000 filas. Y a partir de ahí, me encuentro con que en mi PC 'de siempre' lo puedo hacer sin ningún tipo de problemas, pero cuando lo...
2 respuestas

Cómo llenar una celda de excel con los datos de otras celdas ?

Necesito rellenar la celda de observaciones, con los datos de otras dos celdas. Por ejemplo, es una excel de llamadas telefónicas y funciona de esta manera: Cuando realizó la llamada telefónica, en la columna de "Estado" tengo una lista desplegable....
1 respuesta