Duvida quanto ao VBA

[Cleisonjr]

Prezados, necessito com urgência, criar um programa no VBA ( Não tenho afinidade com VBA o meu conhecimento é muito limitado) que vai monitorar os valores de temperatura e umidade.

Tipo a temperatura deverá ser no minimo 20°C e no max 30°C para ser ideal, e a umidade entre 75 a 85, caso a temperatura esteja acima de 30 graus e a umidade esteja 85 e 90 mostra mensagem de atenção, caso a temperatura esteja abaixo de 30 e a umidade a umidade abaixo de 30 mostra mensagem de alarme. da forma que fiz não funcionou.

Sub Monitor_Temp_Umidade()
 Dim Temp_Ideal, Umid_Ideal As Boolean
 
 Temp_Ideal = Range("C4").Value
 Umid_Ideal = Range("D4").Value
     
   If (Temp_Ideal >= 20) Or (Temp_Ideal <= 30) And (Umid_Ideal >= 75) Or (Umid_Ideal <= 85) Then
   'Ideal'
   Range("E4").Value = "Ideal"
    
   Else
   If (Temp_Ideal > 30) And (Umid_Ideal > 85) Or (Umid_Ideal <= 90) Then
   'Atenção'
   Range("E4").Value = "Atencão"
   Else
        If (Temp_Ideal) > 30 And (Umid_Ideal < 30) Then
    'Alarme'
     Range("E4").Value = "Alarme"
     MsgBox "Atenção" + "!", vbCritical, "EMERGENCIA"

   End If
   End If
   End If
    
     

End Sub

desde já agradeço a compreensão e a colaboração.

[rlm]

Veja se está em linha com o que espera/deseja

Sub Monitor_Temp_Umidade()
Dim Temp_Ideal As Integer
Dim Umid_Ideal As Integer

Temp_Ideal = Range("C4").Value
Umid_Ideal = Range("D4").Value

    If (Temp_Ideal >= 20) And (Temp_Ideal <= 30) Or (Umid_Ideal >= 75) And (Umid_Ideal <= 85) Then
        'Ideal'
        Range("E4").Value = "Ideal"
    ElseIf (Temp_Ideal > 30) And ((Umid_Ideal > 85) And (Umid_Ideal <= 90)) Then
        'Atenção'
        Range("E4").Value = "Atencão"
    ElseIf (Temp_Ideal) > 30 And (Umid_Ideal < 30) Then
        'Alarme'
        Range("E4").Value = "Alarme"
        MsgBox "Atenção" + "!", vbCritical, "EMERGENCIA"
    End If
End Sub