Generate multiple Charts

[GoldSugar]

Hello,

I'm trying to generate multiples charts using VBA (2 per lines)
I'm only able to generate always at the same place

Here is my code:

Sub generate_chart()

Dim chrt As ChartObject

Sheets("Main").Activate

For i = 2 To 5

Set chrt = Sheets("Main").ChartObjects.Add(Left:=10, Width:=270, Top:=10, Height:=210)
chrt.Chart.SetSourceData Source:=Sheets("Calc").Range("A1:T1,A" & i & ":T" & i)
chrt.Chart.ChartType = xlLine

Next i

End Sub

Thanks for your help

 

[GoldSugar]

Here is what I have

here is what i expect

 

[rakesh seebaruth]

Sub CreateCharts()

  Dim range As range
  Dim i As Integer

  'Define range to loop through
  Set range = ActiveSheet.range("A1:C10")
  For i = 1 To range.Rows.Count
      'If value in Column C is not empty
      If Not IsEmpty(range.Cells(i, 3).Value) Then
          'Create chart with Columns A and B
          ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
          ActiveChart.SetSourceData Source:=range.Offset(i - 1, 0).Resize(2, 3)
          'Offset chart position based on row number
          ActiveChart.Parent.Top = i * 200
          ActiveChart.Parent.Left = i * 200
      End If
  Next i

End Sub