Çözüldü Grafiği belli hücreye tek tıklayınca göstermek

[klop01]

Değerli arkadaşlar,
Okulun basketbol takımı oyuncularına ait grafikleri göstermek için elimde kod var.
Bu kod, belgemdeki Maçlar sayfasındaki D2 hücresine çift tıklayıp hücrenin içine girilip Enter tuşuna basınca gizli olan Grafik 1'i gösteriyor.

İSTEĞİM: D2 hücresine tek tıklayınca Grafik 1'i göstersin.
NOT: D2 hücresi bir başka sayfadan formülle isim getirmektedir.

http://s7.dosya.tc/server8/nqc7yn/BASKETBOL.zip.html

Sub Dikdörtgen2_Tıklat()
ActiveSheet.ChartObjects("Grafik 1").Visible = False
End Sub

Sub Düğme1_Tıklat()
ActiveSheet.ChartObjects("Grafik 1").Visible = True
    ActiveSheet.Shapes("Grafik 1").Top = Range("B7").Top
    ActiveSheet.Shapes("Grafik 1").Left = Range("B7").Left
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D2]) Is Nothing Then Exit Sub
Call Düğme1_Tıklat
End Sub

 

[Necdet]

Merhaba,
Aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, [D2]) Is Nothing Then Exit Sub
    ActiveSheet.ChartObjects("Grafik 1").Visible = True

End Sub

 

[klop01]

Necdet Bey,
Gönderdiğiniz kod işlemi yaptı fakat başka bir sorun oluştu.

Gönderdiğim dosyada D2'den R2'ye kadar sporcu adları var. Bunların her birisi için grafik var.
Aynı kodu hücre ve grafik adlarını değiştirerek kullanırım diye düşünmüştüm. Diğer sporcular için kopyalayıp kullanmak istediğimde hata verdi.

Soruyu tam soramamışım. D2'den R2'ye kadar grafikleri farklı olarak her sporcu için bu kodu kullanılabilir hâle getirebilir miyiz?
D2'ye tıklayınca Grafik 1
E2'ye tıklayınca Grafik 2
F2'ye tıklayınca Grafik 3 göstererek devam edecek şekilde.

 

[Necdet]

Merhaba,

Dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, [D2:R2]) Is Nothing Then Exit Sub
    
    Dim Grf As String
    Dim Shp As Shape
    
    Grf = "Grafik " & Target.Column - 3
    
    For Each Shp In ActiveSheet.Shapes
        If Shp.Name Like "Graf*" Then
            MsgBox Shp.Name
            Shp.Visible = False
        End If
    Next Shp
    
    ActiveSheet.ChartObjects(Grf).Visible = True

End Sub

 

[klop01]

Teşekkürler.
Kod başka işlem yapıyor. Grafik göstermiyor.
Dosyayı ekledim.

 

[Necdet]

Merhaba,

Kodda grafikleri görmek için listeletmiştir.

            MsgBox Shp.Name

satırını siliniz.

 

[klop01]

Sayın Necdet Bey,
Çok teşekkür ederim. İşlem tam olarak gerçekleşti.
Sağ olun.

 

[Necdet]

Güle güle kullanın, geri dönüş için de teşekkürler.