belge içinde kullanılan küçük şekle köprü vermek

[grikurt]

selam arkadaşlar;

konu başlığını sorum için yeterlidir umarım
ben belge içinde kullandığım excelin standart küçük şekillerine (açıklama balonlarına ve benzeri şekiller) köprü atamak istiyorum

ekteki dosyada örnekleyerek anlatmaya çalıştım
şimdiden teşekkürederim

 

[hamitcan]

Kısaca, şekilleri seçmek mi istiyor sunuz ?

 

[grikurt]

şekli seçmekle hedefi de görüntülemiş olurum bu durumda;

evet şekli seçmek istiyorum

 

[hamitcan]

Yukarıdaki varsayıma göre aşağıdaki kodu yazdım, bir deneyin. Liste sayfasının kod kısmına ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    a = ActiveCell.Text
    For Each shp In Sayfa2.Shapes
    Sayfa2.Select
    If shp.Type = 1 Then
        shp.Select
        If Selection.Caption = a Then
        shp.Select: Exit Sub
        End If
    End If
    Next
End Sub

 

[hamitcan]

Biraz daha geliştirdim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    a = ActiveCell.Text
    For Each shp In Sayfa2.Shapes
    Sayfa2.Select
    If shp.Type = 1 Then
        shp.Select
        If Selection.Caption = a Then
        Application.Goto reference:=Sayfa2.Range(shp.TopLeftCell.Address), scroll:=True
        shp.Select
        Exit Sub
        End If
    End If
    Next
End Sub

 

[grikurt]

Teşekkür ederim, hemen bakıyorum

 

[grikurt]

Elinize sağlık

Referans yöntemini kelimelerin eşleşmesi yöntemiyle vermişsiniz çok güzel olmuş
kod bilgim olmadığı için bir ricada daha bulunabilirmiyim

- ctrl+tık yöntemiyle referansa gitmek mümkünmü acaba bu şekilde hücre seçimleri sıkıntı olmayacaktır

 

[hamitcan]

Bu koda, istediğiniz kısayolu ekleybilirsiniz.

 Sub kopru()
    a = ActiveCell.Text
    For Each shp In Sayfa2.Shapes
    Sayfa2.Select
    If shp.Type = 1 Then
        shp.Select
        If Selection.Caption = a Then
        Application.Goto reference:=Sayfa2.Range(shp.TopLeftCell.Address), scroll:=True
        shp.Select
        Exit Sub
        End If
    End If
    Next
End Sub

 

[grikurt]

teşekkür ediyorum... hemen deniyorum