• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan Gata
  • Başlangıç tarihi Başlangıç tarihi
G

Gata

Altın Üye
Katılım
11 Ağustos 2018
Mesajlar
331
Excel Vers. ve Dili
Excelde 2016 Türkçe
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

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:
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
 
Selam
Dosyayı indirdim denedim bende hata vermedi.
 
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
 
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
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst