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)