Userform grafik

[muratbaran]

Merhabalar

hazırladığım grafikleri user formda görüntüleyebilirmiyim. Yapılabiliyorsa örnek olarak gönderebilirmisiniz.

Yardımlarınız için şimdiden teşekkür ederim.

Iyi çalışmalar

 

[ilhanbatu]

Merhaba,
Benim kullandığım bir programım var ve burada Grafik ile ilgili bir çalışmamda var ama bir sorun ile karşılaştım,eğer bu sorunu Üstad arkadaşların yardımı ile çözebilirsek sizede yardımcı olacaktır sanırım.

Aşağıdaki dosyada şuan kullandığım çalışma dosyam var.bu dosyayı açtığınızda Cutter bölgesini seçip gelen ekrandada Grafik analizi seçtiktan sonra gelen userform ekranından Team bazındayı tıkladıktan sonra çıkan ekranda Hepsini seçip Team bazında grafik butonunu tıkladığımda 3 ekip için toplam grafik ekrana geliyor.Ancak sadece ekiplerden birini seçip butonu tıkladığımda

Run-time Error '1004':
Worksheet sınıfının Pivot Tables özelliği alınamıyor
hata mesajı veriyor.Programı kontrol ediyorum ama nerede hata yaptığımı bir türlü çözemedim.Debug'u tıkladığımda kod sayfasında

With ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Vardiya")

kısmında hata veriyor.
Acaba nerdede hata yapıyorum,bu konuya bakabilirseniz sevinirim.
Birde grafiğin daha iyi ve anlaşılır gözükebilmesi adına sayfayı nasıl tam ekran yapabilirm.Önceden verilen kodları yaptığımda hep sorunla karşılaştım,özelliklede geri dönüşlerde Excel sayfalarım hep tam ekran kaldı.
Yardımlarınız için şimdiden Teşekkür ederim.
Saygılarımla.

 

[uzmanamele]

merhaba
"userformda grafik" diye arama yapın, birçok örnek var.

 

[ilhanbatu]

Evet biliyorumda ben çalıştığım programdaki sorunu çöazemedim,bunula ilgili örneğede rastlamadım.

 

[Levent Menteşoğlu]

cutter bölgesini seçtiğinizde KAYIT sayfası aktif oluyor. Hata veren satırda da "ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Vardiya")" aktif yani KAYIT sayfasındaki bir özel tabloya ait kod çalıştırılıyor. Ancak KAYIT sayfasında özet tablo olmadığından hata veriyor. Activesheet yerine özet tablonun olduğu sayfanın adını yazın.

Tam ekran içinde aşağıdaki kodu kullanabilirsiniz. Tam ekrandan çıkmak için true yerine false yazmanız yeterlidir.

Application.DisplayFullScreen = True

 

[ilhanbatu]

Kusura bakmayın dediklerinizi yapmaya çalıştım ama başaramadım,biraz daha detaylı anlatırsanız sevinirim yada proğram üzerinde gösteririsenizde olur.

 

[ilhanbatu]

If OptionButton1.Value = True Then
    With ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Vardiya")

Sanırım yukarıdaki kod kısmını değiştimemi istiyorsunuz.
Grafiğin bilgileri KAYIT kısmına girildiğinden bu bilgileri FORMÜLASYON sayfasına aktarıyorum.Buradaki rakamlar doğrultusundada Grafiği oluşturuyorum.Grafiğin Pivot Table bilgileri Sayfa 5'de Grafik kısmı ise TEAM adlı sayfada yer alıyor.
Biraz karışık gibi oldu ama şimdi ben sizin söylediğini kısma ne yazacağımı tam anlıyamadım.Çeşitli varyasyonları eklememe rağmen bir türlü sonuca ulaşamadım.3 ekip için grafik ekrana geliyor ama tek tek seçimde bir türlü başaramadım ve kafayıda yiyeceğim.
Yardımlarınız için şimdiden Teşekkür ederim.
Saygılarımla.

 

[Levent Menteşoğlu]

İlgili makroyu aşağıdaki ile değiştirin.

Sub Makro11()
If OptionButton1.Value = True Then
    With Sheets("sayfa5").PivotTables("Özet Tablo 5").PivotFields("Vardiya ")
        .PivotItems("Team 1").Visible = True
        .PivotItems("Team 2").Visible = False
        .PivotItems("Team 3").Visible = False
    End With
    End If
If OptionButton2.Value = True Then
    With Sheets("sayfa5").PivotTables("Özet Tablo 5").PivotFields("Vardiya ")
        .PivotItems("Team 2").Visible = True
        .PivotItems("Team 1").Visible = False
        .PivotItems("Team 3").Visible = False
    End With
    End If
If OptionButton3.Value = True Then
    With Sheets("sayfa5").PivotTables("Özet Tablo 5").PivotFields("Vardiya ")
        .PivotItems("Team 3").Visible = True
        .PivotItems("Team 1").Visible = False
        .PivotItems("Team 2").Visible = False
    End With
    End If
End Sub

 

[ilhanbatu]

Çok Teşekkür ederim.Sağolun.

 

[ilhanbatu]

Tekrar Merhaba programı denerken fark ettim,1 team seçtiğimde 1.team'e ait grafik ekrana geliyor yada 2 ve3.team geliyor ama HEPSİ'ni seçtiğimde tekrar 3 ekibinki aynı anda ekrana gelmiyor.Sebep olarakta hangi ekibi seçersem grafik pivot tables'te orada kalıyor.Nasıl çözeceğimi bulamadım.
Galiba bu grafik işini başka şekilde çözmek gerekecek.

 

[Levent Menteşoğlu]

Hepsi seçeneğinde aşağıdaki kodu kullanın.

With Sheets("sayfa5").PivotTables("Özet Tablo 5").PivotFields("Vardiya ")
        .PivotItems("Team 3").Visible = True
        .PivotItems("Team 1").Visible =True
        .PivotItems("Team 2").Visible = True
    End With

 

[ilhanbatu]

Teşekkür ederim oldu,Şimdi diğer Sayfalar içinda yapmaya çalışıyorum ama yine sorunlarla karşılaşıyorum,bu TEAM için yaptığınız kodlamayı diğerleri içinde değiştirip yapıyorum ama bi türlü başaramadım.
Neyse ben yine denemlerime devam edeyim eğer başaramaz ise izninizle tekrar size danışırım artık.

 

[ilhanbatu]

Merhaba affınıza sığınarak bir şey ögrenmek istiyordum,
Bu kodları BLEND içinde yapıyorum hata veriyor,Burada Macro 11 Kısmı sarı oluyor ve hata veriyor acaba diğeri Macro 11'de buda aynı isimde olduğu içinmi hata veriyor.Ben İsmi Macro 12,Macro 14 şeklinde değiştirdim ama sonuç alamadım.Buradaki sorun nedir acaba.
Bu arada BLEND syfasında Grafik Sayfa4'de Pivot Tables var FORMÜLASYON sayfasında Grafiğin verileri olan Blend kısmı var acaba hata buradamı.Yanlış bişeylermi yapıyorum.
Yeni yaptığım Grafik ekranı için Kodlama aşağıdaki gibidir.

Private Sub CommandButton1_Click()
Makro11
Dim Fname As String
Fname = ThisWorkbook.Path & IIf(Right(ThisWorkbook.Path, 1) = "\", "", "\") & "sil.gif"
Charts("BLEND").Export Fname
Image1.PictureSizeMode = fmPictureSizeModeStretch
Set Image1.Picture = LoadPicture(Fname)
Kill Fname
 
End Sub

[B][COLOR="Yellow"]Sub Makro11()[/COLOR][/B]
If OptionButton13.Value = True Then
With Sheets("sayfa4").PivotTables("Özet Tablo 4").PivotFields("Blend  ")
        .PivotItems("ML679").Visible = True
        .PivotItems("PL103").Visible = False
        .PivotItems("LM272").Visible = False
        .PivotItems("LA042").Visible = False
        .PivotItems("MA061").Visible = False
        .PivotItems("BS119").Visible = False
        .PivotItems("S0A0G").Visible = False
        .PivotItems("S0A0K").Visible = False
    End With
    End If
If OptionButton2.Value = True Then
   With Sheets("sayfa4").PivotTables("Özet Tablo 4").PivotFields("Blend ")
        .PivotItems("PL103").Visible = True
        .PivotItems("ML679").Visible = False
        .PivotItems("LM272").Visible = False
        .PivotItems("LA042").Visible = False
        .PivotItems("MA061").Visible = False
        .PivotItems("BS119").Visible = False
        .PivotItems("S0A0G").Visible = False
        .PivotItems("S0A0K").Visible = False
    End With
    End If
If OptionButton3.Value = True Then
With Sheets("sayfa4").PivotTables("Özet Tablo 4").PivotFields("Blend ")
        .PivotItems("LM272").Visible = True
        .PivotItems("ML679").Visible = False
        .PivotItems("PL103").Visible = False
        .PivotItems("LA042").Visible = False
        .PivotItems("MA061").Visible = False
        .PivotItems("BS119").Visible = False
        .PivotItems("S0A0G").Visible = False
        .PivotItems("S0A0K").Visible = False
    End With
    End If
If OptionButton8.Value = True Then
With Sheets("sayfa4").PivotTables("Özet Tablo 4").PivotFields("Blend ")
        .PivotItems("MA061").Visible = True
        .PivotItems("ML679").Visible = False
        .PivotItems("PL103").Visible = False
        .PivotItems("LA042").Visible = False
        .PivotItems("LM272").Visible = False
        .PivotItems("BS119").Visible = False
        .PivotItems("S0A0G").Visible = False
        .PivotItems("S0A0K").Visible = False
    End With
    End If
If OptionButton9.Value = True Then
With Sheets("sayfa4").PivotTables("Özet Tablo 4").PivotFields("Blend ")
        .PivotItems("LA042").Visible = True
        .PivotItems("ML679").Visible = False
        .PivotItems("PL103").Visible = False
        .PivotItems("LM272").Visible = False
        .PivotItems("MA061").Visible = False
        .PivotItems("BS119").Visible = False
        .PivotItems("S0A0G").Visible = False
        .PivotItems("S0A0K").Visible = False
    End With
 If OptionButton10.Value = True Then
With Sheets("sayfa4").PivotTables("Özet Tablo 4").PivotFields("Blend ")
        .PivotItems("S0A0K").Visible = True
        .PivotItems("ML679").Visible = False
        .PivotItems("PL103").Visible = False
        .PivotItems("LA042").Visible = False
        .PivotItems("MA061").Visible = False
        .PivotItems("BS119").Visible = False
        .PivotItems("S0A0G").Visible = False
        .PivotItems("LM272").Visible = False
    End With
    End If
If OptionButton11.Value = True Then
With Sheets("sayfa4").PivotTables("Özet Tablo 4").PivotFields("Blend ")
        .PivotItems("S0A0G").Visible = True
        .PivotItems("ML679").Visible = False
        .PivotItems("PL103").Visible = False
        .PivotItems("LA042").Visible = False
        .PivotItems("MA061").Visible = False
        .PivotItems("BS119").Visible = False
        .PivotItems("LM272").Visible = False
        .PivotItems("S0A0K").Visible = False
    End With
    End If
If OptionButton12.Value = True Then
With Sheets("sayfa4").PivotTables("Özet Tablo 4").PivotFields("Blend ")
        .PivotItems("BS119").Visible = True
        .PivotItems("ML679").Visible = False
        .PivotItems("PL103").Visible = False
        .PivotItems("LA042").Visible = False
        .PivotItems("MA061").Visible = False
        .PivotItems("BS119").Visible = False
        .PivotItems("S0A0G").Visible = False
        .PivotItems("LM272").Visible = False
    End With
    End If
End Sub