Grafik verileri yapıştırdığım sayfadan alsın

[aldemirfatih]

Arkadaşlar birinci sayfadaki grafiği kopyalayıp ikinci sayfaya yapıştırdığım zaman istiyorum ki verileri ikinci sayfadan alsın. Bunun kolay bi yolu var mıdır?

 

[Korhan Ayhan]

Sayfa adını değiştirmek için makro kullanmanız gerekir.

 

[aldemirfatih]

O zaman beni aşar bu durum. Makro bilgim yok

 

[Korhan Ayhan]

Grafiği kopyaladıktan sonra aktif sayfada aşağıdaki kodu çalıştırırsanız grafik kaynağı güncellenecektir.

Dosyanızda ALT+F11 tuşlarına basınız.
Karşınıza kod editörü açılacaktır.
INSERT menüsünden Module seçeneğini seçiniz.
Karışınıza beyaz bir pencere açılacaktır.
Önerdiğim kodu bu alana yapıştırınız. (Dikkat Option Explicit satırı bir adet olmalıdır...)

Sonra bu pencereyi çarpı işaretinden kapatarak excel sayfasına dönebilirsiniz.

ALT+F8 tuşuna basarak makroyu çalıştırabilirsiniz. Ya da sayfalarınıza buton ekleyerek makroyu butona tanımlayıp kullanabilirsiniz.

Linkleri inceleyip bilgi sahibi olabilirsiniz. Bu işlemleri yaptıktan sonra dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" biçiminde kayıt etmelisiniz.

https://www.excel.web.tr/threads/moduel-ekleme-resimli-anlatim.73353/

https://www.excel.web.tr/threads/sayfada-buton-duegme-olusturmak-ve-makro-atamak-1-resimli-anlatim.59436/

https://www.excel.web.tr/threads/sayfada-buton-duegme-olusturmak-ve-makro-atamak-2-resimli-anlatim.136979/

Option Explicit

Sub Update_Chart_Source()
    Dim Rng As Range, My_Chart As ChartObject
    
    Set Rng = Range("A2:U11")
    
    For Each My_Chart In ActiveSheet.ChartObjects
        My_Chart.Chart.SetSourceData Source:=Rng
    Next

    Set Rng = Nothing
End Sub

 

[aldemirfatih]

Çok teşekkür ediyorum.
Aynı şekilde üç farklı grafik olanı nasıl yapabilirim?
Biraz karıştırdım ama kod, makro bende sıfıra yakın olduğu için başaramadım.