[Yardım]  Formata Göre Filtreleme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Formata Göre Filtreleme

İleti#1)  Jeeday75 » 22 Kas 2021 21:44

Merhabalar,
Bir sütunda para değerleri var aşağıdaki gibi. Hücreler currency formatında (text olarak semboller gözükmüyor)

624,25 €
1.400,00 ₺
1.600,00 ₺
9.300,00 $
2.500,00 ₺
800,00 ₺
24.722,50 ₺
52.000,00 £

Bu kolonda para cinsine göre filtreleme yapmak istiyorum...

S0.Range("A1:N1").AutoFilter Field:=10, Criteria1:=???????, Operator:=?????
Kullanıcı avatarı
Jeeday75
Yeni Başlamış
 
Adı Soyadı:Alper Öztovi
Kayıt: 20 May 2010 12:38
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Şişli

Cevap: Formata Göre Filtreleme

İleti#2)  okutkan » 22 Kas 2021 22:48

Aşağıdaki dosyada euro ve sterlin için satır gizleme uygulaması yaptım. Örnekleri çoğaltabilirsiniz. Dosyanızı yüklerseniz, dosya üzerindeki para birimleri üzerinde filtreleme yapmak için kodları güncelleyebilirim.

Kod: Tümünü seç
Private Sub CommandButton1_Click() 'Euro için filtreleme
Dim s As Worksheet: Set s = Sheets("Sayfa1")
son = s.Cells(Rows.Count, "A").End(3).Row
s.Rows.Hidden = False

For i = 2 To son
If Not s.Cells(i, "A").NumberFormat = "#,##0.00 [$€-1]" Then
s.Rows(i).Hidden = True

Else
s.Rows(i).Hidden = False
End If

Next i
End Sub

Private Sub CommandButton2_Click() 'Sterlin için filtreleme
Dim s As Worksheet: Set s = Sheets("Sayfa1")
son = s.Cells(Rows.Count, "A").End(3).Row
s.Rows.Hidden = False
For i = 2 To son
If Not s.Cells(i, "A").NumberFormat = "[$£-809]#,##0.00" Then
s.Rows(i).Hidden = True

Else
s.Rows(i).Hidden = False
End If

Next i
End Sub

Private Sub CommandButton3_Click()'filtreleri kaldırır
Dim s As Worksheet: Set s = Sheets("Sayfa1")
son = s.Cells(Rows.Count, "A").End(3).Row
s.Rows.Hidden = False
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 5 misafir

Bumerang - Yazarkafe