Koşula bağlı grafik gösterme, gizleme

[vivident]

Merhaba

Ekteki dosyada ;
verilerimin bulunduğu veri sayfası
grafiklerin bulunduğu grafikler sayfası
seçeneklerin bulunduğu kosul sayfası mevcut

koşul sayfasındaki ;

1) C3 hücresinde seçim yaparak aç butona bastığımda grafik ekranda görülmeli.
2) C3 hücresinde seçim değiştiğinde veya kapat butonuna bastığımda grafik ekrandan gitmeli

Koda ne seçim hanesine ekleyebildim, nede grafikleri getirmeyi

Sub Grafik1_Gizle()
ActiveSheet.ChartObjects(1).Visible = False
End Sub
Sub Grafik1_Goster()
ActiveSheet.ChartObjects(1).Visible = True
End Sub

Yardımlarınız bekliyorum

 

[vivident]

Aşağıdaki kod ile gösterme gizleme yapabiliyorum, fakat koşul olayını bulamadım

Private Sub CommandButton1_Click()
ActiveSheet.ChartObjects("Grafik 2").Activate
    ActiveChart.Parent.Delete
End Sub
Private Sub CommandButton2_Click()
Sheets("grafikler").Select
    ActiveSheet.ChartObjects("Grafik 2").Activate
    ActiveChart.ChartArea.Copy
    Sheets("kosul").Select
    Range("E5").Select
    ActiveSheet.Paste
End Sub

 

[Kumpasta]

Merhaba.
Office 2019 da çalışma yapıyorum.
Şöyle bir sorum vardı.
A1 Hücresinde 1 yazıyorsa grafik açık kalsın 2 yazıyorsa kapalı olsun. Bu işlemi makro atama yapmadan formülle yada grafiği koşula bağlama gibi bir imkan var mı?
https://s2.dosya.tc/server11/jaoyos/fs.xlsx.html

 

[Merhum İdris SERDAR]

Merhaba.
Office 2019 da çalışma yapıyorum.
Şöyle bir sorum vardı.
A1 Hücresinde 1 yazıyorsa grafik açık kalsın 2 yazıyorsa kapalı olsun. Bu işlemi makro atama yapmadan formülle yada grafiği koşula bağlama gibi bir imkan var mı?
https://s2.dosya.tc/server11/jaoyos/fs.xlsx.html

Formülle Grafik gösterme gizleme.

Dosyanız burada.

https://dosya.co/d18ofvqw9pkt/fs.xlsx.html


.

 

[Kumpasta]

Eyvallah üstad.
Ben menüde o bağlantı yada köprü tuşunu göremedim. Çok aradım.
Nasıl yaptığınız konusunda açıklama yapabilirmisin?

 

[Merhum İdris SERDAR]

Eyvallah üstad.
Ben menüde o bağlantı yada köprü tuşunu göremedim. Çok aradım.
Nasıl yaptığınız konusunda açıklama yapabilirmisin?

Resim için Paste Link kullanmak mümkün. Grafik için bu durum mümkün değil. Onun için burada bir hileye başvurulmuştur.

Sheet2 sayfasında görüleceği gibi B1 hücresini grafik kadar genişlettim. Ve grafiği oraya yerleştirdim. A1 ve A2 hücrelerine 1 ve 2 sayılarını yazdım.

alan =INDEX(Sheet2!$B$1:$B$2;MATCH(Sayfa1!$A$1;Sheet2!$A$1:$A$2;0)) şeklinde bir ad tanımlaması yaptım.

Sheet2 sayfasında B1(grafiği seçmeden) hücresine gidip, Copy yaptıktan sonra Sayfa1'in herhangi bir yerine Linked Picture olarak yapıştırdığımızda, grafik resim olarak yapıştırılmış oluyor.

Yapıştırılan bu resim grafiği seçip, formül çubuğunda =alan yazmak yeterli oluyor.

A1 hücresine 1 yazıldığında Sheet2 sayfasında B1 hücresinde yer alan grafik gelir. 2 yazarsak B2 hücresi boş olacağı için bir şey gelmeyecektir.

Umarım anlatabilmişimdir.

.
.

 

[Kumpasta]

Linked Picture nin bağlı resim olduğunu uzun uğraşlar sonucu öğrenebildim
Teşekkürler.