problem autofiltering text (numbers) including comma

**snb** · 07-14-2010, 04:15 AM

Sub kontfilter(filtervarde As String, kol As Integer)
   If filtervarde <> "" Then activesheet.columns(kol),1,filtervarde,xlor,replace(fitervarde,",",".")
End sub

**petca059** · 07-14-2010, 11:02 AM

Im sorry, can you please explain that code?

the replace"thing" solved it when i used it. Thanks! Would still like an explaination of the other things in your code

didnt work for me..

**snb** · 07-14-2010, 11:13 AM

It's meant to be the replacement and improvement of your sub 'kontfilter'.

But it has an omission

Sub kontfilter(filtervarde As String, kol As Integer)
   If filtervarde <> "" Then activesheet.columns(kol).autofilter 1,filtervarde,xlor,replace(fitervarde,",",".")
End sub

**honoriatus** · 11-12-2014, 10:04 AM

Try this:

(...)
Selection.AutoFilter Field:=kol, Criteria1:="=" & filtervarde, VisibleDropdown:=False
(...)

~~~~> Criteria1:="=" & YourVariable

Hope it works