chart placed in correct sheet

[terrybloome]

Hi

I am stuck at this point and need help please

I need some help combining the Userform (workbook - Charts Userform) and its code to place the Charts in position exactly like the charts in workbook - Charts-007

I have the Charts appearing in Charts-007 but I need them to appear in the Sheet called CHARTS and not in the Sheet DATA.I would like to use the Userform and code though to place these Charts

Regards

Terry

[Excel Fox]

Use this

Private Sub CommandButton1_Click()

    Dim lng As Long, lngIndex As Long
    Dim strChart As String
    
    With Worksheets("Charts")
        If .ChartObjects.Count Then
            .ChartObjects.Delete
        End If
        For lng = 0 To Me.ListBox1.ListCount - 1
            If Me.ListBox1.Selected(lng) Then
                lngIndex = lngIndex + 1
                With .Shapes.AddChart.Chart
                    .Parent.Width = 300
                    .Parent.Height = 150
                    .Parent.Top = lngIndex * (.Parent.Height + 10) - .Parent.Height
                    .Parent.Left = 10
                    .ChartType = xlColumnClustered
                    .SetSourceData Source:=Worksheets("DATA").Range("" & Worksheets("DATA").Range(Replace(Me.ListBox1.List(lng), "-", "")).Address & "," & Worksheets("DATA").Range(Replace(Me.ListBox1.List(lng), "-", "")).Offset(, Me.ComboBox1.ListIndex + 1).Address)
                    .ChartGroups(1).GapWidth = 50
                    strChart = .Parent.Name
                End With
                With .Shapes.AddChart.Chart
                    .Parent.Width = 300
                    .Parent.Height = 150
                    .Parent.Top = Worksheets("Charts").ChartObjects(strChart).Top
                    .Parent.Left = Worksheets("Charts").ChartObjects(strChart).Left + Worksheets("Charts").ChartObjects(strChart).Width + 10
                    .ChartType = xlColumnClustered
                    .SetSourceData Source:=Worksheets("DATA").Range("" & Worksheets("DATA").Range(Replace(Me.ListBox1.List(lng), "-", "")).Cells(4).Resize(4).Address & "," & Worksheets("DATA").Range(Replace(Me.ListBox1.List(lng), "-", "")).Cells(4).Resize(4).Offset(, Me.ComboBox1.ListIndex + 1).Address)
                    .ChartGroups(1).GapWidth = 50
                End With
                With .Shapes.AddChart.Chart
                    .Parent.Width = 300
                    .Parent.Height = 150
                    .Parent.Top = Worksheets("Charts").ChartObjects(strChart).Top
                    .Parent.Left = Worksheets("Charts").ChartObjects(strChart).Left + Worksheets("Charts").ChartObjects(strChart).Width * 2 + 20
                    .ChartType = xlColumnClustered
                    .SetSourceData Source:=Worksheets("DATA").Range("" & Worksheets("DATA").Range(Replace(Me.ListBox1.List(lng), "-", "")).Cells(10).Resize(3).Address & "," & Worksheets("DATA").Range(Replace(Me.ListBox1.List(lng), "-", "")).Cells(10).Resize(3).Offset(, Me.ComboBox1.ListIndex + 1).Address)
                    .ChartGroups(1).GapWidth = 50
                End With
            End If
        Next lng
    End With
    Application.Goto Worksheets("Charts").Range("A1")
    Unload Me
    
End Sub

[terrybloome]

Thank you

I am still learning with macro recorder but your code is superior to what I know so I was unable to change a couple of parts to the charts..I tried to change the chart order in the code but have error as I see the first chart code part is different to the next 2 charts code...I attached the workbook with the charts

What code changes do I need so as chart 2 is first followed by Chart 1 and the 3rd chart is correct in order ?

The first Chart I need to appear the same as the 2nd and 3rd chart.What changes are needed in the code so it shows just Process Time & Planned Stops & Unplanned Stops....?

Can the legends be removed from the charts?

NOTE: where can I find learning material like the code you use please?

Thanks