veri süz

[Rido66]

Sub SUZ()
Selection.AutoFilter Field:=1, Criteria1:="AAA"
Sheets("Sayfa2").Select
Selection.AutoFilter Field:=1, Criteria1:="AAA"
End Sub



Aslında ben sayfa1 de AAA verisini süzdüğüm zaman sayfa2 dede AAA ların otomatik süzülmüş olmasını istiyorum bunu nasıl yapabilirim. Yukarıdaki makro işimi yaramıyor.

 

[masiva80]

anladığım kadarıyla şöyle olabilir.

Sub SUZ()
Selection.AutoFilter Field:=1, Criteria1:="AAA"
Sheets("Sayfa2").Select
sayfa1.AutoFilter Field:=1, Criteria1:="AAA"
End Sub

 

[Rido66]

İyi ama benim yaptığım ile aynı bu kod ven sayfa1 bir firmayı süzdüğüm zaman sayfa2 dede aynı firmanın otomatik süzülmüş olmasını istiyorum.

 

[Rido66]

+ bu kod hata veriyor

 

[AS3434]

Herhalde böyle olacak..
Sayf 2 de süz aralığı tanımlayın.

Sub SUZ()
Selection.AutoFilter Field:=1, Criteria1:="AAA"
Sheets("Sayfa2").Range("A4:A10").AutoFilter Field:=1, Criteria1:="AAA"
End Sub

Sub SUZME()
Range("A4").Select
Selection.AutoFilter Field:=1
Sheets("Sayfa2").Range("A4").AutoFilter Field:=1
End Sub

 

[Rido66]

Sanırım ben demek istediğimi anlatamıyorum. Birde şöyle deneyim sayfa1 a sutununda bulunan firmalardan birini seçtip süzdüğüm zaman mümkünse makro bile çalıştırma gereği duymadan sayfa2 dede aynı firmanın otm.süzülmüş olmasını istiyorum.

 

[baba_karabatak]

Sanırım ben demek istediğimi anlatamıyorum. Birde şöyle deneyim sayfa1 a sutununda bulunan firmalardan birini seçtip süzdüğüm zaman mümkünse makro bile çalıştırma gereği duymadan sayfa2 dede aynı firmanın otm.süzülmüş olmasını istiyorum.

derdine care olur sanırım

 

[Rido66]

süz

kısaca otomatik süzler arasında bağlantı kurmak mümkün mü?
ben sayfa1 de neyi süzersem sayfa2 de de onun süzülmüş olmasını istiyorum.

 

[AS3434]

Sanırım ben demek istediğimi anlatamıyorum. makro bile çalıştırma gereği duymadan

Sn. kadir_sahin81

Konu başlığını Makrolarda açmışsınız, ilk mesajınızda makro kodları vermişsiniz. Ama makro ile olmasın diyorsunuz!!!!

Ekteki dosyayı inceleyin belki işinize yarayabilir.

 

[Rido66]

Kusura bakmayın söylediklerim yanlış anlaşılıyor Ek' te gönderdiğim dosyaya bir göz atarsanız ne yapmak istediğimi daha iyi anlarsınız şimdiden çook teşekkür ederim.