Sn Horozufuk cevabınıza teşekkürler. Sizin kodlar önce SK10 sayfasını oluşturuyor bundan Ö_SK11 özet tablosunu yapıyor. Benim istediğim ise SK10 sayfası olmadan direkt Kesin sayfasından Ö_SK11 özet tablosunu oluştursun. İstediğim olursa SK10,SK12 vb sayfaları sileceğim.

Tekrar teşekkürler...

Sn:derebeyi

Makro ile istemeniz sonucu arkadaşların vermiş oldukları kod veya örnek aslında doğru yapılabilecek en güzel sonuçlardan sayılır.Fakat istediğiniz olay Ad Tanımla yolu ile ve Veri Doğrulamayla yapılabilir.Aşağıdaki örneği inceleyiniz ve örnekten yola çıkarak kendinize göre düzenlemeler yapabilirsiniz.

Ad Tanımlama ve Girilen Formül

BAŞLANGIC     =Özet!$R$1



BİTİS         =Özet!$R$2



Ebat          =Kesin!$A:$A



ÜrYer         =Kesin!$B:$B



VERİTABANI    =KAYDIR(Kesin!$A$1;0;0;BAĞ_DEĞ_DOLU_SAY(Kesin!$A:$A);BAĞ_DEĞ_DOLU_SAY(Kesin!$1:$1))

Veri Doğrulama

Ebat Başlangıç     =Ebat



Ebat Bitiş         =Ebat



Üretim Yeri        =ÜrYer

Buton Kodu

Private Sub CommandButton1_Click()

Range("A1").Select

    ActiveSheet.PivotTables("Pivot1").PivotCache.Refresh

End Sub

Kesin sayfasına yardımcı sütün ilave ederek aşağıdaki formül tün satırlara uygulanmıştır.

=VE(A2>=BAŞLANGIC;A2<=BİTİS)

Sn Oğulcan92 siz benim istediğimden fazlasını yapmışsınız. Teşekkürler.
Sadece açılan kutulardaki veri tekrarını önleyip bir de artan sıralatırsak; daha önce 4~5 sayfada yaptığım işi bir sayfada halletmiş olacağım.

Makro kaydet yöntemi ile veriyi süzüp özet tablo yapmaya çalıştım fakat özet tabloda bütün verileri gösterdi. İkinci bir yol olarak bunu yapacaktım.

İlginiz için teşekkürler...

Sn:derebeyi
Özet tablo yaparken verileri süzmeniz herhengi bir işe yaramaz çünkü özet tablonun amacı verileri sizin istediğiniz doğrultuda rapor hazırlamak.Benden önceki yazılan her iki mesajdada mokro olarak yapma konusunda doğru yolda olduklarını belirtmek isterim.Yani makro yapacak olursak ilk önce verileri bir rapor sayfasına aktarıp oradan özet tablo yapımak olacaktı açıklamalar daha net olsaydı diğer arkadaşlarımız benden önce konunuzu cevaplayacağından hiç şüphem yoktur.Her ikisinede teşekkürler.

Sn Oğulcan92 ortada yanlış bir anlaşılma olmasın. Önce cevap veren Sn horozufuk ve olcay beylerin ki olmamış demedim. Ben hali hazırda rapor sayfasına aktarıyorum. Oradan özet tablo yapıyordum. Hepsini eklememiştim. Sağolsun arkadaşlar daha kestirme yapmışlar.
Ancak;
Sizin ki daha kullanışlı olmuş. Ancak dediğim gibi açılan kutulardaki veri tekrarlarını önleyebilirmiyiz?

İlgilenen ve emeği geçen herkese teşekkürler...

Sn:derebeyi
Ortada yanlış anlaşılma yok eğer her ikisininde mesajı olmasaydı bende sonuca onlar gibi gidecektim sadece onu belirttim.İlk mesajınız ve cevaptan önceki son mesajınız arasını değerlendirince sonuca ulaşmak için fikir belirmiş oldu bu da benden önceki mesajlar ile netleşti anlatmak istediğim odur.İszin istediğinizi bu güne kadar hiç denemedim ama mesaide olduğum için bu gün içinde bakmaya çalışacağım.