Erro de complicação, Bloco If sem End If

Text Box, Form's, rotinas, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Erro de complicação, Bloco If sem End If

Mensagempor Brunna » Seg Jul 01, 2019 3:11 pm

Boa tarde!

Alguém me ajudar encontrar o erro ou está faltando?

Código: Selecionar todos
Private Sub CommandButton1_SALVAR_Click()
Dim w As Worksheet
Dim vTurno As String
Dim vTempo As String
Dim vNota As String

Set w = Sheets("Plan1")

w.Select



'Testar Para Ver o Controle Foi Clicado

If UserForm2.OptTurno1.Value = False Then
    UserForm2.OptTurno2.Value = False
    UserForm2.OptTurno3.Value = False
    UserForm2.OptTurno4.Value = False
 
  MsgBox "Selecione uma opcção"
  Exit Sub
 
  End If
 
  If UserForm2.OptTempo1.Value = False Then
     UserForm2.OptTempo2.Value = False
     UserForm2.OptTempo3.Value = False
     UserForm2.OptTempo4.Value = False

MsgBox "Selecione Uma Opcção"

Exit Sub

End If

  If UserForm2.OptNota1.Value = False Then
     UserForm2.OptNota2.Value = False
     UserForm2.OptNota3.Value = False
     UserForm2.OptNota4.Value = False

MsgBox "Selecione Uma Opcção"

Exit Sub

End If

If UserForm2.optTurno.Value = True Then
VTurno1 = "1°Turno"
Else
  If UserForm2.optTurno.Value = True Then
  VTurno2 = "2°Turno"
Else
  If UserForm2.optTurno.Value = True Then
  VTurno1 = "3°Turno"
Else
  End If
 
  If UserForm2.optTempo.Value = True Then
  VTempo1 = "Até 3 Meses"
Else
  If UserForm2.optTurno.Value = True Then
  VTempo2 = "4 à 6 Meses"
Else
  If UserForm2.optTurno.Value = True Then
  VTempo3 = "7 à 11 Meses"
Else
  If UserForm2.optTurno.Value = True Then
  vTempo4 = "1 Até 2 Meses"
Else
  If UserForm2.optTurno.Value = True Then
  vTempo4 = "Acima de 2 Anos"
End If
 
  If UserForm2.optNota.Value = True Then
  VNota1 = "1"
  Else
  If UserForm2.optTurno.Value = True Then
  VNota2 = "2"
  Else
  If UserForm2.optTurno.Value = True Then
  VNota3 = "3"
  Else
  If UserForm2.optTurno.Value = True Then
  vNota4 = "4"
  Else
  If UserForm2.optTurno.Value = True Then
  vNota4 = "5"
End If
 
  'Gravar Nas Células As Resposta
 
w.Range("A1").Value = vTurno
w.Range("B1").Value = vTempo
w.Range("C1").Value = vNota

End Sub
Atenciosamente,
Bruna Esther
Brunna
Membro
Membro
 
Mensagens: 41
Registrado em: Qua Jan 10, 2018 7:38 am
Has thanked: 7 times
Have thanks: 0 time

{ SO_SELECT }

Re: Erro de complicação, Bloco If sem End If

Mensagempor wagner » Seg Jul 01, 2019 4:37 pm

Bruna,

Boa tarde!

Bom... sem saber nada do seu projeto fica muito difícil corrigir corretamente, pois, na verdade, não sei o que você pretendia ao programas os IF's. Segue abaixo, APENAS uma correção dos IF's de acordo com o que imaginei que possa ser. Agora, não ocorrerá mais o erro de Bloco If sem End If. Todavia, pode ter um erro de lógica de programação. O que quero dizer com isso? Pode ser que o código não execute exatamente aquilo que você pensou. Não atinja o objetivo esperado. Entendeu?
Código: Selecionar todos
Private Sub CommandButton1_SALVAR_Click()
    Dim w As Worksheet
    Dim vTurno As String
    Dim vTempo As String
    Dim vNota As String
   
    Set w = Sheets("Plan1")
   
    w.Select
   
   
   
    'Testar Para Ver o Controle Foi Clicado
   
    If UserForm2.OptTurno1.Value = False Then
        UserForm2.OptTurno2.Value = False
        UserForm2.OptTurno3.Value = False
        UserForm2.OptTurno4.Value = False
        MsgBox "Selecione uma opcção"
        Exit Sub
    End If
     
    If UserForm2.OptTempo1.Value = False Then
        UserForm2.OptTempo2.Value = False
        UserForm2.OptTempo3.Value = False
        UserForm2.OptTempo4.Value = False
        MsgBox "Selecione Uma Opcção"
        Exit Sub
    End If
   
    If UserForm2.OptNota1.Value = False Then
        UserForm2.OptNota2.Value = False
        UserForm2.OptNota3.Value = False
        UserForm2.OptNota4.Value = False
        MsgBox "Selecione Uma Opcção"
        Exit Sub
    End If
   
    If UserForm2.optTurno.Value = True Then
        VTurno1 = "1°Turno"
    Else
        If UserForm2.optTurno.Value = True Then
            VTurno2 = "2°Turno"
        End If
    End If
   
    If UserForm2.optTurno.Value = True Then
      VTurno1 = "3°Turno"
    End If
     
    If UserForm2.optTempo.Value = True Then
      VTempo1 = "Até 3 Meses"
    Else
        If UserForm2.optTurno.Value = True Then
            VTempo2 = "4 à 6 Meses"
        End If
    End If
   
   
    If UserForm2.optTurno.Value = True Then
      VTempo3 = "7 à 11 Meses"
    Else
        If UserForm2.optTurno.Value = True Then
            vTempo4 = "1 Até 2 Meses"
        End If
    End If
   
    If UserForm2.optTurno.Value = True Then
      vTempo4 = "Acima de 2 Anos"
    End If
     
    If UserForm2.optNota.Value = True Then
      VNota1 = "1"
    Else
        If UserForm2.optTurno.Value = True Then
            VNota2 = "2"
        End If
    End If
   
    If UserForm2.optTurno.Value = True Then
        VNota3 = "3"
    Else
        If UserForm2.optTurno.Value = True Then
            vNota4 = "4"
        End If
    End If
   
    If UserForm2.optTurno.Value = True Then
      vNota4 = "5"
    End If
     
      'Gravar Nas Células As Resposta
     
    w.Range("A1").Value = vTurno
    w.Range("B1").Value = vTempo
    w.Range("C1").Value = vNota

End Sub
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5502
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 100 times
Have thanks: 2331 times


Voltar para Formulários

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 0 visitantes