none
Erro de Compilação NEXT sem FOR RRS feed

  • Pergunta

  • Sou um curioso em VBA e tenho desenvolvido algumas ferramentas para uso interno.

    Na primeira vez que tentei utilizar o loop FOR EACH, surgiu a seguinte mensagem de Erro: "Erro de Compilação: NEXT sem FOR".

    Alguém poderia me ajudar pfv

    Private Sub Ajuste_txt()

    Range("C2").Select
        
        i = ActiveCell.FormulaR1C1 = "=Mid(RC[1], 1, 1)"
        
        For Each i In ActiveSheet.Range("C:C").Cells
        If ActiveCell.FormulaR1C1 = "=Mid(RC[1], 1, 1)" = "|" Then
        ActiveCell.FormulaR1C1 = "=MID(RC[1],2,4)"
        ActiveCell.Offset(rowOffset:=0, columnOffset:=-1).Activate
        ActiveCell.FormulaR1C1 = "=COUNTIF(R2C3:RC[1],RC[1])"
        ActiveCell.Offset(rowOffset:=1, columnOffset:=1).Activate
        Next i
        End If
             
     
    End Sub

    quarta-feira, 25 de abril de 2018 14:10

Todas as Respostas

  • Altere seu código colocando o "End If" antes de "Next i"


    Click em propor como resposta se foi util a voce. ricardodm@outlook.com.br

    quarta-feira, 25 de abril de 2018 15:19