Tüm Command Butonları Tek Seferde Silme ( Sekmede değil Dosyada)

[civil.engineer]

Arkadaşlar merhaba


Excelimde içerisinde butonlar olan yüzlerce sekme var. O nedenle dosyadaki tüm butonları tek seferde silmek istiyorum.

Çok araştırdım, tüm makrolar tek bir sekmedeki nesneleri silmeye yönelik. Ya da ben o kodları tüm sekmeler için tek seferde çalıştıramadım.


Yardımlarınız için şimdiden teşekkürler

 

[Muzaffer Ali]

Tek bir sayfada alışan kodları ekleyin tüm dosyaya göre düzenleyelim.

 

[Haluk]

Sub Test()
    'Haluk - 18/10/2019
    'sa4truss@gmail.com
    '
    For i = 1 To Sheets.Count
        Sheets(i).Buttons.Delete 'Form Controls butonlari
        For Each cmdButt In Sheets(i).OLEObjects ' ActiveX butonlari
            If TypeName(cmdButt.Object) = "CommandButton" Then
                cmdButt.Delete
            End If
        Next
    Next
End Sub

.

 

[civil.engineer]

Sub Test()
    'Haluk - 18/10/2019
    'sa4truss@gmail.com
    '
    For i = 1 To Sheets.Count
        Sheets(i).Buttons.Delete 'Form Controls butonlari
        For Each cmdButt In Sheets(i).OLEObjects ' ActiveX butonlari
            If TypeName(cmdButt.Object) = "CommandButton" Then
                cmdButt.Delete
            End If
        Next
    Next
End Sub

.

işe yaradı hocam butonlar silindi, fakat sayfalara girdiğimde kodlar duruyor.

aslında bunu yapmaya çalışma nedenim dosyayı biraz hafifletmekti, kaydete basınca 1 dk bekliyorum her defasında. kodları nasıl sileceğiz butonlar için girilen

 

[civil.engineer]

Tek bir sayfada alışan kodları ekleyin tüm dosyaya göre düzenleyelim.

merhaba

her sayfada tek bir buton var ve kodu şöyle :

Private Sub CommandButton1_Click()
Sayfa1.Activate

End Sub

 

[Muzaffer Ali]

Sorunu Haluk bey çözmüş görünüyor 3. mesajdaki çözümü denediniz mi?

 

[civil.engineer]

Sorunu Haluk bey çözmüş görünüyor 3. mesajdaki çözümü denediniz mi?

evet hocam, butonlra silindi ama sayfadaki kodlar kaldı, kodları nasıl temizlicez ya da kalmasında sorun var mı ? (dosyayı yavaşlatır mı ?)

 

[Muzaffer Ali]

Dosyayı farklı kaydet deyip tür kısmından *.xlsx uzantılı seçip kaydederseniz bütün kodlar silinmiş olur.

 

[Korhan Ayhan]

Dosyanızı yavaşlatan makrolar değildir. Yüzlerce sayfa var demişsiniz. Bence sebebi bu olabilir.

 

[civil.engineer]

Dosyanızı yavaşlatan makrolar değildir. Yüzlerce sayfa var demişsiniz. Bence sebebi bu olabilir.

anladım hocam saolun

Dosyayı farklı kaydet deyip tür kısmından *.xlsx uzantılı seçip kaydederseniz bütün kodlar silinmiş olur.

teşekkürler hocam