Hola a todos:

Estoy trabajando en un pequeño proyecto en la que por medio de una macro quiero traer los datos de una hoja llamado articulos.

Ejemplo:

Que me desgloce todos los codigos existentes por familia. Pero que la familia este unificada. es decir si en mi lista de articulos existen 20 familias diferentes las traiga todas.

Adjunto mi ejemplo y un pequeño avanze que con macro de autofiltro. Pero me trae una sola familia.

Lo que quiero es que me traiga todas las existentes

Vasos

Platos

Cubiertos y con cada uno sus codigos.

Gracias

MP

Inventariomo.xls

Podrías incorporar la siguiente macro a un módulo común:

Sub InventarioPorFlia()
'-------------------
' By Cacho Rodríguez
''-------------------
Dim Q As Long

With Application: .ScreenUpdating = False: .EnableEvents = False: End With
If [b9] <> "" Then Range([b9], Cells(Rows.Count, "b").End(xlUp)).Resize(, 8).Delete xlShiftUp

With Worksheets("Articulos")
  If .[b2] = "" Then GoTo Fin
  .Range(.[b2], .Cells(Rows.Count, "b").End(xlUp)).Resize(, 4).Copy [b9]
End With

Q = Range([b9], [b8].End(xlDown)).Count

[b8:e8].Resize(1 + Q).Sort key1:=[b8], order1:=xlDescending, _
  key2:=[d8], order2:=xlAscending, Header:=True

With [b9].Resize(Q)
  .Copy [a9]: .Formula = "= if(a9=a8, """", a9)"
  .Value = .Value: .Offset(, -1).ClearContents
End With

Fin:
With Application: .EnableEvents = True: .ScreenUpdating = True: End With
End Sub[/PHP]

y debes ejecutarla teniendo a la hoja 'Inventario' como hoja activa.

¿Te sirve la idea?...

Saludos, Cacho R.

Cacho:

Muchas gracias, lo he agregado a mi ejemplo. y funciona bien, voy a probar en mi archivo original y a ver que tal

Un saludo