Çözüldü Pivot table

Merhaba,
Dosyanız iki hata var. Birincisi sayfa ismi kod kısmında yanlış yazılmış. Büyük küçük harf duyarlı. Yazarken dikkat edilmeli.

İki kullanım yapısı vardır. İlki direk Sayfa1 olarak kullanmak, ikincisi de sayfa adı olarak kullanmak : Worksheets("sayfa1")
Not: Sayfa adı parantez içindekidir. Bu nedenle Sayfa1 değil sayfa1 yazılmalı.

İkinci hata ise Tablo kısmında. Tablonuz 7 sütundan oluşmakta. Bu nedenle 10 alan olarak belirtilen yer bulunmamakta. Onu kendi kriter sütununuza göre değiştiriniz.
.ListObjects("Tablo1").Range.AutoFilter Field:=10, Criteria1:=">0", Operator:=xlAnd