TEXT BOX SILME

[Huseyinkis]

excel sayfasına yaklaşık 2900 tane text box eklenmis bunların hepsini birden silebilecek bi komut varmı acaba...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:456fb76f1c]Sub textboxsil()
For a = ActiveSheet.Shapes.Count To 1 Step -1
ActiveSheet.Shapes(a).Select
If InStr(Selection.Name, "TextBox") > 0 Then Selection.Delete
Next
End Sub
[/vb:1:456fb76f1c]

 

[Huseyinkis]

tesekkurler calisti fakat baska dosyaya kopyaladıgimda

hata verdi neden yapabilir.

 

[Korhan Ayhan]

Selamlar,

Hangi satırda hata mesajı alıyorsunuz?

 

[sayanorra]

Metin kutularını silme !!!

Arkadaşlar Merhaba;

Benim Excel sayfasına da yaklaşık 6000 tane metin kutusu eklenmiş, fakat nasıl kod ekleyip sileceğimi bilmiyorum, tarif eder misiniz?
Şimdiden teşekkür ederim ...

 

[Korhan Ayhan]

Merhaba,

F5 tuşuna basın. Açılan menüden ÖZEL-NESNELER seçimini yapın. Böylece tüm nesneler seçilmiş olacaktır. Son olarak DELETE tuşuna tıklayarak işlemi tamamlayın.

 

[sayanorra]

Teşekkür ...

Merhaba,

F5 tuşuna basın. Açılan menüden ÖZEL-NESNELER seçimini yapın. Böylece tüm nesneler seçilmiş olacaktır. Son olarak DELETE tuşuna tıklayarak işlemi tamamlayın.

Korhan Bey çok teşekkür ederim. Allah razı olsun.

 

[Civan Jack]

Alternatif olsun

Sub Nesneleri_Sil()
    ActiveSheet.DrawingObjects.Delete
End Sub

 

[Golden-M]

Merhaba,

F5 tuşuna basın. Açılan menüden ÖZEL-NESNELER seçimini yapın. Böylece tüm nesneler seçilmiş olacaktır. Son olarak DELETE tuşuna tıklayarak işlemi tamamlayın.

Korhan Bey Çok Çok teşekkür ederim. aylardır bunun için uğraşıyorum. konu açtım bununla ilgili yinede cevap bulamadım. en sonunda burayı buldum. uyguladım. tüm dertlerden kurtuldum.
Emeğine sağlık.