[VBA/EXCEL] Filtro di dati tramite controlli

[neho34]

Ecco il codice

Function contaUomini(uomini As Boolean)
If uomini = True Then
    For i = 1 To 10000
    If Range("B" & i) = 1 Then
        conta = conta + 1
    End If
    Next
    lbl_filtro = conta
End If
End Function
Function contaDonne(donne As Boolean)
If donne = True Then
    For i = 1 To 10000
    If Range("D" & i) = 1 Then
        conta = conta + 1
    End If
    Next
    lbl_filtro = conta
End If
End Function

grazie per il tuo tempo