makro ile özet tabloda bir satırı genişletme

[kapgan]

örneğin "h1" hücresine bir tarih gireceğim
özet tabloda o tarihi genişletecek

bunu denedim bulamıyor h1 değerini
nerde yanlışım var
ya da böyle bir makro mümkün mü?

 ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Tarih").ShowDetail = False
 ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Tarih").PivotItems( _
        Range("H1")).ShowDetail = True

 

[kapgan]

ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Tarih").ShowDetail = False
 ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Tarih").PivotItems( _
        Range("H1")[COLOR="Red"].Value[/COLOR]).ShowDetail = True

kendi sorumu kendim cevaplayayım