end if without block if

[pandale]

Do While lrow <= last
Debug.Print (CountNumber(1, 1))
Debug.Print (Cells(lrow, 7) / 1000)
​I'M HAVING A BRAIN MELTDOWN, WHY IS THIS IF THEN ELSE NOT WORKING
If lrow = 1 Then
CountNumber(count, 1) = lrow
CountNumber(count, 2) = Cells(count, 7) / 1000
count = 2
Else: For d = 1 To 100
If CountNumber(d, 2) = Cells(lrow, 7) / 1000 Then
CountNumber(d, 1) = CountNumber(d, 1) + 1
CountNumber(d, 2) = Cells(lrow, 7) / 1000
d = 100
End If
lrow = lrow + 1
End If
Next

 

[jim may]

Last Line Substitute Loop versus Next

 

[pandale]

thanks but i'm still getting the same error message, end if without block if

 

[Teeroy]

Welcome to the forum.

The final two lines of your code need reversing (the If and For-Next blocks overlap) and a Loop needs to be added to the end.

If you write in indented blocks in the VBE it's relatively easy to spot overlapping block errors and you can copy the indented blocks here using the code Tags (the # button) as per below.

Do While lrow <= last
     Debug.Print (CountNumber(1, 1))
     Debug.Print (Cells(lrow, 7) / 1000)
     'I 'M HAVING A BRAIN MELTDOWN, WHY IS THIS IF THEN ELSE NOT WORKING
     If lrow = 1 Then
        CountNumber(Count, 1) = lrow
        CountNumber(Count, 2) = Cells(Count, 7) / 1000
        Count = 2
     Else
        For d = 1 To 100
            If CountNumber(d, 2) = Cells(lrow, 7) / 1000 Then
                CountNumber(d, 1) = CountNumber(d, 1) + 1
                CountNumber(d, 2) = Cells(lrow, 7) / 1000
                d = 100
            End If
            lrow = lrow + 1
        Next d 'moved up one line and d added to define what is incrementing
     End If
Loop 'Added

 

[Rick Rothstein]

Last Line Substitute Loop versus Next

@Jim,

Actually, that is not the problem. Yes, the code is missing the Loop statement to close off the Do loop, but there is a lot more wrong with the code.



@pandale,

Consider this line...

Else: For d = 1 To 100

You should avoid linking what should be two separate lines together using the colon operator to link them. When you do that, and using indenting to make the code's logic clearer, you get this...

Do While lrow <= last
  Debug.Print (CountNumber(1, 1))
  Debug.Print (Cells(lrow, 7) / 1000)
  If lrow = 1 Then
    CountNumber(Count, 1) = lrow
    CountNumber(Count, 2) = Cells(Count, 7) / 1000
    Count = 2
  Else
    For d = 1 To 100
      If CountNumber(d, 2) = Cells(lrow, 7) / 1000 Then
        CountNumber(d, 1) = CountNumber(d, 1) + 1
        CountNumber(d, 2) = Cells(lrow, 7) / 1000
        d = 100
      End If
      lrow = lrow + 1
      End If
    Next

There are two End..If statement within the For..Next loop, but only on If statement. On the other hand, you have one If statement at the beginning of your code with no matching End..If statement. I think you may want to reverse the last two statements... and add the Loop statement to closet Do loop off. My guess is your code should look like this...

Do While lrow <= last
  Debug.Print (CountNumber(1, 1))
  Debug.Print (Cells(lrow, 7) / 1000)
  If lrow = 1 Then
    CountNumber(Count, 1) = lrow
    CountNumber(Count, 2) = Cells(Count, 7) / 1000
    Count = 2
  Else
    For d = 1 To 100
      If CountNumber(d, 2) = Cells(lrow, 7) / 1000 Then
        CountNumber(d, 1) = CountNumber(d, 1) + 1
        CountNumber(d, 2) = Cells(lrow, 7) / 1000
        d = 100
      End If
      lrow = lrow + 1
    Next
  End If
End Sub

 

[pandale]

thanks rick that fixed it, moving the next. it's been a long day!!