Jump to content

Insertar filas segun el numero en las celdas


2easyd

Recommended Posts

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

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy