Insertar filas segun el numero en las celdas

2easyd · el 9 de septiembre

Insertar filas segun el numero en las celdas SOLUCIONADO

Buen día quisiera ver si me podrían apoyar con este tema

Tengo un archivo en excel de 5000 Filas muy parecido al que adjunto solo que por razones de seguridad no adjunto el original, el punto es que quiero insertar 1 fila debajo de cada celda en la que me dice el total de cada proveedor mediante una macro, el numero de celdas a insertar lo agregue en la columna D con una formula,

Espero me puedan apoyar ya que llevo varios dias buscando y no encuentro lo que necesito

Gracias y Saludos!!

Insertar filas.xls

Antoni · el 9 de septiembre

Hola:

Prueba esta macro.

Sub InsertarFilas(): On Error Resume Next


   Application.ScreenUpdating = False

   For x = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1

      For f = 1 To Range("D" & x)

         Rows(x + 1).Insert

      Next

   Next



End Sub



[/CODE]

Quetzal Chapa · el 9 de septiembre

Buenos dias, te comparto el codigo:

Sub Inserta_filas()

Dim NumReng         As Long

Dim cont            As Long

Dim cont2           As Long

    'cuenta num total de renglones

    NumReng = Range("D1").CurrentRegion.Rows.Count

    'ciclos para insertar renglones (va de mayor a menor)

    For cont = NumReng To 2 Step -1

        For cont2 = 1 To Cells(cont, 4).Value

            Cells(cont + 1, 1).EntireRow.Insert

        Next cont2

    Next cont


End Sub



[/CODE]

Aqui el truco es que el ciclo vaya de mayor a menor, para que no cuente doble donde ya se insertaron filas.

Saludos....