Başka sayfadan Kriterlere göre Filtreleme

Merhaba, forumumuza hoşgeldiniz.

Mevcut belgedeki verilere göre olmak üzere;
olması gereken durumu, elle yazarak veya kopyala/yapıştır yaparak hazırlayıp,
bu sonuca nasıl ulaştığınıza dair kısa-net açıklama ekleyerek örnek belgenizi yenilemenizde yarar var.
Veriler sıralanırken dolu olması muhtemel diğer sütunlar da varsa, bu sütunlara da örnek veriler yazınız.
A sütunundaki SÜZ/GECE VARDİYASI/YILLIK İZİN gibi başka veri türleri de varsa onların da bilinmesi gerekebilir.
.

Selamlar,
Dosyada gelmesini istediklerimi örnek ile Açıklama sayfasına yazdım. Açıklama sayfasına yazılanların otomatik gelmesini istiyorum.

Belge ekte.

Denedim kodlar Gece Vardiyası olanları önce alıyor sonra diğerlerini alıyor ben boyle değil de
önce Gece vardiyası olanları Altına da SÜZ olanları alsın istiyordum

If sr.Range("$A$2:$AE$" & srson).AutoFilter Field:=1, Criteria1:="<>Gece Vardiyası" BU Kodunu
If sr.Range("$A$2:$AE$" & srson).AutoFilter Field:=1, Criteria1:="SÜZ" Diye değiştirdim harika oldu..

Çok Teşekkürler Elinize sağlık