Aktif sayfa yerine yazdığım sayfada VBA çalıştırma

[serukanu]

Merhaba
Aşağıdaki çalışma sayfamda aşağıdaki kodu kullanıyorum güzel çalışıyor
fakat her defasında özet tablonun bulunduğu sayfaya gidip çalıştırmam gerekiyor
özet tabloları gizli tutup bu kodu başka sayfadan çalıştırabilir miyim?

Teşekkürler

Sub süz()
Dim aranacakhücre As Range
Dim x, y As PivotItem

Set aranacakhücre = Range("AH3:AH50") 

ActiveSheet.PivotTables("Özet1").ManualUpdate = True 
On Error Resume Next
For Each x In ActiveSheet.PivotTables("Özet").PivotFields("REFERANS_NO").PivotItems
    'If IsError(Application.WorksheetFunction.Match(x.Name, aranacakhücre, 0)) Then
        x.Visible = True
    'End If
Next x

For Each y In ActiveSheet.PivotTables("Özet1").PivotFields("Sipariş No").PivotItems
    If IsError(Application.WorksheetFunction.Match(y.Name, aranacakhücre, 0)) Then
        y.Visible = False
    End If
Next y

ActiveSheet.PivotTables("Özet1").ManualUpdate = False
End Sub

 

[YUSUF44]

Activesheet yerine pivot tablonuzun olduğu sayfanın adını şu şekilde yazabilirsiniz:

Sheets("Sayfa1")

gibi. Aranacak hücre aralığını da buna göre düzenlemeniz gerekebilir.

 

[serukanu]

teşekkür ederim, denemiştim aslında ama bişey atlamışım sanırım sağolun