Özel Süzme

[mavi674]

Selam
G sütununda rakam (yaşı gibi) ve metin var. "59 YAŞINDA" veya "3 SENE SONRA" gibi.

Bu sütunu VBA ile rakamları görmeden sadece metin olarak "YAŞINDA" veya "SENE SONRA" gibi süzebilir miyiz ?

Teşekkürler....

Hata indir

Hata

www.dosyaupload.com

 

[dEdE]

Dener misiniz?

Sub Test()
ss = Cells(Rows.Count, "G").End(3).Row
For j = 1 To ss
    For i = 1 To Len(Cells(j, 7).Value)
        x = Mid(Cells(j, 7).Value, i, 1)
        If Not IsNumeric(x) Then
            st = st & x
        End If
    Next i
    Cells(j, 7) = Trim(st)
    st = ""
Next j
End Sub

 

[necati]

Dener misiniz?

Sub Test()
ss = Cells(Rows.Count, "G").End(3).Row
For j = 1 To ss
    For i = 1 To Len(Cells(j, 7).Value)
        x = Mid(Cells(j, 7).Value, i, 1)
        If Not IsNumeric(x) Then
            st = st & x
        End If
    Next i
    Cells(j, 7) = Trim(st)
    st = ""
Next j
End Sub

Sanırım istenen şey bu değil, "Süz/içerir" komutunun makrosu demek istemiş.

 

[mavi674]

İlginiz için çok teşekkürler
ama kodlarınız G Sütunundaki isimleri değiştiriyor ve otomatik süzmüyor.
Bu değişiklik olmadan belirttiğim gibi otomatik süzmesini istiyorum.
1.butona tıklayınca sadece "YAŞINDA" süzsün veya
2.butona tıklayınca da "SENE SONRA" süzsün.
Bunu gibi G Sütunu hiç değişmeden...
Bel yazacağınız koddan 3. buton ekleyip farklı süzme de yapabilirim.
Teşekkürler ...

 

[dEdE]

Merhaba,
Soruyu yanlış anlamışım.
Sayın @necati 'nin uyarısı üzerine süzme ölçütünü inputbox ile girerek işlem yapacak kod yazmaya hazırlanıyordum ki sizin #4 no.lu mesajınızı gördüm. Ölçüt sayısı sınırlı ise;

Sub Test()
    Range("G2").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$G$42").AutoFilter Field:=7, Criteria1:="=*SENEYE*", Operator:=xlAnd
End Sub

şeklinde yapılabilir. Koddaki *SENEYE* ölçütünü değiştirerek kodu çoğalıp kullanabilirsiniz.

 

[mavi674]

Merhaba dEdE
kod mükemmel çalıştı. Tam istediğim gibi.
Sadece ufak bir durum var o da önemli değil aslında...
Sadece F ve G Sütununda2 adet flitre var.
Verdiğiniz kodu çalıştırdım sonuç süper ama A ..... G Sütununa kadar 7 adet flitre oluşturdu.
Dediğim gibi o kadar önemli değil. Teşekkürler...

 

[mavi674]

Selection.AutoFilter yerine
Selection.AutoFilter Field:=2
yazdım hata verdi

 

[mavi674]

ActiveSheet.Range("$A$2:$G$42").AutoFilter Field:=2, Criteria1:="=*SENEYE*", Operator:=xlAnd
yaptım tamamdır
2 flitre ile çalışrırabildim.
Teşekkürler....