Soru Butonlar İle Pivot Tablo Oluşturmak

G

Gata

Altın Üye
Katılım
11 Ağustos 2018
Mesajlar
325
Excel Vers. ve Dili
Excelde 2016 Türkçe
Altın Üyelik Bitiş Tarihi
21-09-2027
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
 

Ekli dosyalar

V

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
766
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
Gata' Alıntı:
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
Genişletmek için tıkla ...
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.
 

Ekli dosyalar

Son düzenleme:
G

Gata

Altın Üye
Katılım
11 Ağustos 2018
Mesajlar
325
Excel Vers. ve Dili
Excelde 2016 Türkçe
Altın Üyelik Bitiş Tarihi
21-09-2027
volki_112' Alıntı:
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.
Genişletmek için tıkla ...
Teşekkur ederim volkan bey hocam Akşam pc ye geçince denerim selamlar Allaha emanet olun
 
Mdemir63

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,960
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Altın Üyelik Bitiş Tarihi
19-02-2026
Selam
Dosyayı indirdim denedim bende hata vermedi.
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,372
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bu şekilde deneyebilirsiniz..

C++: 
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
 
G

Gata

Altın Üye
Katılım
11 Ağustos 2018
Mesajlar
325
Excel Vers. ve Dili
Excelde 2016 Türkçe
Altın Üyelik Bitiş Tarihi
21-09-2027
Korhan Ayhan' Alıntı:
Bu şekilde deneyebilirsiniz..

C++: 
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
Genişletmek için tıkla ...
Teşekkür ederim hocam selamlar
Akşam PC ye geçince denerim
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst