checkbox silmek

[Barons]

merhaba
bir sayfada yüzlerce checkbox var..üstünü tıkladığımda "formul satırında şu yazıyor.
=KAT("Forms.HTML:Checkbox.1";"")

bundanher sayfada yüzlerce var ve tek tek silmek çok zaman alıyor..Kod ile tüm sayfa yada sayfalardakini silmek mümkünmüdür?

Teşekkürler

 

[vardar07]

Modül içine ekleyip denermisiniz.

Sub sil()
On Error Resume Next
For i = 1 To 500
ActiveSheet.Shapes("CheckBox" & i).Select
 Selection.Delete
Next i
End Sub

 

[Mehmet Şahin]

Merhaba,
şöyle bir kod buldum.
İyi çalışmalar.

    For Each i In ActiveSheet.OLEObjects
        If i.progID = "Forms.HTML:Checkbox.1" Then
            i.Delete
        End If
    Next i

 

[Necdet]

Merhaba,

Sadece CheckBox varsa hepsini silmek kolay.

• F5
• Özel
• Nesneler
• Tamam
• DELETE

 

[Barons]

Kod ile olanlarda çok bekleme yaptı sanırım kitap çok yüklü ondan olduğunu düşünüyorum.Necdet Hocanın verdiği çözüm ile kısa sürede hallettim.
İlgilenen tüm hocalarıma tesekkuler,saygılar

 

[Barons]

Necdet hocam bu hareketin makrosu varmı? yani F5-özel.....

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kod yeterli olur.

Sub SİL()
    ActiveSheet.DrawingObjects.Delete
End Sub

 

[Necdet]

Necdet hocam bu hareketin makrosu varmı? yani F5-özel.....

Bu tür şeyleri makro kaydet ile rahatlıkla yapabilirsiniz.

Çok küçük bir düzeltme ile de Sayın Ömer bey'in kodlarına erişirsiniz.

 

[Ömer BARAN]

Bu tür şeyleri makro kaydet ile rahatlıkla yapabilirsiniz.

Çok küçük bir düzeltme ile de Sayın Ömer bey'in kodlarına erişirsiniz.

Merhaba Sayın YEŞERTENER.
Zaten benim yaptığım da söylediğiniz idi ("makro kaydet->işlemi yap->select gibi gereksiz kısmı ayıkla -> kalan: tek satırlık kod").

Çevrimdışı olduğunuz için cevap yazmıştım.

Sağlıcakla.

 

[Barons]

çok teşekkürler