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

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]

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....

Muchisimas gracias Me a funcionado de maravilla

- - - - - Mensaje combinado - - - - -

Muchas Gracias Funciona muy bien me ahorraron mucho tiempo de trabajo,

Hay alguna pagina o libro que recomienden para aprender Vb para excel

- - - - - Mensaje combinado - - - - -

Como doy por concluido el tema???

Es VBA, Visual Basic for Applications, VB es diferente.

Usando el buscador del foro para manuales, tutoriales, etc., encontraras mucha info.

Para concluir el tema solo escribe SOLUCIONADO.

Sugiero leer los temas adheridos en esta pagina: Ideas y aportes