Çözüldü Seçenek düğmesi makro ile silme

[SFBYAPIM]

Herkese Merhaba;

Biliyorum biraz basit kaçacak ama"İşKazasıRprlma" sayfasındaki "Secenek1", "Secenek2", ve "Secenek3" düğmelerini makro ile kaldırmak istiyorum ama bir türlü bunu sağlayamadım. Yardımcı olacak var mı?

 

[volki_112]

Herkese Merhaba;

Biliyorum biraz basit kaçacak ama"İşKazasıRprlma" sayfasındaki "Secenek1", "Secenek2", ve "Secenek3" düğmelerini makro ile kaldırmak istiyorum ama bir türlü bunu sağlayamadım. Yardımcı olacak var mı?

Secenek1, secenek2... dugmesinin adi ne

 

[SFBYAPIM]

Adları belirttiğim gibi

 

[volki_112]

Adları belirttiğim gibi

Istediginzi kod
Sub DüğmeleriKaldır()
' İşKazasıRprlma sayfasındaki belirtilen düğmeleri siler

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("İşKazasıRprlma")

On Error Resume Next ' Hata durumunda devam etmek için

ws.Shapes("Secenek1").Delete
ws.Shapes("Secenek2").Delete
ws.Shapes("Secenek3").Delete

On Error GoTo 0 ' Hata yönetimini kapat

End Sub

 

[SFBYAPIM]

Malesef kaldırmıyor, kendim denediğimde de olmamıştı ama sebebini anlamadım. sayfa korumalı da değil

 

[volki_112]

Malesef kaldırmıyor, kendim denediğimde de olmamıştı ama sebebini anlamadım. sayfa korumalı da değil

Hocam incelikle secenek dugmelernin adini kontrol edin. Bunlar sekil olarak mi eklenmis. Seklin icinde secenek1 yazmasi onun adinin secenek 1 olduğunu gostermez. O sekili secince solda ustte seklin adi yazar. O gercekten secenek1 mi kontrol ediniz. Eger bunlar dogruysa silmiyorsa sekil olarak degilde command button olarak eklenmis olabilir. Bi foti atar misiniz

 

[Necdet]

Merhaba,

Dener misiniz, Sayfa adını kendinize göre düzenleyiniz.

Sub SeçenekDügmeleriniSil()

    Dim shp As Shape
    
    For Each shp In Sheets("Sayfa1").Shapes
            If shp.Name Like "Opt*" Then shp.Delete
    Next shp
    
End Sub

 

[SFBYAPIM]

Merhaba,

Dener misiniz, Sayfa adını kendinize göre düzenleyiniz.

Sub SeçenekDügmeleriniSil()

    Dim shp As Shape
   
    For Each shp In Sheets("Sayfa1").Shapes
            If shp.Name Like "Opt*" Then shp.Delete
    Next shp
   
End Sub

Hocam çalıştı, teşekkür ederim