Buonasera ho dovuto cambiare notebook ed il nuovo excel sembra non riconoscere i valori della seguente macro, ovvero mi inverte la virgola con il punto. Devo forse cambiare qualche impostazione. Nel senso che quando avvio la macro al posto di scrivermi 10,(virgola)00
mi scrive 10.(punto)00 e quindi non mi restituisce i valori
Era un vecchio tread, questo, ma ancora lo utilizzo alla grande!
Grazie a tutti
Public Sub filtraNumeri()
Dim n As Double
Dim s As String
On Error Resume Next
n = Application.InputBox("Inserire numero", , , , , , , 1)
On Error GoTo 0
With ActiveSheet.Range("$A$1:$A$20")
.AutoFilter
If n Then
s = Format(n, .Cells(2, 1).NumberFormat)
s = Replace(Replace(Replace(s, ".", "*"), ",", "."), "*", ",")
.AutoFilter Field:=1, Criteria1:=s
End If
End With
End Sub