Bloco if sem end if no vba

Fechado
edan3
Posts
2
Data de inscrição
quarta 12 de março de 2014
Status
Membro
Última visita
terça 18 de março de 2014
- 18 mar 2014 às 23:41
aaafelix
Posts
1281
Data de inscrição
sábado 10 de novembro de 2012
Status
Contribuinte
Última visita
terça 26 de abril de 2022
- 19 mar 2014 às 15:22
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

1 resposta

aaafelix
Posts
1281
Data de inscrição
sábado 10 de novembro de 2012
Status
Contribuinte
Última visita
terça 26 de abril de 2022
1.716
19 mar 2014 às 15:22
"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
0

Assine nossa newsletter!

Assine nossa newsletter!