Soru Filtreleme Hatası

[volkan5454]

Üstadlarım ondalıklı filtreleme işlemi yapıyorum Örnek: 1,2 - 1,5 gibi fakat 1,0 -2,0 -3,0 gibi sayılar olduğunda makro bunu 1-2-3 olarak algılıyor ve filtrede sonuç çıkmıyor, nasıl düzeltebiliriz ?

Kullandığım kod

Range("AC2:AC" & Rows.Count).AutoFilter 29
Range("AC2:AC" & Rows.Count).AutoFilter 29, "=" & Range("AC2")

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ekleyerek açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

 

[volkan5454]

Merhaba,

Sorunuzu örnek dosya ekleyerek açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

Değişken AC2 hücrem var Filtreleme yaptığımda 1,0 olanları göremiyorum, diğer sayılar görünüyor,

İndir Filtre çalışması

Dosyayı indir Filtre çalışması

dosya.co

 

[muratboz06]

Deneyiniz.

Sub test()
If Range("AC2") <> 1 Then
Range("AC2:AC" & Rows.Count).AutoFilter 3
Range("AC2:AC" & Rows.Count).AutoFilter 3, "=" & Range("AC2")
Else
Range("AC2:AC" & Rows.Count).AutoFilter 3

Range("AC2:AC" & Rows.Count).AutoFilter 3, "=1,0"

End If
'
End Sub

 

[volkan5454]

Deneyiniz.

Sub test()
If Range("AC2") <> 1 Then
Range("AC2:AC" & Rows.Count).AutoFilter 3
Range("AC2:AC" & Rows.Count).AutoFilter 3, "=" & Range("AC2")
Else
Range("AC2:AC" & Rows.Count).AutoFilter 3

Range("AC2:AC" & Rows.Count).AutoFilter 3, "=1,0"

End If
'
End Sub

Hocam elinize emeğinize sağlık çok güzel omuş

 

[volkan5454]

Deneyiniz.

Sub test()
If Range("AC2") <> 1 Then
Range("AC2:AC" & Rows.Count).AutoFilter 3
Range("AC2:AC" & Rows.Count).AutoFilter 3, "=" & Range("AC2")
Else
Range("AC2:AC" & Rows.Count).AutoFilter 3

Range("AC2:AC" & Rows.Count).AutoFilter 3, "=1,0"

End If
'
End Sub

Hocam şöyle bir sorun oldu 1,0 da sorunsuz filtre yapıyor ama 2,0 yazınca yine bulamıyor.

Range("AC2:AC" & Rows.Count).AutoFilter 3, "=1,0" 1,0 yazan kısmı AC2 hücresinde yazan değer olarak nasıl kodlayabiliriz,

 

[muratboz06]

Deneyiniz.

Sub test()
If Range("AC2") * 10 Mod 10 > 0 Then
Range("AC2:AC" & Rows.Count).AutoFilter 3
Range("AC2:AC" & Rows.Count).AutoFilter 3, "=" & Range("AC2")
Else
Range("AC2:AC" & Rows.Count).AutoFilter 3
Range("AC2:AC" & Rows.Count).AutoFilter 3, "=" & Range("AC2") & ",0"
End If
End Sub

 

[volkan5454]

Deneyiniz.

Sub test()
If Range("AC2") * 10 Mod 10 > 0 Then
Range("AC2:AC" & Rows.Count).AutoFilter 3
Range("AC2:AC" & Rows.Count).AutoFilter 3, "=" & Range("AC2")
Else
Range("AC2:AC" & Rows.Count).AutoFilter 3
Range("AC2:AC" & Rows.Count).AutoFilter 3, "=" & Range("AC2") & ",0"
End If
End Sub

Evet hocam diğer rakamlarıda filtre yapıyor çok teşekkür ederim emeğinize sağlık