none
No hace el filtrado de números RRS feed

  • Pregunta

  • No muestra el filtrado de años. ¿Me podrían ayudar para saber qué está mal?

    'COMANDOS PARA EL COMOBOX DE AÑO
    Private Sub YEAR_Change()


    'Evito movimientos en la pantalla
    Application.ScreenUpdating = False

    'Declaración de variables
    Dim fila, a As Integer
    On Error Resume Next

    'Limpia los datos del ListBox
    ListBox1.Clear

    a = 0
    fila = 2


    While Sheets("INCIDENTES").Cells(fila, 10) <> Empty
        'Variable temporal igual al valor de entrada del ComboBox
        dato = YEAR


        Var = Sheets("INCIDENTES").Cells(fila, 2)
        If YEAR = "" Then
            If REFINERIA = "" Then
            Else
                If Sheets("INCIDENTES").Cells(fila, 12) = REFINERIA Then
                filtrar (fila)
                End If
            End If
            Else
                If Sheets("INCIDENTES").Cells(fila, 2) = YEAR Then
                    If REFINERIA = "" Then
                    filtrar (fila)
                Else
                    If Sheets("INCIDENTES").Cells(fila, 12) = REFINERIA Then
                    filtrar (fila)
                    End If
                End If
            End If
        End If
        fila = fila + 1
    Wend


    'Devuelvo movimientos de la pantalla
    Application.ScreenUpdating = True


    'Ciclo para el conteo de datos dentro del ListBox
    For x = 0 To ListBox1.ListCount - 1
    If ListBox1.List(x, 0) <> "" Then
        m = m + 1
    End If
    Next

    'MsgBox "hay un total de: " & m & " datos, y serán anotados en el textbox1"
    TextBox1.Value = m

    End Sub

            
    martes, 12 de marzo de 2019 16:25