Hola,

Encontré este código en internet para una macro para separar los datos de una hoja por medio de filtrado.

El filtro funciona perfectamente, la creación de las hojas también, pero al ciclar para filtrar nuevamente y escribir en la hoja nueva, me manda un error 1004.

Aquí el código:

Sub separar()

    Dim arrProductos As Variant, i As Integer, hojaBase As String

    arrProductos = Array("001N", "003N", "004N", "005N", "006N", "012A", "012N", "017N")

    hojaBase = ActiveSheet.Name


    For i = 0 To UBound(arrProductos)

        Range("A1").Select

        Selection.AutoFilter Field:=2, Criteria1:=arrProductos(i)

        Range(Selection, Selection.End(xlDown)).Select

        Range(Selection, Selection.End(xlToRight)).Select

        Selection.Copy

        Sheets.Add

        [COLOR=#ff0000]ActiveSheet.Paste[/COLOR]

        ActiveSheet.Name = arrProductos(i)

        Sheets(hojaBase).Select

    Next



End Sub[/CODE]

Alguna idea para solucionarlo? el error me lo da en la linea marcada en rojo.

Saludos y gracias adelantadas por la ayuda !

Tal vez te sirva este ejemplo:

AdvFilterRep.xls