makroyla filtreleme

[olmaz]

merhaba
kitap1 deki bir resme tıkladığımda kitap2 deki tabloyu açmasını ve tablodaki verilerden istediğim süzmeyi gerçekleştirmesini nasıl sağlayabilirim acaba ?
forumdaki örnekleri uygulayamadım. yardımcı olursanız sevinirim.
Tşk

 

[Kemal Demir]

Sn.olmaz

Sorununuzun erken ve net bir cevabı için Foruma ilgili örnek dosya yollarsanız daha sağlıklı olur düşüncesindeyim.

 

[olmaz]

filtreleme

dosya ekte teşekkürler

 

[mehmett]

Aşağıdaki kodları birinci dosyada bir modülün içine kopyalayın. Yalnız bu makronun çalışması için ikinci dosyanın da açık olması gerekiyor.

Sub Makro1()
suz = InputBox("Hangi kod numarasınız süzmesini istersiniz?")
If suz = "" Then Exit Sub
Windows("Kitap4.xls").Activate
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=suz
End Sub

 

[olmaz]

sayın mehmett yardımınız için teşekkür ederim. fakat ben makronun çalıştığı zaman inputbox kutusunun gelmemesini, makro içine daha önce tanımlanmış olan mesela 010575 kodlu satırın gelmesini istiyorum. yani süzmeyi inputboxla değilde sayfa açıldığında sadece tanımlı satırın gelmesi yönünde istiyorum. ayrıca kitabın açık olması gerektiğini söylemişsiniz, kitabı kapalı olsa da açtırabilir miyiz

 

[olmaz]

sorumu ekteki dosyada belirttim. yardımcı olursanız sevinirim.
teşekkürler

 

[mehmett]

Aşağıdaki kod istediğiniz şekilde süzer sanırım.

Sub Makro1()
Windows("Kitap4.xls").Activate
Sheets("Sayfa1").Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="010581"
End Sub

İkinci dosyanın da açık olması gerektiğini belirtmiştim. Kapalı da olsa açtırılabilir ama bunu yapacak olan kodu ben tam olarak bilmiyorum.

 

[olmaz]

Tşk. iyi çalışmalar