Error con codigo

[Bcordero]

Buenas tarde tratando de acoplar a un archivo de auto filtro me quedo con la sorpresa que me manda un error al momento de ejecutarlo revisándolo y viendo que el código es el correcto no logro encontrar cual es el error

Public Ruc As Double

Public Nomclien As String

Public Articulo As Double

Public Descripcion As String

Public Unidad As String

Public Cantidad As Double

Public Familia As String

Public Documento As String

Public fecha As Date

Public fecha2 As Date

Public CodFam As Integer


Private Sub DTPicker1_Change()

    If Not IsNull(DTPicker1.Value) Then _

    fecha = VBA.Format(DTPicker1.Value, "mm/dd/yyyy")

    super_turbofiltro_GP

End Sub


Private Sub DTPicker2_Change()

    If Not IsNull(DTPicker2.Value) Then _

    fecha2 = VBA.Format(DTPicker2.Value, "mm/dd/yyyy")

    super_turbofiltro_GP

End Sub


Private Sub Label16_Click()


End Sub


Private Sub Rucgp_Change()

    Ruc = VBA.Val(Me.Rucgp.Value)

    'consecutivo = Me.Consecutivogp.Text

    super_turbofiltro_GP

End Sub


Private Sub Nomcliengp_Change()

    Nomclien = Me.Nomcliengp.Text & IIf(Me.Nomcliengp.Text = "", "", "*")

    super_turbofiltro_GP

End Sub


Private Sub Articulogp_Change()

    Articulo = VBA.Val(Me.Articulogp.Value)

    super_turbofiltro_GP

End Sub


Private Sub Descripciongp_Change()

    Descripcion = Me.Descripciongp.Text & IIf(Me.Descripciongp.Text = "", "", "*")

    super_turbofiltro_GP

End Sub


Private Sub Unidadgp_Change()

    Unidad = Me.Unidadgp.Text & IIf(Me.Unidadgp.Text = "", "", "*")

    super_turbofiltro_GP

End Sub

Private Sub Familiagp_Change()

    Familia = Me.Familiagp.Text & IIf(Me.Familiagp.Text = "", "", "*")

    super_turbofiltro_GP

End Sub

Private Sub Documentogp_Change()

    Documento = Me.Documentogp.Text & IIf(Me.Documentogp.Text = "", "", "*")

    super_turbofiltro_GP

End Sub


Private Sub CodFamgp_Change()

    CodFam = VBA.Val(Me.CodFamgp.Value)

    super_turbofiltro_GP

End Sub

Private Sub Cantidadgp_Change()

    Cantidad = VBA.Val(Me.Cantidadgp.Value)

    super_turbofiltro_GP

End Sub


Private Sub ComboBox1_Change()

    super_turbofiltro_GP

End Sub


Private Sub filtrargp()

Application.ScreenUpdating = False

    Dim uf As Integer

    Sheets("LISTBOX").Range("A1").CurrentRegion.Delete xlShiftUp

    With Sheets(Me.ComboBox1.Text)

    uf = .Range("A" & Rows.Count).End(xlUp).Row

    With .Range("A1:J" & uf)

    If Ruc Or fecha Or fecha2 Or Nomclien <> "" Or Articulo _

    Or Descripcion <> "" Or Unidad <> "" Or Familia <> "" Or Documento <> "" Or CodFam Then

        If Ruc Then .AutoFilter Field:=1, Criteria1:=Ruc

        If fecha And fecha2 Then .AutoFilter _

        Field:=2, Criteria1:=">=" & fecha, Operator:=xlAnd, Criteria2:="<=" & fecha2

        If Nomclien <> "" Then .AutoFilter Field:=3, Criteria1:=Nomclien

        If Articulo Then .AutoFilter Field:=4, Criteria1:=Articulo

        If Descripcion <> "" Then .AutoFilter Field:=5, Criteria1:=Descripcion

        If Unidad <> "" Then .AutoFilter Field:=6, Criteria1:=Unidad

        If Cantidad Then .AutoFilter Field:=7, Criteria1:=Cantidad

        If Familia Then .AutoFilter Field:=8, Criteria1:=Familia 'error salta aqui

        If Documento Then .AutoFilter Field:=9, Criteria1:=Documento

        If CodFam Then .AutoFilter Field:=10, Criteria1:=CodFam

        .Offset(1).Copy Sheets("LISTBOX").Range("A1")

    Else

        Sheets("LISTBOX").Range("A1").CurrentRegion.Delete xlShiftUp

        Me.ListBox1 = ""

    End If

    End With

    If .AutoFilterMode Then .AutoFilterMode = False

    End With

Application.ScreenUpdating = True

End Sub


Private Sub UserForm_Activate()

    Me.Rucgp.SetFocus

End Sub


Private Sub UserForm_Initialize()

    For Each hoj In Worksheets

        If hoj.Name <> "Menu" And hoj.Name <> "LISTBOX" Then _

        Me.ComboBox1.AddItem hoj.Name

    Next

    Me.ComboBox1 = Me.ComboBox1.List(0, 0)

    Me.ListBox1.ColumnWidths = "90pt;135pt;120pt;75pt;57pt;60pt;60pt;60pt;60pt"

    Me.DTPicker1.Value = Date: Me.DTPicker2.Value = Date

    Me.registrogp.Visible = False

End Sub


Private Sub UserForm_Terminate()

Application.ScreenUpdating = False

    Sheets("LISTBOX").Range("A1").CurrentRegion.Delete xlShiftUp

    Me.ListBox1 = ""

Application.ScreenUpdating = True

End Sub


Sub super_turbofiltro_GP()

    Dim uf2 As Integer

    filtrargp

    Me.registrogp.Visible = False

    With Sheets("LISTBOX")

        uf2 = .Range("B" & Rows.Count).End(xlUp).Row

        Me.ListBox1.RowSource = .Name & "!A1:J" & uf2

    End With

End Sub


Private Sub ListBox1_Click()

For i = 0 To 9

With Me.ListBox1

    registro = registro & "  ~  " & .List(.ListIndex, i)

End With

Next

With registrogp

    .Visible = True

    .Caption = VBA.Replace(registro, "~", "", , 1)

End With

End Sub

[/CODE]

pues espero que puedan ayudarme a resolverlo porfavor

gracias

AUTOFILTROS.zip

[Bcordero]

el archivo actualizado con los 2 formularios el formulario " TurboFiltroUserform_GP " trata de filtrar pero no me muestra ninguno dato a que se debe eso ? subo el archivo actualizado

FILTROSV2.zip