Formları silme

[eburumeysa]

merhaba arkadaşlar;
excel'de form bölümünden eklediğimiz onay kutusu vs gibi gereçleri tek tek silmek yerine hepsini bir anda silebilirmiyiz.bu şekilde 200 tane sayfam var. makro olmuyor. çünkü her sayfadaki buton numaraları farklı..

 

[Seyit Tiken]

Makrolu çözümü bir deneyiniz.

Sub Düğme10_Tıklat()
For s = 2 To Sheets.Count
Sheets(s).DrawingObjects.Delete
Next
End Sub

 

[hamitcan]

Ben de Sayın Seyit Tiken'in kodunu biraz geliştireyim.

Sub SIL()
On Error Resume Next
For Each Sh In Sheets
    With Sh
        .OLEObjects.Delete
        .DrawingObjects.Delete
    End With
Next
End Sub

 

[Necdet]

Merhaba,

Bir Sil makrosu da benden olsun.

Sub SekilMekilvsSil()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Select
Sheets(i).Shapes.SelectAll
Selection.Delete
Sheets(1).Select
Next i
End Sub

 

[eburumeysa]

Bu arada bende kendim uğraşmıştım. Bir makroda kendim elde ettim ve sorunumu hallettim. ilginiz teşekkür ederim.

 

[Necdet]

Makronuzu bizden esirgediniz sanırım. Bizde görseydik iyi olurdu sanki.