Soru Tıklanan Shapeleri Tanımlama

[hlojan]

Merhaba ;

Bir tane aktif tablo yapacağım yanına Yeşil ve Kırmızı "Ekle" ve " Sil" diye butonlar koyacağım

Bu Butonlar "shape" olduğunda tıkladığımda hangi hücrede ise o satıra ait işlem yapmak istiyorum

Shape leri kopyaladığımdan bütün shapeler aynı isim

Örnek dosyam ekte.

Birde tıkladığımda en altta + buton olacak şekilde butonları coğaltmak istiyorum

Yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Nesne ekleyip kullanmak yerine excel hücrelerini kullansanız daha sağlıklı olmaz mı?

Mesela çift tıklama ile işlem yapabilirsiniz.

 

[hlojan]

Teşekkürler Korhan Bey;

Yönteminiz benim için uygun ve yeterli.

Gerisini çözerim. Teşekkürler metod için

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
    If Not Intersect(Target, Range("A10:A110")) Is Nothing Then
        cancel = True
        MsgBox Target.Address & " EKLE"
    End If
   
        If Not Intersect(Target, Range("B10:B110")) Is Nothing Then
        cancel = True
        MsgBox Target.Address & " SİL"
    End If
End Sub