Excel sayfamda k6 ="1,80" m7="3,20" b6="3,30" gibi ondalıklı sayılar var bir makroyla ;
AutoFilter Field:=11, Criteria1:=Range("k6") süzüyorum.
Ancak ; sonu 0 sıfır la biten sayıları ; örnek 1,80 ni 1,8 olarak görüyor ve "k6" ya 1,8 zin yanına 0 sıfır koymam gerekiyor "k6" & 0 yaparak bunu çözüyorum ama tablomda 1,85 gibi yanına 0 sıfır gelmemesi gereken sayıları sorunsuz süzüyor. Forumu gezdim denemediğim şey kalmadı ..
soru : hücre 1,80 ise sonuna sıfır koy 1,35 gibi 0 la bitmiyorsa bişey yapma dememiz lazım
Private Sub CommandButton1_Click()
'
.DecimalSeparator = ","
.ThousandsSeparator = "."
.UseSystemSeparators = False
ActiveSheet.Range("$A$5:$AQ$64560").AutoFilter Field:=11, Criteria1:=Range("k6") & 0
'ActiveSheet.Range("$A$5:$AQ$64560").AutoFilter Field:=13, Criteria1:=Range("m6") & 0
'ActiveSheet.Range("$A$5:$AQ$64560").AutoFilter Field:=2, Criteria1:=Range("b6")
end sub
AutoFilter Field:=11, Criteria1:=Range("k6") süzüyorum.
Ancak ; sonu 0 sıfır la biten sayıları ; örnek 1,80 ni 1,8 olarak görüyor ve "k6" ya 1,8 zin yanına 0 sıfır koymam gerekiyor "k6" & 0 yaparak bunu çözüyorum ama tablomda 1,85 gibi yanına 0 sıfır gelmemesi gereken sayıları sorunsuz süzüyor. Forumu gezdim denemediğim şey kalmadı ..
soru : hücre 1,80 ise sonuna sıfır koy 1,35 gibi 0 la bitmiyorsa bişey yapma dememiz lazım
Private Sub CommandButton1_Click()
'
.DecimalSeparator = ","
.ThousandsSeparator = "."
.UseSystemSeparators = False
ActiveSheet.Range("$A$5:$AQ$64560").AutoFilter Field:=11, Criteria1:=Range("k6") & 0
'ActiveSheet.Range("$A$5:$AQ$64560").AutoFilter Field:=13, Criteria1:=Range("m6") & 0
'ActiveSheet.Range("$A$5:$AQ$64560").AutoFilter Field:=2, Criteria1:=Range("b6")
end sub
Son düzenleme: