filtro automatico

[lac72Partecipante lac72]

Buon giorno,

vorrei applicare un filtro automatico usando il seguente codice

  Peso = "3,7"
  Peso = "<=" & Peso
  ActiveSheet.Range("A1:B1").AutoFilter Field:=2, Criteria1:= _
         Peso

per individuare le righe che nella colonna B hanno un valore minore di 3,7.

una volta eseguita la riga, il filtro nasconde tutto non mostrando nessuna riga.

Se, dopo aver eseguito la macro, seleziono il filtro manualmente, e senza modificare nulla do OK, il filtro funziona regolarmente filtrando le righe giuste.

Ho fatto diverse prove, ho già perso un sacco di tempo ma non ce l'ho fatta.

Se qualcuno mi può aiutare

Grazie

Allegati:

You must be logged in to view attached files.

[patelModeratore patel Karma: 51 pts]

prova con 3.7 invece che con la virgola

[lac72Partecipante lac72]

era tra le prime prove fatte, è uguale

[albatros54Moderatore albatros54 Karma: 89 pts]

prova cosi

Sub ProvaPeso()
  
  peso = 2.5
  peso = "<= " & Val(peso)
  
  ActiveSheet.Range("A1:B1").AutoFilter Field:=2, Criteria1:= _
         peso

End Sub

 

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[lac72Partecipante lac72]

Ottimo, funziona

grazie 1000

[lac72Partecipante lac72]

ma giusto per capire, cosa fa il VAL?

[lac72Partecipante lac72]

Purtroppo mi sono appena accorto che il VAL mi arrotonda all'unità

[lac72Partecipante lac72]

ho risolto con:

peso = "<= " & Str(peso)

di nuovo grazie

[Autore]

Articoli