Macro to filter on multiple fields

[jimb2k]

Hello

I have a macro that I want to adapt to a change to add another filter.

I'm reading a text file with a format like this :

"Name";"OperatingSystem";"OperatingSystemVersion"
"Test1";"Windows 10 Pro";"10.0 (18363)"
"Test2";"Windows 10 Enterprise";"10.0 (18363)"
"Test3";"Windows 10 Pro";"10.0 (18363)"
"Test4";"Windows 10 Enterprise";"10.0 (18363)"
"Test5";"Windows 10 Familial";"10.0 (18363)"

After that macro fill the cells with values filtred based on version os OS(10.0 (18363))



I want to add a filter on Windows 10 to count also the computer by OS (Pro, Ent), the structure of the table will change to this

    For i = 1 To k
    
        If Left(versions(j), 2) = "10" Then
        
            ActiveSheet.Range("$A$1:$D$500").AutoFilter Field:=3, Criteria1:=versions(j)
            findedversions(j) = Evaluate("=subtotal(3,A:A)") - 1
        Else
                        
                ActiveSheet.Range("$A$1:$D$500").AutoFilter Field:=3, Criteria1:=Left(versions(j), 3) & "*"
                ActiveSheet.Range("$A$1:$D$500").AutoFilter Field:=2, Criteria1:="=windows*", Operator:=xlAnd
                findedversions(j) = Evaluate("=subtotal(3,A:A)") - 1
            
            End If
        
        End If
       
   Next j

Thank you in advance for your help

 

[jimb2k]

if anyone can help, I'll be grateful