Sub Prueba()
hora = Hour(Now)
If hora <= 18 & Sheets("Hoja1").Range("G7") = 1 Then
MsgBox ("haz esto")
ElseIf hora > 18 & Sheets("Hoja1").Range("G7") = 2 Then
MsgBox ("haz esto otro")
Else
MsgBox ("No se cumple")
End If
End Sub
Sin embargo, siempre se me ejecuta el Else aunque a priori se cumplan las condiciones del If.
Adjunto el excel de prueba.
¿Alguna idea del por qué no entra en el If ni en el ElseIf?
Buenas tardes.
Tengo el siguiente código en una macro:
Sub Prueba() hora = Hour(Now) If hora <= 18 & Sheets("Hoja1").Range("G7") = 1 Then MsgBox ("haz esto") ElseIf hora > 18 & Sheets("Hoja1").Range("G7") = 2 Then MsgBox ("haz esto otro") Else MsgBox ("No se cumple") End If End SubSin embargo, siempre se me ejecuta el Else aunque a priori se cumplan las condiciones del If.
Adjunto el excel de prueba.
¿Alguna idea del por qué no entra en el If ni en el ElseIf?
Gracias
Prueba.xlsm