Koşul 1 ise pasta değil ise çubuk grafik görüntülensin.

[Kumpasta]

merhaba.
ekte örneğini verdiğim bir sorum var.
çok basit olarak K13 hücresi 1 ise aşağıda ki kırmızı alanda pasta grafiği (grafik2) görüntülensin, değil ise çizgi grafik (grafik1) görüntülensin.
Bunu nasıl yapabilirim?

 

[ÖmerFaruk]

Grafikleri kırmızı alan üst üste taşıyın.
Boyutlarını aynı yapın

Sayfanızın kod penceresine aşağıdaki kodu yapıştırın

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [K13]) Is Nothing Then Exit Sub
    If Target.Value = 1 Then ActiveSheet.Shapes("Grafik 2").ZOrder msoSendToBack Else ActiveSheet.Shapes("Grafik 1").ZOrder msoSendToBack
End Sub

 

[Kumpasta]

Teşekkür ederim.
Makro dışında başka bir çözümü varmı?
Yoksa eğer 2 değilde 35-40 grafik için bu kodları nasıl duzenleyebiliriz?

 

[ÖmerFaruk]

K13 içerisindeki değer Grafik isimlerinizle örtüşüyorsa, grafiklerin hepsini kırmızı alana getirip aşağıdaki gibi kullanabilirsin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [K13]) Is Nothing Then Exit Sub
    ActiveSheet.Shapes("Grafik " & [K13]).ZOrder msoBringToFront
End Sub

 

[Kumpasta]

teşekkür ederim.