TextBox üzerinden Pivot table kontrolü

[tamer42]

Merhaba,
Ekli dosya' da Data sayfasının özet tablosu pvt sayfasında verilmiştir.

Data Sayfasında yer alan TextBox' a yazdığımız değer, aynı anda ekli görseldeki gibi pvt sayfasında B1 hücresinde yer alan Firma alanına yazılması;

Data Sayfasında yer alan >> Buton' a tıklayınca yazılan firma ismine göre pivot table' yi güncelleştirmesini istiyorum.
Makro Kaydet yöntemi ile aşağıdaki kodu oluşturdum ama; hata verdi.

ilgili ve alakanız için şimdiden teşekkürler,

Sub Macro2()

    Sheets("pvt").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Firma").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Firma").CurrentPage = _
        "Trend*"
End Sub

iyi Pazarlar.

 

[tamer42]

Merhaba,
Ekli dosya' da Data sayfasının özet tablosu pvt sayfasında verilmiştir.

Data Sayfasında yer alan TextBox' a yazdığımız değer, aynı anda ekli görseldeki gibi pvt sayfasında B1 hücresinde yer alan Firma alanına yazılması;

Data Sayfasında yer alan >> Buton' a tıklayınca yazılan firma ismine göre pivot table' yi güncelleştirmesini istiyorum.
Makro Kaydet yöntemi ile aşağıdaki kodu oluşturdum ama; hata verdi.

ilgili ve alakanız için şimdiden teşekkürler,

Sub Macro2()

    Sheets("pvt").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Firma").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Firma").CurrentPage = _
        "Trend*"
End Sub

iyi Pazarlar.

Arakdaşlar aşağıdaki gibi çözdü ama değişik fikirleri olan arkadaşlar var ise önerilerini almaktan mutluluk duyaım.

teşekkürler,
iyi pazarlar.

Sub FilterPageField(fm As String)
Dim pvt As PivotTable
   Dim pf As PivotField
    Dim pi As PivotItem
    Dim lPi As String
    
Set pvt = Sheets("pvt").PivotTables("PivotTable1")

Set pf = pvt.PivotFields("Firma")

On Error Resume Next

        With pf
            .ClearAllFilters
            .EnableMultiplePageItems = True
        End With

    For Each pi In pf.PivotItems
    
        pi.Visible = True
        
            lPi = LCase(pi.Caption)
            
            If Not lPi Like fm & "*" Then
                    pi.Visible = False
            End If
            
    lPi = ""
    
   Next
End Sub