tabloda bir hücre üzerine geldiğimde o hücreyle ilgili grafiğin otomatik gözükmesi

[seyficetin]

hazırladığım tabloda her hücreye ait bir grafik olacak. tüm grafikler sheet-2 de bulunacak. hazırladığım tabloda mouse ile herhangi bir hücrenin üzerine geldiğimde , o hücreye ilişkilendirdiğim sheet-2 deki ilgili grafik o sayfada gözükecek.

burada tablo içinde bulunan verilerin ait olduğu grafikleri göstermek için , grafik sayfasına giderek grafik arama sorunu olmayacak.

 

[hamitcan]

Sayfa1'in kod kısmına ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = 6 Then Grafik1Goster
If Target.Value = 17 Then Grafik2Goster
If Target.Value = 90 Then Grafik3Goster
If Target.Value = 34 Then Grafik4Goster
End Sub

Bir Module içine ekleyin.

Sub Grafik1Goster()
On Error Resume Next
Sayfa2.ChartObjects("Grafik 1").Visible = True
Sayfa2.ChartObjects("Grafik 2").Visible = False
Sayfa2.ChartObjects("Grafik 3").Visible = False
Sayfa2.ChartObjects("Grafik 4").Visible = False

End Sub
Sub Grafik2Goster()
On Error Resume Next
Sayfa2.ChartObjects("Grafik 2").Visible = True
Sayfa2.ChartObjects("Grafik 1").Visible = False
Sayfa2.ChartObjects("Grafik 3").Visible = False
Sayfa2.ChartObjects("Grafik 4").Visible = False
End Sub
Sub Grafik3Goster()
On Error Resume Next
Sayfa2.ChartObjects("Grafik 3").Visible = True
Sayfa2.ChartObjects("Grafik 1").Visible = False
Sayfa2.ChartObjects("Grafik 2").Visible = False
Sayfa2.ChartObjects("Grafik 4").Visible = False
End Sub
Sub Grafik4Goster()
On Error Resume Next
Sayfa2.ChartObjects("Grafik 4").Visible = True
Sayfa2.ChartObjects("Grafik 1").Visible = False
Sayfa2.ChartObjects("Grafik 2").Visible = False
Sayfa2.ChartObjects("Grafik 3").Visible = False

End Sub

 

[seyficetin]

Hamit bey,

yardımınız ve öneriniz için teşekkür ederim.
öneriniz olan uygulamayı yaptım ama ne yazık ki olmadı.
makroyu etkin kıldım, programı kapatıp açtım, run moduna aldım vs...
sizden ricam dediğiniz uygulamayı bir kez de siz yaparak dosyayı çalışır vaziyette foruma yükleyebilir misiniz?

sağlıcakla kalın

 

[hamitcan]

Dosyayı 2 nolu mesaja ekledim.