a1 hücresindeki değişkene göre diğer sayfalarda otomatik süz

[gokay]

mrb arkadaşlar,
a1 hücresine değişken bir değer yazdığımda örneğin "10025" sayısı aynı anda diğer üç çalışma sayfası örneğin "sayfa1" + "sayfa2" + "sayfa3"....deki "A" sutunları da yazdığım ilk a1 değerine göre otomatik süzsün. fakat a1 değiştiğinde diğer çalışma sayfalarındaki süzlerde buna bağlı olarak otomatik değişsin istiyorum. kısaca tekrarlamam gerekirse bir rakam yazdığımda bu rakama uygun diğer sayfalardaki sutunları tek seferde süzmek istiyorum. mümkün mü yardımcı olursanız sevinirim. tşk.

 

[Orion1]

Örnek dosya ekleyiniz(2003) formatında.
Üzerine bir miktarda veri girin.
Şimdi bu sıcakta kim uğraşacak dosya hazırlamaya.
Kodları yazmak bizden dosyaları ve soruyu çözülecek ve hazır hale getirmek sizden.
Ben sizden daha çok üşeniyorum dosya hazırlamaya.

 

[gokay]

A1 hücresine girilen veriye göre diğer sayfaları süzmek

örnek dosyayı ekledim. yardımlarınızı bekliyorum. iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SAYFALARDA_SÜZ()
    Dim X As Integer
    Dim ARANAN As String
    
    ARANAN = Sheets("Sayfa1").Range("A1")
    
    For X = 2 To Sheets.Count
[COLOR=red]        If Sheets(X).Name = "GÜN" Or Sheets(X).Name = "AY" Or Sheets(X).Name = "YIL" Or Sheets(X).Name = "TARİH" Then
[/COLOR]            Sheets(X).Range("A2").AutoFilter Field:=1, Criteria1:=ARANAN
[COLOR=red]        End If
[/COLOR]    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[gokay]

A1 hücresine girilen veriye göre diğer sayfaları süzmek

İstediğim gibi olmuş. Tşk. ederim. Yalnız benim çalışma sayfamda 10 sayfa var örneğin sayfaların adı " GÜN " - sayfa adı " AY " - sayfa adı " YIL " - sayfa adı " TARİH " ve ben sadece 4 sayfayı bu şekilde süzmek istiyorum. Bu şekilde denediğimde hata veriyor.Bu aşmak mümkün mü ?

 

[Korhan Ayhan]

Selamlar,

Keşke bu detayları en başta yazsaydınız.

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[gokay]

Teşekkür ederim. Emeğinize sağlık