Excel'de VBA (Makro) Kullanarak Tüm Sekmelere Grafik Eklemek

İlgili youtube videosu bağlantısı: youtu.be/u6t_Z1-Yt0g

Video içerisinde hazırlanan VBA kodları aşağıdaki gibidir.

Aktif Çalışma Sekmesinde Grafik Başlığının Sekme Adından Alınarak Grafik Eklenmesi

Sub GrafikCizdir()
'
' GrafikCizdir Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
    Range("B1").Select
    Selection.NumberFormat = "General"
    ActiveCell.Formula2R1C1 = "=TEXTAFTER(CELL(""FILENAME"",RC[-1]),""]"")"
    Range("A1").Select
    Selection.CurrentRegion.Select
    ActiveSheet.Shapes.AddChart2(227, xlLine).Select
    ActiveChart.SetSourceData Source:=Range("$A$1").CurrentRegion
End Sub

Tüm Çalışma Sekmelerine Merhaba Yazısı Eklenmesi

Sub TumSekmelereMerhabaYaz()
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        ws.Range("D2").Value = "merhaba"
    Next ws
End Sub

Tüm Çalışma Sekmelerinde Grafik Başlığının Sekme Adından Alınarak Grafik Eklenmesi

Sub TumSayfalardaGrafikVeSayfaAdi()
    Dim ws As Worksheet
    Dim veriAraligi As Range
    Dim chartObj As ChartObject

    For Each ws In ThisWorkbook.Worksheets
        With ws
            .Range("B1").NumberFormat = "General"
            .Range("B1").Formula2R1C1 = "=TEXTAFTER(CELL(""filename"",RC[-1]),""]"")"
            Set veriAraligi = .Range("A1").CurrentRegion

            Set chartObj = .ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)
            With chartObj.Chart
                .ChartType = xlLine
                .SetSourceData Source:=veriAraligi
            End With
        End With
    Next ws
End Sub

Editör editi: sitedeki bazı diğer benzer yazılar için;

bkz: Sell In May And Go Away (Mayıs'ta Sat ve Git) Efsanesi Ne Kadar Doğru?

bkz: Excel'de QR Kodlar Üreterek Araçları ve Notları Takip Etmek

bkz: Yatırım Araçlarının Aylara Göre Davranışları (Excel)

bkz: Excel'de Kripto Para Piyasası işlemleri için Kar-Zarar Hesaplamak

bkz: Excel'de TRIMRANGE (KIRPARALIĞI) Fonksiyonu ile Sadece Dolu Olan Hücreleri Seçmek

bkz: Excel'de Nokta Karakteri ile Boş Referansları Temizlemek