gente, eu notei que não foi usada a declaração "end if" nessa demontração e não funcionou nem benzendo o computador. (abaixo vou colar o código que tive que escrever para funcionar para mim)
tem alguma manhã que deixei passar?
If Target(1).Address = "$AA$4" And Target(1).Value > 1000 Then
MsgBox "peso acima da média!", vbInformation, "atenção!"
End If
If Target(1).Address = "$AA$10" And Target(1).Value < 30 Then
MsgBox "nº de viagens abaixo da média!", vbInformation, "atenção!"
End Ifhoje, com a Alura e o Google Gemini
Uma "manha" que posso passar para tentar diminuir o seu código é de não escrever o primeiro End If, e o segundo If voce escrever no lugar dele ElseIf. Quando você tem um IF você tem que dar um critério avaliativo para ele, caso o critério não seja atendido, voce pode gerar um ELSE, que seria como se o valor fosse falso, mas caso seja falso e você queira dar um segundo critério usa-se o ElseIf. Seu código então ficaria assim:
If Target(1).Address = "$AA$4" And Target(1).Value > 1000 Then
MsgBox "peso acima da média!", vbInformation, "atenção!"
ElseIf Target(1).Address = "$AA$10" And Target(1).Value < 30 Then
MsgBox "nº de viagens abaixo da média!", vbInformation, "atenção!"
End If