Makro ile grafiğin silinmeme sorunu

[kırçiçeği]

Merhabalar, ben bir makro yazdım, makrom şu an çalışıyor ancak çalışma kitabındaki sayfaları silmek istediğimde hata veriyor.

Ekli dosyada "ortalama" çalışma kitabının içinde "Ortalama" ve "Grafik" sayfalarını silmek istiyorum ancak sildiğimde makro çalışmıyor. Kod içerisinde Sayfa3 ve Sayfa4 kısımlarını değiştirdim, yine de fayda etmedi. Daha sonra yeni bir çalışma kitabında (ortalama3) baştan oluşturayım dedim ancak orada da kod hata verdi.

Yardımlarınız için şimdiden teşekkürler. (Çözüldü)

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Ben yeni bir soruyla geleyim o zaman. Dosyama bir de grafik çizdirme makrosu ekledim, sorun yok, gayet güzel çiziyor. Bir de silme makrosu ekleyeyim dedim, temizlesin ekranı, onda sorun çıktı. Değerleri siliyor ancak grafiği silmiyor.

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

[kırçiçeği]

Sayfa3.Range("A2:E65000").ClearContents

kodunun silinmesiyle sorun çözüldü. =)

[MUSTAFAINE]

 

[kırçiçeği]

Sizin de burada olduğunuzu bilmiyordum, o nedenle attığınız maili de tam anlayamamıştım, şimdi oldu. Tekrar teşekkürler. =D

[MUSTAFAINE]

Aslinda ilk mesajimdi, rss`lerini takip ettigim 300-400 tane site var sanirim.

[kırçiçeği]

Ben yeni bir soruyla geleyim o zaman. Dosyama bir de grafik çizdirme makrosu ekledim, sorun yok, gayet güzel çiziyor. Bir de silme makrosu ekleyeyim dedim, temizlesin ekranı, onda sorun çıktı. Değerleri siliyor ancak grafiği silmiyor.

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

[MUSTAFAINE]

kodunuzu asagidaki sekilde degistiriniz;

Kod: [Seç]

Sub gsil()
Dim grafik As ChartObject
    Columns("A:B").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    'ActiveSheet.ChartObjects("Grafik 1").Activate
    For Each grafik In ActiveSheet.ChartObjects
        grafik.Delete
    Next
    'ActiveChart.Parent.Delete
    Range("A1").Select
End Sub


[kırçiçeği]

Sorun çözüldü Mustafa Bey, ellerinize sağlık, çok teşekkürler. =)

[MUSTAFAINE]

Rica ederim, iyi calismalar.