Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: kırçiçeği - 03 Ekim 2012, 12:11:59

Başlık: Makro ile grafiğin silinmeme sorunu
Gönderen: kırçiçeği - 03 Ekim 2012, 12:11:59

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.

Başlık: Ynt: Sayfa silince makronun çalışmaması
Gönderen: kırçiçeği - 03 Ekim 2012, 15:12:45

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

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

Başlık: Ynt: Sayfa silince makronun çalışmaması
Gönderen: MUSTAFAINE - 03 Ekim 2012, 15:42:43

 :cooll

Başlık: Ynt: Sayfa silince makronun çalışmaması
Gönderen: kırçiçeği - 03 Ekim 2012, 16:47:39

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

Başlık: Ynt: Sayfa silince makronun çalışmaması
Gönderen: MUSTAFAINE - 03 Ekim 2012, 17:28:54

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

Başlık: Ynt: Sayfa silince makronun çalışmaması
Gönderen: kırçiçeği - 04 Ekim 2012, 09:39:25

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.

Başlık: Ynt: Makro ile grafiğin silinmeme sorunu
Gönderen: MUSTAFAINE - 04 Ekim 2012, 10:07:46

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


Başlık: Ynt: Makro ile grafiğin silinmeme sorunu
Gönderen: kırçiçeği - 04 Ekim 2012, 10:19:36

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

Başlık: Ynt: Makro ile grafiğin silinmeme sorunu
Gönderen: MUSTAFAINE - 04 Ekim 2012, 10:52:24

Rica ederim, iyi calismalar.