Saludos, Tengo una hoja en excel con datos de una compra a un proveedor, de esta hoja quiero sacar etiquetas para productos, necesito entonces que cada hilera que representa un producto del cual se compraron las piezas que vienen en la columna, se repita las veces que dice el dato de la columna D, anexo archivo. Mil gracias

etiqauto.xls

Hola, copia este código en un módulo de Visual Basic y asígnaselo a un botón. Este código crea una nueva hoja con las filas correspondientes de cada registro. Cuando lo hayas pegado también puedes ejecutarlo pulsando F5.

Espero que sea lo que querías.

Public Sub CrearFilas()

numFilas = 0



Application.ScreenUpdating = False



Worksheets.Add



nombre = ActiveSheet.Name



Worksheets("etiqauto").Select



filas = Range("a50000").End(xlUp).Row



For t = 1 To filas



    nFilas = Cells(t, 4)

    Range("A" & t & ":G" & t).Copy


    Worksheets(nombre).Select


    fila = Range("a65000").End(xlUp).Row


    For c = 1 To nFilas


      Range("A" & fila + c).Select


       ActiveSheet.Paste

       numFilas = numFilas + 1


    Next c



Worksheets("etiqauto").Select



Next t



Application.CutCopyMode = False



Application.ScreenUpdating = True



MsgBox (numFilas & " filas creadas en la hoja: " & nombre)

End Sub

[/CODE]

Un saludo.

Marcial C.

Tema solucionado

Excelente es lo que necesitaba muchas gracias!