Olá, boa tarde!
Não consegui acertar a sub abaixo no Excel.
Private Sub Worksheet_Change(ByVal alvo As Range)
If alvo.Cells.Count > 1 Or IsEmpty(alvo) Then Exit Sub
If alvo.Column = 2 And alvo.Row >= 16 And alvo.Row <= 25 And alvo.Value = "ad valorem" Then
Call cel
ElseIf alvo.Column = 2 And alvo.Row >= 16 And alvo.Row <= 25 And alvo.Value = "estadias" Then
call cel
ElseIf alvo.Column = 2 And alvo.Row >= 16 And alvo.Row <= 25 And alvo.Value = "motoboy" Then
Call cel
Else: Call insere
End If
End Sub
A macro só roda perfeitamente quando as clélulas são alteradas para o valor "ad valorem".
Quando altero os valores para os outros valores, ela lê como Else: e ao invés de chamar a sub cel() ela chama a sub insere().
Alguém teria uma opção de montagem desse código?
Obrigado!
