pivot tablo sorgulama

[simsek2001]

aşağıdaki kodda pivot tabloda ilk 8 maddeyi seçiyoruz. Mesela ilk 70 maddeyi seçtiğimde bu kodlar uzayacak. seçimi tek satır kodda yazabilirmiyiz(mesela ("1:70") şeklinde yazabilirmiyiz). Teşekkürler.

kodlar:

ActiveSheet.PivotTables("PivotTable5").PivotFields("Detay").CurrentPage = _
"(All)"
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Detay")
.PivotItems("1").Visible = True
.PivotItems("2").Visible = True
.PivotItems("3").Visible = True
.PivotItems("4").Visible = True
.PivotItems("5").Visible = True
.PivotItems("6").Visible = True
.PivotItems("7").Visible = True
.PivotItems("8").Visible = True

End With

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları deneyin.

    Dim piv As PivotItem
    With ActiveSheet.PivotTables("PivotTable5").PivotFields("Detay")
        .CurrentPage = "(All)"
        For Each piv In .PivotItems
            piv.Visible = True
        Next
    End With

 

[simsek2001]

Cevabınız için teşekkür ederim. Pivot tabloda farz edelim 200 madde olsun. Kullanıcı bir numara girişi yapacak. Makro bu rakamı alacak. Mesela kullanıcı 60 rakamı girerse, 1'den 60'e kadar olan maddeleri gösterecek. Bu nedenle 1'den 60 e kadar seçme makrosuna ihtiyacım var.

 

[Muzaffer Ali]

Aşağıdaki kodları deneyin.

Sub test()
    Dim Piv As Long
    Dim Son As Long
    Son = 60 ' buraya istediğiniz rakamı yazın.
    'Yada isterseniz son rakamı hücreden de alabilir.
    Son = Range("A1").Value 'A1 hücresine istediğiniz rakamı yazın.
    
    With ActiveSheet.PivotTables("PivotTable5").PivotFields("Detay")
        .CurrentPage = "(All)"
        For Piv = 1 To Son
            .PivotItems(Piv).Visible = True
        Next
    End With
End Sub

 

[simsek2001]

Cevabınız için çok teşekkür ederim. Emeğinize sağlık.