İki Ayrı Sayfadan Gelişmiş Filtreleme Yapmak

[Sinan73]

Merhaba

Aşağıdaki kod ile Sayfa1'de yer alan Tablo1'den gelişmiş fitreleme yaparak başka bir sayfaya Sayfa3'e veri aktarıyorum.

    Sheets("Sayfa1").Range("Tablo1[#All]").AdvancedFilter Action:=xlFilterCopy _
        , CriteriaRange:=Range("S1:S2"), CopyToRange:=Range("A1:R1"), Unique:= _
        False

Yapmak istediğim; Eğer yukarıdaki kritere göre Tablo1'de veri bulamazsa Tablo2'de arasın. Orada da bulamazsa MsgBox ile hata iletisi versin.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.