Makro grafik hatası

[mstcvs]

Sub Makro1()
'
' Makro1 Makro
'

'
Sheets.Add After:=Sheets(Sheets.Count)
ActiveCell.FormulaR1C1 = "DURUM"
Range("B1").Select
ActiveCell.FormulaR1C1 = "MEKSERİNA"
Range("C1").Select
ActiveCell.FormulaR1C1 = "MURAT"
Range("D1").Select
ActiveCell.FormulaR1C1 = "MESUT"
Range("E1").Select
ActiveCell.FormulaR1C1 = "CANAN"
Range("F1").Select
ActiveCell.FormulaR1C1 = "ZEYNEP"
Range("G1").Select
ActiveCell.FormulaR1C1 = "HÜLYA"
Range("H1").Select
ActiveCell.FormulaR1C1 = "KÜBRA"
Range("I1").Select
ActiveCell.FormulaR1C1 = "MEHMET"
Range("J1").Select
ActiveCell.FormulaR1C1 = "KORAY"
Range("K1").Select
ActiveCell.FormulaR1C1 = "HÜSEYİN"
Range("L1").Select
ActiveCell.FormulaR1C1 = "YUDUM"
Range("M1").Select
ActiveCell.FormulaR1C1 = "SEZGİN"
Columns("A:M").Select
Columns("A:M").EntireColumn.AutoFit
Selection.ColumnWidth = 10.43
Range("A2").Select
ActiveCell.FormulaR1C1 = "ÖDENDİ"
Range("A3").Select
ActiveCell.FormulaR1C1 = "BİLGİ VERİLDİ"
Range("A4").Select
ActiveCell.FormulaR1C1 = "ULAŞILAMADI"
Range("A5").Select
ActiveCell.FormulaR1C1 = "MEKTUP TESLİM"
Range("A6").Select
ActiveCell.FormulaR1C1 = "HUKUKTA"
Range("B2").Select
Columns("A:A").EntireColumn.AutoFit
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R2C5:R101C5,RC[-1])"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B6"), Type:=xlFillDefault
Range("B2:B6").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R102C5:R251C5,RC[-2])"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C6"), Type:=xlFillDefault
Range("C2:C6").Select
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R252C5:R351C5,RC[-3])"
Range("D2").Select
Selection.AutoFill Destination:=Range("D26"), Type:=xlFillDefault
Range("D26").Select
Range("E2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R352C5:R451C5,RC[-4])"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E6"), Type:=xlFillDefault
Range("E2:E6").Select
Range("F2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R452C5:R501C5,RC[-5])"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F6"), Type:=xlFillDefault
Range("F2:F6").Select
Range("G2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R502C5:R551C5,RC[-6])"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G6"), Type:=xlFillDefault
Range("G2:G6").Select
Range("H2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R552C5:R601C5,RC[-7])"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H6"), Type:=xlFillDefault
Range("H2:H6").Select
Range("I2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R602C5:R651C5,RC[-8])"
Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I6"), Type:=xlFillDefault
Range("I2:I6").Select
Range("J2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R652C5:R701C5,RC[-9])"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J6"), Type:=xlFillDefault
Range("J2:J6").Select
Range("K2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R702C5:R751C5,RC[-10])"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K6"), Type:=xlFillDefault
Range("K2:K6").Select
Range("L2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R752C5:R776C5,RC[-11])"
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L6"), Type:=xlFillDefault
Range("L2:L6").Select
Range("M2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('OCAK HATTOPLAMA GENEL LİSTE'!R777C5:R799C5,RC[-12])"
Range("M2").Select
Selection.AutoFill Destination:=Range("M2:M6"), Type:=xlFillDefault
Range("M2:M6").Select
Range("A1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("A2").Select
Selection.Style = "İyi"
Range("A3").Select
Selection.Style = "Nötr"
Range("A4").Select
Selection.Style = "Kötü"
Range("N1").Select
ActiveCell.FormulaR1C1 = "TOPLAM"
Range("O1").Select
ActiveCell.FormulaR1C1 = "ORAN"
Range("N2").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("N2").Select
Selection.AutoFill Destination:=Range("N2:N6"), Type:=xlFillDefault
Range("N2:N6").Select
Range("N7").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
Range("O2").Select
ActiveCell.FormulaR1C1 = "=(RC[-1]*100)/R7C14"
Range("O2").Select
Selection.AutoFill Destination:=Range("O2:O6"), Type:=xlFillDefault
Range("O2:O6").Select
Range("C4").Select
Selection.CurrentRegion.Select
Range("A1:M6").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source: Range ("A1:M6")
ActiveSheet.Shapes("Grafik 1").IncrementLeft -237
ActiveSheet.Shapes("Grafik 1").IncrementTop -53.25
ActiveSheet.Shapes("Grafik 1").ScaleWidth 1.561458224, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("Grafik 1").ScaleWidth 1.5530354657, msoFalse, _
msoScaleFromTopLeft
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 42
ActiveChart.ClearToMatchStyle
Range("N1:O1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("N2:O2").Select
Selection.Style = "İyi"
Range("N3:O3").Select
Selection.Style = "Nötr"
Range("N4:O4").Select
Selection.Style = "Kötü"
End Sub

Yukarıda sarı renkli kodda hata alıyorum. makro çalıştırdığımda yeni bir sayfa açılarak liste oluşuyor. listenin altında da bu listeye ait grafik oluşmasını istiyorum. makro ile oluşturmaya çalıştım. fakat yukarıdaki yerde uyarı alıyorum. yardımlarınızı bekliyorum saygılar.

 

[Husgvarna]

Merhaba.
O bölümü şöyle deneyin

  ActiveChart.SetSourceData Source:[COLOR="Red"]=[/COLOR]Range("a1:m6")

 

[mstcvs]

Merhaba.
O bölümü şöyle deneyin

  ActiveChart.SetSourceData Source:[COLOR="Red"]=[/COLOR]Range("a1:m6")

Sayın Husgvarna çok teşekkür ederim. Çalıştı