How to fix "compile error: next without for" error in VBA?

Question

So I am very new to coding to VBA or to programming in general. I am receiving a "Compile error: Next without for". I believe I am giving 3 nexts for 3 fors but still I have no clue. Below is the code I am working on....

Sub width2() 'to assign series width automatically

For Series = 1 To 24  'chart series, 144 combinations
        For i = 0 To 1
                For j = 0 To 11
                    ActiveSheet.ChartObjects("Chart 4").Activate
                    ActiveChart.FullSeriesCollection(Series).Select
                    With Selection.Format.Line
                        .Visible = msoTrue
                        .Weight = Sheet5.Range("Q9").Offset((9 * i) + 6, (3 * j)).Value
                Next j
        Next i
Next Series
End Sub

Not sure where the mistake is. Any help much appreciated Thank you.

you are missing End With to your With Selection.Format.Line — Shai Rado
– Shai Rado, Commented Jan 2, 2017 at 10:02
May be problem in With method. You do not close With. You have to use End With before Next j. — Harun24hr
– Harun24hr, Commented Jan 2, 2017 at 10:02
After adding end with before next j , I am now getting : "The item with the specified name was not found" for line: ActiveSheet.ChartObjects("Chart 4").Activate — Piyush
– Piyush, Commented Jan 2, 2017 at 10:27
Make shure there is a chart named Chart 4 in your active sheet... — CMArg
– CMArg, Commented Jan 2, 2017 at 10:44
@PiyushVerma please update your code with the End With , so we will remove that error from you post. Secod, you need to take your ActiveSheet.ChartObjects("Chart 4").Activate and the following line from inside the nested For loops to be the first line in your Sub. Just keep the .Weight = Sheet5.Range("Q9").Offset((9 * i) + 6, (3 * j)).Value inside — Shai Rado
– Shai Rado, Commented Jan 2, 2017 at 12:14

Shai Rado · Accepted Answer · 2017-01-02 14:34:51Z

1

Since you didn't share your Worksheet Data structure, this is not the full answer.

The code runs without the need to use Activate, ActiveChart and Select. Instead it references the "Chart 6" ChartObject and then modifies the Line.Visible and Line.Weight properites of the SeriesCollection using the following With statement: With MyCht.Chart.SeriesCollection(12 * i + j + 1).

Note: if @Piyush Verma decides to share his data structue, also the math part of Sheet5.Range("Q9").Offset((9 * i) + 6, (3 * j)).Value can be handled.

Code

Option Explicit

Sub ChartSer_LineWidth()

Dim i As Long, j As Long
Dim MyCht As ChartObject

' set the chart object of Chart 6 to a variable
Set MyCht = ActiveSheet.ChartObjects("Chart 6")

For i = 0 To 1
    For j = 0 To 11

        With MyCht.Chart.SeriesCollection(12 * i + j + 1)
            .Format.Line.Visible = msoTrue
            .Format.Line.Weight = Sheet5.Range("Q9").Offset((9 * i), (3 * j)).Value
        End With

    Next j
Next i

End Sub

answered Jan 2, 2017 at 14:34

Shai Rado

33.7k7 gold badges32 silver badges55 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Shai Rado Over a year ago

you're welcome, please mark as answer (click the little V next to my answer)

Abe Gold · Accepted Answer · 2017-01-02 14:38:17Z

1

For Series = 1 To 24  'chart series, 144 combinations
    For i = 0 To 1
            For j = 0 To 11
                ActiveSheet.ChartObjects("Chart 4").Activate
                ActiveChart.FullSeriesCollection(Series).Select
                With Selection.Format.Line
                    .Visible = msoTrue
                    .Weight = Sheet5.Range("Q9").Offset((9 * i) + 6, (3 * j)).Value
                End With
            Next j
    Next i
 Next Series

answered Jan 2, 2017 at 14:38

Abe Gold

2,38718 silver badges31 bronze badges

Comments

Jayant Kumar jain · Accepted Answer · 2017-01-03 09:03:59Z

0

You have to close every "With" with "EndWith". That is ommitted in your code.

Also close every "if" with "EndIf" and "for" with "Next", to avoid "Compile error: Next without for"

answered Jan 3, 2017 at 9:03

Jayant Kumar jain

276 bronze badges

Collectives™ on Stack Overflow

How to fix "compile error: next without for" error in VBA?

3 Answers 3

1 Comment

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

1 Comment

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related