Grafik Makrosu Modifikasyonu

[ant1905]

Arkadaşlar herkese selamlar saygılar,

Üzerinde çalıştığım bir konu ile ilgili olarak aşağıdaki makroyu kaydettim.

Sub GRAFY()
'
' GRAFY Makro
'

'
ActiveSheet.Shapes.Range(Array("Button 1")).Select
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.SeriesCollection(1).Select
Selection.Formula = "=SERIES(,,AHMET!GRFF,1)"
Range("D2").Select
End Sub




Bu makroda "AHMET" yazan yere "aktif olan çalışma sayfası" manasına gelecek
kodu yazmak gerekiyor. Yani 60-70 kere sayfa isimlerini değiştirip makroyu tekrar tekrar yazmamak için. Ama ben bulamadım. Yardımcı olabilecek arkadaşlara şimdiden çok çok teşekkür ederim.

 

[ant1905]

konu günceldir

 

[ant1905]

116 kişi bakıp cevap veremediğine göre gözüktüğü kadar kolay birşey değil sanırım

 

[ant1905]

konu güncel

 

[ant1905]

hala güncel

 

[ant1905]

doğru cevap

Selection.Formula = "=SERIES(,,'" & activesheet.name & "'!GRFF,1)"