Gerekli Açıklamaları Dosya İçinde Yaptım Makrosuz Çözüm olursa çok daha iyi olur.
Teşekkürler..
Teşekkürler..
Ekli dosyalar
-
25 KB Görüntüleme: 16
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$2" Then Exit Sub
With ActiveSheet.PivotTables("Özet Tablo 2")
For Each sp In .PivotFields("Bu Hakediş").PivotItems
If sp <> Left([i2], Len([i2]) - 6) Then
sp.Visible = False
End If
Next
End With
End Sub
.Gerekli Açıklamaları Dosya İçinde Yaptım Makrosuz Çözüm olursa çok daha iyi olur.
Teşekkürler..
.sn yurttas;
Teşekkür Ederim
Elinize sağlık, makrosuz olmuyor sanırım. ( 4 ncü mailde attığım şekli ile)
Sub Macro1()
Range("B3").Select
ActiveSheet.PivotTables("Özet Tablo 2").PivotCache.Refresh
End Sub
.sn yurttaş
Özet tabloyu nasıl koşula bağladığınız izah edermisiniz , başka dosyalarda kullanmayı düşünüyorum.
Teşekkürler