makro ile sayfadaki dikdörtgen ve düğme silme

[mustafateknetas]

öncelikle tüm islam aleminin bayramınız mübarek olsun.
sayfada toplam 880 adet dikdörtgen var bunları tek tek silmem uzun zaman alacağı için makro ile silme şansım varmı.

ActiveSheet.Shapes("Dikdörtgen 1").Delete
abu makro ile tek tek silebiliyorum ancak oda uzun zaman alıyor. topluca silmek için bana yardımcı olabilirmisiniz.

birde aynı şekilde, düğme de bir okadar var onun içinde ayrı bir makro ihtiyac olurmu.

teşekkürler

 

[Ömer]

Merhaba,

Makro kullanmadan da yapabilirsiniz.

• F5
• Özel
• Nesneler / Tamam
• Delete

.

 

[Skorpiyon]

Sayın mustafateknetas,

Alternatif;

Sub Düğme1_Tıklat()
On Error Resume Next
For a = 1 To 1000
ActiveSheet.Shapes("Dikdörtgen " & a).Delete
Next a
MsgBox "İşlem tamam"
End Sub

 

[mustafateknetas]

çok saolun hocam allah razı olsun