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)