Next without For in nested loops excel VBA [duplicate]

Question

I'm working on this code in which there are two nested loops and I get a compile error "Next without for" in the line indicated

Sub Isindenm()

      Dim wb As Workbook
      Dim ws As Worksheet
      Dim B As Integer
      Dim firstrow As Integer
      Dim lLastRow  As Long

      lLastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

      For firstrow = 14 To lLastRow

             For B = 7 To 16
                 If IsNumeric(Cells(firstrow, B)) = True Then
             Next B  ***<-------------------Compile error:"next without for"***         
                 Else
                 Cells(firstrow, 19) = Cells(firstrow, B)

                 End If

      Next firstrow


      End Sub

You can't interleave for next and if then like that. Change your if to If Not IsNumeric(Cells(firstRow, "B")) Then — Tim Williams
– Tim Williams, Commented Nov 17, 2013 at 23:43

WGS · Accepted Answer · 2013-11-18 01:43:58Z

1

Change the For loop to:

  For firstrow = 14 To lLastRow

         For B = 7 To 16
             If IsNumeric(Cells(firstrow, B)) = True Then       
                 'Do something here if cell is numeric.
             Else
                 'Do something here if cell is not numeric.
             End If
         Next B

  Next firstrow

Since If started inside the For loop, it should end before the call to the Next firstRow.

answered Nov 18, 2013 at 1:43

WGS

14.2k5 gold badges50 silver badges51 bronze badges

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

Collectives™ on Stack Overflow

Next without For in nested loops excel VBA [duplicate]

1 Answer 1

Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Linked

Related