tek sütunda 3 farklı para birimine çevirme ile "Veri Süz Yardım"

[naumkoz]

Tek sütunda 3 farklı para birimine çevirme ile Veri Süz işlemi için yardıma ihtiyacım var.

Teşekkürler...

 

[naumkoz]

Tek sütunda 3 farklı para birimine çevirme ile veri süz yardım...

 

[Korhan Ayhan]

Selamlar,

Sayı süzmede kullandığınız nesneye ait kodu aşağıdaki şekilde değiştiriniz. Ayrca para değer ararken "0,04 TL" yazarak filtre uygulayın. Diğer para birimlerinide benzer yöntemle filtreleyin.

Private Sub TextBox2_Change()
    On Error Resume Next
    Dim SONUC3 As Variant
    SONUC3 = TextBox2.Value
    If CheckBox1.Value = True Then
        Selection.AutoFilter Field:=2, Criteria1:=SONUC3
    End If
End Sub