Grafik Kopyalama

[aydinsert]

Merhabalar,
Grafikle ilgili şöyle bir sorunum var: Excelde grafiklerin olduğu sayfayı kopyalayıp başka bir sayfaya kopyalayıp verileri değiştirdiğimde grafiğin kaynağı önceki sayfada kalıyor.

Kaynağı otomatik olarak makroyla değiştirebileceğim bir kod var mı?

Çözüm için destek olacaklara şimdiden teşekkürler.

 

[Merhum İdris SERDAR]

.

Veri kaynağınız ve grafikler aynı sayfadaysa, sayfayı kopyalayın. Sonra sayfa adını değiştirip yeni verileri ekleyin.

.

 

[aydinsert]

.

Veri kaynağımız ve grafikler aynı sayfadaysa, sayfayı kopyalayın. Sonra sayfa adını değiştirip yeni verileri ekleyin.

.

Selamlar dediğinizi yapıyorum ama yüzden fazla sayfa olunca kopyala yapıştır çok uğraştırıyor. Vba ile ilgili sayfalardaki grafiklerin kaynağını değiştiremez miyiz?

 

[Merhum İdris SERDAR]

.

Aşağıdaki kodla istediğiniz kadar sayfa kopyası elde edersiniz.

Sub SayfaKopyala()

Dim i As Integer
Dim p As Integer
On Error GoTo son

i = InputBox("Kaç kopya istiyorsunuz?", "Sayfa Kopyalama")

Application.ScreenUpdating = False
    p = 0
    Do
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    p = p + 1
    Loop Until p = i

Application.ScreenUpdating = True

Exit Sub

son:
MsgBox "İşlem iptal edildi."

Application.ScreenUpdating = True

End Sub

.

 

[aydinsert]

Çok teşekkürler.