Grafik Yerleştirme

[bichet]

Merhaba,

Grafiği belirtilen yere yerleştirmekte sıkıntı yaşıyorum. Sanırım range/cells kısmında bir hata var ama anlayamadım.

Sub chart()

Dim chrt As ChartObject

Dim satir_sayisi As Integer
satir_sayisi = Worksheets("Sayfa 1").Range("a" & Rows.Count).End(xlUp).Row - 1

Set chrt = ActiveSheet.ChartObjects.Add(Left:=Range(Cells(satir_sayisi + 30, 2)).Left, Width:=2000, Height:=600, Top:=Range(Cells(satir_sayisi + 30, 2)).Top)

End Sub

 

[ÖmerFaruk]

satir_sayisi = Worksheets("Sayfa1").Range("A" & Rows.Count).End(xlUp).Row - 1
Set chrt = ActiveSheet.ChartObjects.Add(Left:=Cells(satir_sayisi + 30, 2).Left, Width:=2000, Height:=600, Top:=Cells(satir_sayisi + 30, 2).Top)

İlk satırınızda "Sayfa 1" yanlış mı bilemedim ama onu da düzelttim.

 

[bichet]

Sayfa 1 kısmını buraya yazarken düzeltmiştim. Yanlış düzeltmişim. Çok teşekkür ederim.