Ecco la procedura giusta:
Sub Filtraval()
sheets("foglio dove sono i codici").select
Range("H:H").Select '<<<< Colonna con codice
crit = InputBox("Valore da filtrare?") & "*"
Selection.AutoFilter Field:=1, Criteria1:=crit, Operator:=xlAnd
Range("H1").Select '<<<<
End Sub
nel fitro automatico della colonna con i nominativi bisogna andare su personalizza e cliccare su inizia con
SE servisse a qualcun'altro ecccolo a disposizione!!!!
un megeagrazie a anhony47 di pc-facileper la sua competenza e disponibilità.
un saluto a tutti
gianni