Filtro a través de otro combobox que se muestre también en el listbox

Los dos combos son de fecha. ¿Pero la información está en la hoja? ¿Cómo se llama la hoja? ¿Qué datos quieres filtrar? ¿En qué columna está la hoja?

¿Podrías poner una imagen de lo que tienes y de lo que esperas quede en el filtro?

Revisa la siguiente respuesta es similar a lo que necesitas

Filtrar por textos o por números u otros valores

Los datos están en la misma hoja, solo que en otra columna, la hoja se llama ingresar, quiero filtrar la columna "Turno" los turnos son A, B, C,DE como aprecia en la foto e ingresado solo A, lo que precisamente quiero, si aplico el filtro B por ejemplo me muestre todos los "B", pero a la vez si también filtro por fecha a la de ayer, ¿me muestre solo los datos de ayer con el turno "B" se entiende?

Envíame tu última versión de libro para revisarlo, ahí me explicas con un ejemplo.

ya te he enviado el libro, atento a tu respuesta. saludos

Te anexo el código para filtrar por turno

'
Private Sub CommandButton5_Click()
'   Por Dante Amor
'
'Filtra por turno
    If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
    ListBox1.Clear
    If ComboBox3.Value = "" Then
        MsgBox "Seleccione un Turno"
        Exit Sub
    End If
    If ComboBox1.Value = "" Then
        fec1 = ""
    Else
        fec1 = CDate(ComboBox1.Value)
    End If
    If ComboBox2 = "" Then
        fec2 = fec1
    Else
        fec2 = CDate(ComboBox2.Value)
    End If
    '
    u = Range("E" & Rows.Count).End(xlUp).Row
    lamisma = False
    For i = 3 To u
        lafecha = Cells(i, "E").Value
        If fec1 = "" Then fec1 = Cells(i, "E"): lamisma = True
        If fec2 = "" Then fec2 = Cells(i, "E")
        If Cells(i, "E").Value >= fec1 And Cells(i, "E") <= fec2 And _
           Cells(i, "A") = ComboBox3.Value Then
            ListBox1.AddItem Cells(i, "A")
            ListBox1. List(ListBox1.ListCount - 1, 1) = Cells(i, "B")
            ListBox1. List(ListBox1.ListCount - 1, 2) = Cells(i, "C")
            ListBox1. List(ListBox1.ListCount - 1, 3) = Cells(i, "D")
            ListBox1. List(ListBox1.ListCount - 1, 4) = Cells(i, "E")
            ListBox1. List(ListBox1.ListCount - 1, 5) = Format(Cells(i, "F"), "hh:mm")
            ListBox1. List(ListBox1.ListCount - 1, 6) = Format(Cells(i, "G"), "hh:mm")
            ListBox1. List(ListBox1.ListCount - 1, 7) = Cells(i, "H")
        End If
        If lamisma Then
            fec1 = ""
            fec2 = ""
        End If
    Next
End Sub

Sal u dos. No olvides valorar.

Avísame cualquier duda

.

Pero al exportar en PDF me salen todos los turnos , no solo el que acabo de filtrar