Çözüldü Butonlar İle Pivot Tablo Oluşturmak

[Gata]

Merhabalar Arkadaşlar Ekteki Örnek

Bu linke Göre Yapılmış Olup
Ay İsimli Butondan
İsimler ,Ürünler İle İsim-Ürün Butonuna Geçiş Yapıldığında Sürekli Hata Veriyor Videoyu Defalarca İzledim Fakat Hatayı Bir Türlü Bulamadım Yardımcı Olurmusunuz Selamlar
Not:365 Versiyonu Kullanıyorum

 

[volki_112]

Merhabalar Arkadaşlar Ekteki Örnek

Bu linke Göre Yapılmış Olup
Ay İsimli Butondan
İsimler ,Ürünler İle İsim-Ürün Butonuna Geçiş Yapıldığında Sürekli Hata Veriyor Videoyu Defalarca İzledim Fakat Hatayı Bir Türlü Bulamadım Yardımcı Olurmusunuz Selamlar
Not:365 Versiyonu Kullanıyorum

365 versiyonda bazı noktalrda farklılık varmış. 365 e göre dosyanızı düzenledim. İndirip dener misiniz. Yapay zekadan yardım aldım.

 

[Gata]

365 versiyonda bazı noktalrda farklılık varmış. 365 e göre dosyanızı düzenledim. İndirip dener misiniz. Yapay zekadan yardım aldım.

Teşekkur ederim volkan bey hocam Akşam pc ye geçince denerim selamlar Allaha emanet olun

 

[Mdemir63]

Selam
Dosyayı indirdim denedim bende hata vermedi.

 

[Korhan Ayhan]

Bu şekilde deneyebilirsiniz..

Dim pvt As PivotTable
Dim pvf As PivotField

Sub Auto_Open()
    Set pvt = Sheets("RAPOR").PivotTables(1)
End Sub

Sub Auto_Close()
    Set pvt = Nothing
End Sub

Sub İSİM()
    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    pvt.ManualUpdate = True
    
    For Each pvf In pvt.PivotFields
        pvf.Orientation = xlHidden
    Next pvf

    pvt.ManualUpdate = False

    With pvt.PivotFields("İSİM")
        .Orientation = xlRowField
        .Position = 1
    End With

    Application.ScreenUpdating = True
End Sub

Sub ÜRÜN()
    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    pvt.ManualUpdate = True
    
    For Each pvf In pvt.PivotFields
        pvf.Orientation = xlHidden
    Next pvf

    pvt.ManualUpdate = False

    With pvt.PivotFields("ÜRÜN")
        .Orientation = xlRowField
        .Position = 1
    End With
    
    Application.ScreenUpdating = True
End Sub

Sub İSİM_ÜRÜN()
    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    pvt.ManualUpdate = True
    
    For Each pvf In pvt.PivotFields
        pvf.Orientation = xlHidden
    Next pvf

    pvt.ManualUpdate = False
    
    With pvt.PivotFields("ÜRÜN")
        .Orientation = xlRowField
        .Position = 2
    End With
    
    With pvt.PivotFields("İSİM")
        .Orientation = xlRowField
        .Position = 1
    End With

    Application.ScreenUpdating = True
End Sub

Sub TARİH()
    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    pvt.ManualUpdate = True
    
    For Each pvf In pvt.PivotFields
        pvf.Orientation = xlHidden
    Next pvf

    pvt.ManualUpdate = False
    
    With pvt.PivotFields("TARİH")
        .Orientation = xlRowField
        .Position = 1
    End With

    Application.ScreenUpdating = True
End Sub

Sub AY()
    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    pvt.ManualUpdate = True
    
    For Each pvf In pvt.PivotFields
        pvf.Orientation = xlHidden
    Next pvf

    pvt.ManualUpdate = False
    
    With pvt.PivotFields("TARİH")
        .Orientation = xlRowField
        .Position = 1
        .AutoGroup
    End With
    
    pvt.PivotFields("TARİH").Orientation = xlHidden
    
    Application.ScreenUpdating = True
End Sub

 

[Gata]

Bu şekilde deneyebilirsiniz..

Dim pvt As PivotTable
Dim pvf As PivotField

Sub Auto_Open()
    Set pvt = Sheets("RAPOR").PivotTables(1)
End Sub

Sub Auto_Close()
    Set pvt = Nothing
End Sub

Sub İSİM()
    On Error Resume Next
  
    Application.ScreenUpdating = False
  
    pvt.ManualUpdate = True
  
    For Each pvf In pvt.PivotFields
        pvf.Orientation = xlHidden
    Next pvf

    pvt.ManualUpdate = False

    With pvt.PivotFields("İSİM")
        .Orientation = xlRowField
        .Position = 1
    End With

    Application.ScreenUpdating = True
End Sub

Sub ÜRÜN()
    On Error Resume Next
  
    Application.ScreenUpdating = False
  
    pvt.ManualUpdate = True
  
    For Each pvf In pvt.PivotFields
        pvf.Orientation = xlHidden
    Next pvf

    pvt.ManualUpdate = False

    With pvt.PivotFields("ÜRÜN")
        .Orientation = xlRowField
        .Position = 1
    End With
  
    Application.ScreenUpdating = True
End Sub

Sub İSİM_ÜRÜN()
    On Error Resume Next
  
    Application.ScreenUpdating = False
  
    pvt.ManualUpdate = True
  
    For Each pvf In pvt.PivotFields
        pvf.Orientation = xlHidden
    Next pvf

    pvt.ManualUpdate = False
  
    With pvt.PivotFields("ÜRÜN")
        .Orientation = xlRowField
        .Position = 2
    End With
  
    With pvt.PivotFields("İSİM")
        .Orientation = xlRowField
        .Position = 1
    End With

    Application.ScreenUpdating = True
End Sub

Sub TARİH()
    On Error Resume Next
  
    Application.ScreenUpdating = False
  
    pvt.ManualUpdate = True
  
    For Each pvf In pvt.PivotFields
        pvf.Orientation = xlHidden
    Next pvf

    pvt.ManualUpdate = False
  
    With pvt.PivotFields("TARİH")
        .Orientation = xlRowField
        .Position = 1
    End With

    Application.ScreenUpdating = True
End Sub

Sub AY()
    On Error Resume Next
  
    Application.ScreenUpdating = False
  
    pvt.ManualUpdate = True
  
    For Each pvf In pvt.PivotFields
        pvf.Orientation = xlHidden
    Next pvf

    pvt.ManualUpdate = False
  
    With pvt.PivotFields("TARİH")
        .Orientation = xlRowField
        .Position = 1
        .AutoGroup
    End With
  
    pvt.PivotFields("TARİH").Orientation = xlHidden
  
    Application.ScreenUpdating = True
End Sub

Teşekkür ederim hocam selamlar