Sayafalar Arası Arama

[yusufcakal]

Ã?ncelikle Herkese merhaba;

sayfa 1 deki belirtilen 2 kriteri; sayfa 2 de arayabilecek kodlara ihtiyacım var. Yardımcı olursanız sevinirim...

Yapmak istediğimi daha iyi anlatabilmem için bir örnek gönderiyorum. Þimdiden çok teşekkürler

Kolay Gelsin

 

[danersin]

Sorunuz arama sayfasındaki a2 ve b2 ye göre diğer sayfada süzme yapmaksa aşağıdaki gibi bir kod işinzi görür. Bu kodu bir modüle yazıp çalıştırın. (sayfa modülüne değil)

Sub Makro4()
kriter1 = Cells(2, 1)
kriter2 = Cells(2, 2)
Sheets("Veri Tabanı").Activate
Cells(1, 1).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=kriter1
Selection.AutoFilter Field:=2, Criteria1:=kriter2
End Sub