bloco if sem end if no vba Fechado

Question

Private Sub bt_gravar_Click()
    
     desprotege
   
     ActiveCell = txt_código.Value
     ActiveCell.Offset(0, 1) = txt_solicitante.Value
     ActiveCell.Offset(0, 2) = txt_setor.Text
     ActiveCell.Offset(0, 3) = ListBox1.Value
     ActiveCell.Offset(0, 4) = ListBox1.Value
     ActiveCell.Offset(0, 5) = ListBox1.Value
     ActiveCell.Offset(0, 6) = ListBox1.Value
     ActiveCell.Offset(0, 7) = True
     If OptionButton1.Value = "APROVADO" Then

Else
If OptionButton2.Value = "AGUARDANDO" Then

Else
If OptionButton3.Value = "NEGADO" Then

End If

     If ActiveCell.FormulaR1C1 = "" Then
Range(0, 8).Select
OptionButton4.Value = ""
    ActiveCell.FormulaR1C1 = "NORMAL"
OptionButton5.Value = True

    If ActiveCell.FormulaR1C2 = "URGENTE" Then
        With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.Font.Bold = True
End If

     
     ActiveCell.Offset(0, 9) = txt_datainclusão.Value
     protege
     ActiveCell.Offset(1, 0).Select
     Unload Me
  
End Sub

aaafelix · Answer

"Toda vez que o "if" é resolvido dentro de uma linha, não precisa de end if. Já se ele for resolvido em mais de uma linha, aí sempre precisará. Independente do que faz o bloco de codigo dentro do If."
aaafelix

Bloco if sem end if no vba

1 Respostas

Conversas semelhantes

Assine nossa newsletter!