Otomatik Süz

[a.cogurcu]

Dosyada Anasayfadaki A sütununa girdiğim numaraları, x sayfasında F sütununda bularak otomatik süzmesini istiyorum...Yardımcı olan arkadaşlara şimdiden çok teşekkür ederim....

 

[N.Ziya Hiçdurmaz]

Dosyanızı office 2003 formatında eklerseniz. Daha çabuk çözüm alabilirsiniz.

 

[a.cogurcu]

uyarınız için teşekkür ederim...2003 olarak tekrar yüklüyorum....

 

[a.cogurcu]

yardımcı olabilecek bir arkadaş yok mu? çok önemli

 

[ersur]

Buyur arkadaşım

Range("F1").Select
Selection.AutoFilter Field:=6, Criteria1:=Sheets("Anasayfa").Cells(2, 1), Operator:=xlAnd
şeklinde dördüncü modülün kodunu değiştirirsen işlem tamamdır

 

[a.cogurcu]

Otomatik süz... örnek dosya üzerine uygulayabilir misiniz?

Ersur hocam excel makrolar hakkında çok fazla bilgim yok. yeni yeni başlıyorum. ve bu sitenin çok faydalı olacağına inanıyorum.
Rica etsem dosyaya uygulayabilir misiiniz? ben denedim hata veriyor. şimdiden çok teşekkür ederim....
İyi bayramlar...

 

[a.cogurcu]

Ersur Hocam hemen hemen yaptım gibi ama anasayfada alt alta bazen 50 adet referans numarası girmem gerekiyor. ve bunları "x" sayfasında otomatik olarak süzmek istiyorum... yardımcı olabilir misiniz?

 

[a.cogurcu]

Yardımcı olabilecek bir arkadaş yok mu acaba? Gerçekten çok önemli. Pazartesi gününe kadar çözmem gerekiyor. ilgilenen arkadaşlara gösterdikleri hassasiyetten dolayı çok teşekkür ederim....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub SÜZ()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, BUL As Range
    
    Set S1 = Sheets("AnaSayfa")
    Set S2 = Sheets("X")
    
    Application.ScreenUpdating = False
    
    S2.Cells.EntireRow.Hidden = False
    For X = 3 To S2.[F65536].End(3).Row
    Set BUL = S1.[A:A].Find(S2.Cells(X, "F"))
    If BUL Is Nothing Then
    S2.Rows(X).EntireRow.Hidden = True
    End If
    Next
    
    S2.Select
    
    Set BUL = Nothing
    Set S1 = Nothing
    Set S2 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Sub TÜMÜNÜ_GÖSTER()
    Sheets("X").Cells.EntireRow.Hidden = False
    Sheets("X").Select
End Sub

 

[a.cogurcu]

Otomatik süz çalışıyor....

Korhan hocam emeğine sağlık çok süper olmuş...
Tam istediğim gibi...çalışıyor....
Teşekkür ederim........

 

[a.cogurcu]

excel.web.tr ye teşekkürler.....