Compilation error : BLOCK IF WITHOUT END IF

[Vidush]

If ((char = ",") And (cou >= 10)) Then
                        add = add + char + vbNewLine
                        c = 1
                        cou = 0
                       
                        Else
                        add = add + char
                        c = 0
                        cou = cou + 1
                
                        End If

 

[RoryA]

Welcome to the forum.

Please post the rest of the code - there is nothing wrong with the section you have posted.

 

[Vidush]

Sub VK()

    Dim i As Integer, j As Integer, ecol As String, char As String, add As String, c As Integer, sor As String, l As Integer, cou As Integer

    For i = 2 To 5000
        ecol = Cells(i, 5)
        sor = ""
        l = Len(ecol)
        c = 0
        add = ""
        cou = 0
        For j = 1 To l
            char = Mid(ecol, j, 1)
            If ((c = 1) And (char = " ")) Then
            Next j
        Else
            If ((char = ",") And (cou >= 10)) Then
                add = add + char + vbNewLine
                c = 1
                cou = 0
            Next j
        Else
            add = add + char
            c = 0
            cou = cou + 1
        Next j
    End If
End If
sor = Cells(i, 2) + vbNewLine + Cells(i, 1) + vbNewLine + add
Cells(i, 6) = sor
Next i

End Sub

 

[BarryL]

Sub VK()

 Dim i As Integer, j As Integer, ecol As String, char As String, add As String, c As Integer, sor As String, l As Integer, cou As Integer

 For i = 2 To 5000
     ecol = Cells(i, 5)
         sor = ""
            l = Len(ecol)
                c = 0
                    add = ""
                     cou = 0
 For j = 1 To l
    char = Mid(ecol, j, 1)
        If ((c = 1) And (char = " ")) Then
            GoTo nextj
                Else
        If ((char = ",") And (cou >= 10)) Then
            add = add + char + vbNewLine
                c = 1
                    cou = 0
                        GoTo nextj
                Else
                  add = add + char
                    c = 0
                        cou = cou + 1
                            GoTo nextj
nextj:

  End If
 End If
 Next j
sor = Cells(i, 2) + vbNewLine + Cells(i, 1) + vbNewLine + add
Cells(i, 6) = sor
 Next i
 

 End Sub

try the above?

 

[RoryA]

You don't really need those Next j instructions, and you can't put them where you have. Try:

Sub VK()

    Dim i As Integer, j As Integer, ecol As String, char As String, add As String, c As Integer, sor As String, l As Integer, cou As Integer

    For i = 2 To 5000
        ecol = Cells(i, 5)
        sor = ""
        l = Len(ecol)
        c = 0
        add = ""
        cou = 0
        For j = 1 To l
            char = Mid(ecol, j, 1)
            If ((c = 1) And (char = " ")) Then
                ' do nothing
            Else
                If ((char = ",") And (cou >= 10)) Then
                    add = add + char + vbNewLine
                    c = 1
                    cou = 0
                End If
            Else
                add = add + char
                c = 0
                cou = cou + 1
            End If
        Next j

        sor = Cells(i, 2) + vbNewLine + Cells(i, 1) + vbNewLine + add
        Cells(i, 6) = sor
    Next i

End Sub

 

[Vidush]

It Did Work. Thanks A lot !!
But what was wrong with my code ? and what was the difference between "next j" and "GoTo nextj" ?