Ir ao conteúdo
  • Cadastre-se
Visitante

Visual Basic Erro "Sub ou Function não definada" no VBS

Recommended Posts

Visitante

Olá, comunidade. 

 

Sou iniciante em VBA e fiz o seguinte código dentro do Excel 2013, porém não consigo executá-lo, em razão do erro de compilação "'Sub' ou 'Function' não definada.

Não consegui encontrar o erro. Podem, por favor, ajudar-me? Aceito críticas e sugestões.

 

Eis o código:

 

Dim Nome As String
Dim Cont As Integer
Dim N As Integer
Sub Do_Loop_Legal()

N = 12
Cont = 3
Do While Cont < N

Nome = Plan1.Cells(Cont, 2).Value
If (Nome = "I") Then
    Sheet("Plan6").Cells(Cont + 1, 3) = Plan1.Cells(Cont, 2).Value
End If

Nome = Plan1.Cells(Cont, 2).Value
If (Nome = "F") Then
    Sheet("Plan6").Cells(Cont + 1, 4) = Plan1.Cells(Cont, 2).Value

Cont = Cont + 1

Loop

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites
15 horas atrás, Gustavo Schützen disse:

Olá, comunidade. 

 

Sou iniciante em VBA e fiz o seguinte código dentro do Excel 2013, porém não consigo executá-lo, em razão do erro de compilação "'Sub' ou 'Function' não definada.

Não consegui encontrar o erro. Podem, por favor, ajudar-me? Aceito críticas e sugestões.

 

Eis o código:

 

Dim Nome As String
Dim Cont As Integer
Dim N As Integer
Sub Do_Loop_Legal()

N = 12
Cont = 3
Do While Cont < N

Nome = Plan1.Cells(Cont, 2).Value
If (Nome = "I") Then
    Sheet("Plan6").Cells(Cont + 1, 3) = Plan1.Cells(Cont, 2).Value
End If

Nome = Plan1.Cells(Cont, 2).Value
If (Nome = "F") Then
    Sheet("Plan6").Cells(Cont + 1, 4) = Plan1.Cells(Cont, 2).Value

Cont = Cont + 1

Loop

End Sub

 

 

 

Seu código está cheio de falhas.

 

Você escreveu "Sheet" no lugar de "Sheets" no 1º e no 2º IF

E também esqueceu de fechar o 2º IF com o "End If"

Após corrigir esses erros seu código ira rodar.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  •    1
    Visitante

    De fato, estava cheios de erro. 
    Uma das primeiras macros que fim para o Excel.

     

    Com as alterações sugeridas e outras que fiz (while por for), ficou assim:

     

    Sub CalculoIntervaloTempo()

    Dim cont1 As Integer
    Dim n As Integer

    ActiveWorkbook.Worksheets("Face").Select
    Sheets("Face").Cells(3, 3).Select
    Selection.End(xlDown).Select
    n = ActiveCell.Row

    'n =
    cont1 = 4

    For i = 3 To n
        If ((Sheets("Face").Cells(i, 2)) = "I") Or ((Sheets("Face").Cells(i, 2)) = "i") Then
            Sheets("Clusters").Cells(cont1, 2) = Sheets("Face").Cells(i, 3)
            cont1 = cont1 + 1
        End If
    Next
       
    cont1 = 4

    For i = 3 To n
        If ((Sheets("Face").Cells(i, 2)) = "F") Or ((Sheets("Face").Cells(i, 2)) = "f") Then
            Sheets("Clusters").Cells(cont1, 3) = Sheets("Face").Cells(i, 3)
            cont1 = cont1 + 1
        End If
    Next

    End Sub

     

    E, por fim, deu certo.

    Agradeço-te.

     

     

    • Curtir 1

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
    1 hora atrás, Gustavo Schützen disse:

    De fato, estava cheios de erro. 
    Uma das primeiras macros que fim para o Excel.

     

    Com as alterações sugeridas e outras que fiz (while por for), ficou assim:

     

    Sub CalculoIntervaloTempo()

    Dim cont1 As Integer
    Dim n As Integer

    ActiveWorkbook.Worksheets("Face").Select
    Sheets("Face").Cells(3, 3).Select
    Selection.End(xlDown).Select
    n = ActiveCell.Row

    'n =
    cont1 = 4

    For i = 3 To n
        If ((Sheets("Face").Cells(i, 2)) = "I") Or ((Sheets("Face").Cells(i, 2)) = "i") Then
            Sheets("Clusters").Cells(cont1, 2) = Sheets("Face").Cells(i, 3)
            cont1 = cont1 + 1
        End If
    Next
       
    cont1 = 4

    For i = 3 To n
        If ((Sheets("Face").Cells(i, 2)) = "F") Or ((Sheets("Face").Cells(i, 2)) = "f") Then
            Sheets("Clusters").Cells(cont1, 3) = Sheets("Face").Cells(i, 3)
            cont1 = cont1 + 1
        End If
    Next

    End Sub

     

    E, por fim, deu certo.

    Agradeço-te.

     

     

     

     

    Precisando, estamos aqui.

    • Curtir 1

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Crie uma conta ou entre para comentar

    Você precisar ser um membro para fazer um comentário

    Criar uma conta

    Crie uma nova conta em nossa comunidade. É fácil!

    Crie uma nova conta

    Entrar

    Já tem uma conta? Faça o login.

    Entrar agora





    Sobre o Clube do Hardware

    No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

    Direitos autorais

    Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

    ×