Makro ile çizilen nesnenin makro ile silinmesi

[yasso38]

Merhaba;

Ek'teki dosyada makro ile çizim yaptırıyorum. Bu şekli makro ile de silmek istiyorum. Makroyu oluşturdum fakat hata veriyor. Nerede hata yapıyorum acaba?

Teşekkürler.

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub sil()
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
    If s.AutoShapeType = msoShapeRectangle Then
       s.Delete
    End If
Next
End Sub

 

[Seyit Tiken]

Alternatif olur düşüncesiyle örnek dosya ekliyorum. Çizim nesnesine Ad Tanımlanmıştır.

 

[yasso38]

Teşekkürler,

Her ikisi de oluyor. Birinci örnekte şekillerin tamamı siliniyor. 2. örnekte seçtiğimiz şekil siliniyor. İhtiyaca göre işimize hangisi gelirse kullanabiliriz.

İyi çalışmalar.

 

[yasso38]

Ben bu kodu başka kodlarla birlikte kullanıyorum, aşağıdaki gibi, benim istediğim eğer şekil varsa silsin, şekil yoksa o koddaki şekil silme satırını gaile almasın. Şekil yokken bu makroyu çalıştırdığımda hata veriyor.

Sub sil()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect ("111")
    Rows("1:33").Select
    Selection.EntireRow.Hidden = False
    ActiveSheet.Shapes("yasin").Select
    Selection.Delete
    Range("A1:G1").Select
    Range("I1:L1").Select
    Range("A26").Select
    ActiveCell.FormulaR1C1 = "B- Kolon Kesit Hesabı :"
    Range("A31").Select
    ActiveCell.FormulaR1C1 = "C- Isınma Hesabı :"
    Range("I1:L1").Select
    ActiveSheet.Protect ("111")
End Sub

 

[kombo]

Kodlarınıza kırmızı yeri ilave edin.

Sub sil()
    Application.ScreenUpdating = False
    'ActiveSheet.Unprotect ("111")
    Rows("1:33").EntireRow.Hidden = False
    [COLOR=red]On Error Resume Next[/COLOR]
    ActiveSheet.Shapes("yasin").Select
    Selection.Delete
    [A26] = "B- Kolon Kesit Hesabı :"
    [A31] = "C- Isınma Hesabı :"
    'ActiveSheet.Protect ("111")
End Sub

 

[yasso38]

Kırmızı yeri ilave ettiğimde ne var ne yok hepsini siliyor. Başka çözüm yolu var mı acaba?

 

[kombo]

Kırmızı yeri ilave ettiğimde ne var ne yok hepsini siliyor. Başka çözüm yolu var mı acaba?

"Ne var ne yok derken" şekil dışında başka verileri mi kasdediyorsunuz?

 

[yasso38]

Sizin verdiğiniz örnekte de olmuyor. Şekil yok ise belirtilen öğe bulunamadı diye hata veriyor. Bunun başka yolu olmalı,

Teşekkürler,

 

[Seyit Tiken]

Aşağıdaki kod satırını kodlarınızın en başına yazıp deneyin.

On Error Resume Next

 

[yasso38]

On Error Resume Next

satırını Kombo arkadaşın gönderdiği dosyaya uygulayınca oluyor fakat benim dosyama uyguladığımda aktif sayfadaki tüm verileri siliyor anlayamadım.

Sub sil()
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect ("111")
    Rows("1:33").Select
    Selection.EntireRow.Hidden = False
    ActiveSheet.Shapes("yasin").Select
    Selection.Delete
    Range("A1:G1").Select
    Range("I1:L1").Select
    Range("A26").Select
    ActiveCell.FormulaR1C1 = "B- Kolon Kesit Hesabı :"
    Range("A31").Select
    ActiveCell.FormulaR1C1 = "C- Isınma Hesabı :"
    Range("I1:L1").Select
    ActiveSheet.Protect ("111")
End Sub

 

[kombo]

 [LEFT]Sub sil()
[LEFT]   On Error Resume Next
   Application.ScreenUpdating = False
   ActiveSheet.Unprotect ("111")
   [COLOR=red]Rows("1:33").Select[/COLOR]
   Selection.EntireRow.Hidden = False
   ActiveSheet.Shapes("yasin").Select
   Selection.Delete
   [COLOR=green]Range("A1:G1").Select[/COLOR]
[COLOR=green]   Range("I1:L1").Select[/COLOR]
   [COLOR=red]Range("A26").Select[/COLOR]
   ActiveCell.FormulaR1C1 = "B- Kolon Kesit Hesabı :"
   [COLOR=red]Range("A31").Select[/COLOR]
   ActiveCell.FormulaR1C1 = "C- Isınma Hesabı :"
   [COLOR=red][COLOR=green]Range("I1:L1").Select[/COLOR][/COLOR][COLOR=red]
[/COLOR]   ActiveSheet.Protect ("111")
End Sub[/LEFT]

Kodlarınızda işinize yaramayan kısımlarda var. Sınırlı makro bilgimle şunu söyleyebilirim, Herhalde onlarda seçili kalıyor ve o kısımlarda siliniyor. Özellikle Rows ("1:33") kısmını DELETE komutundan sonra yazın.

ActiveSheet.Shapes("yasin").Select
Selection.Delete
Rows("1:33").EntireRow.Hidden = False

Gibi. Bir de öyle deneyin.

Yeşil alanları da seçmenizin mantığını anlamadım?
[/LEFT]