hisse grafikleri ile ilgili sorun 2003 uyumlu

[yunka]

2003 uyumluya çevirdim verileri güncelledğim zaman grafik veriside alt satıra kayıyor devamlı elle yeniden düzenliyorum güncelleme yapınca grafik verisi alta
kaymaması için ne yapmalıyız teşekkür

 

[yunka]

acil yardım

acil yardım bekliyorum

 

[yunka]

yardım bekliyorum

yardım lütfen

 

[yunka]

yardım bekliyorum

yardım ediniz

 

[Ferhat Pazarçevirdi]

Merhabalar,

"Dağıt" adlı prosedürünüzü aşağıdaki gibi değiştirin.

Eklenen kısımlar kırmızı ile gösterilmiştir.

Not : Dosyanız, nispeten dağınık bir yapıda.

Sub Dağıt()
    On Local Error GoTo 20
    Dim i As Long
    Dim Sayfa As String
[COLOR="Red"]    Dim cht As ChartObject[/COLOR]
    
    Set sg = Sheets("Veri")
    sg.Select
    d = InputBox("Veri Tarihini gg/aa/yyyy Şeklinde Giriniz.", "Uyarı", Date)
    If Not IsDate(d) Then
        MsgBox "Girilen değer tarih değildir." & Chr(10) & "Tekrar giriş yapınız."
        Exit Sub
    End If

    For i = 7 To [b65536].End(3).Row

        Sayfa = Trim(Cells(i, "b"))
        If Sheets("veri").Range("b" & i).Offset(0, -1).Value = "x" Then

            If Not SayfaVarMi(Sayfa) Then
                Sheets.Add After:=Worksheets(Worksheets.Count)
                ActiveSheet.Name = Sayfa
                sg.Select
                Range("b1:f1").Copy Sheets(Sayfa).[b2]
            End If

            Sheets(Sayfa).Rows("2:2").Insert Shift:=xlDown
            Range("b" & i & ":f" & i).Copy Sheets(Sayfa).Range("B2") 'Sheets(Sayfa).Range("B" & Sheets(Sayfa).[a65536].End(3).Row + 1)
            Sheets(Sayfa).Range("A2").Value = d
            Sheets(Sayfa).Columns(1).EntireColumn.AutoFit
            
[COLOR="red"]            For Each cht In Sheets(Sayfa).ChartObjects
                    cht.Chart.SetSourceData Sheets(Sayfa).Range("C1:F60"), xlColumns
            Next[/COLOR]
            
            w = Sheets(Sayfa).Cells(65536, "B").End(3).Row - 1
            If w >= 60 Then
                Sheets(Sayfa).Rows("61:61").Delete Shift:=xlUp
            End If

        End If
    Next i
    MsgBox "Veri Aktarma İşlemi Tamamlandı."
20:
End Sub

 

[yunka]

teşekkür

ferhat bey teşekkür ederim saygılarımı sunarım ALLAH a emanet olunuz...
ALİMİN UYKUSU CAHİLİN İBADETİNDEN DAHA HAYIRLIYMIŞ derler ya ne kadarda doğru.