Anónimo
¿Cómo crear una MsgBox condicional en Macros Excel?
Quisiera saber como crear un código ya que quiero que las fechas que tengo en la Hoja4 columna B de mi libro de Excel cada vez que coincidan con la fecha actual aparezca un MsgBox.
1 Respuesta
Este ejemplo actúa sobre la celda G5, si cambias la fecha y es igual al día de hoy aparece el MsgBox;
Lo debes añadir en el evento "Change" de la hoja deseada;
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$5" Then
If Target.Cells.Item(1, 1).Value = Date Then
MsgBox ("Fechas Iguales")
End If
End If
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$5" Then
If Target.Cells.Item(1, 1).Value = Date Then
MsgBox ("Fechas Iguales")
End If
End If
End Sub
Si quieres que valide toda la columna B, se debe crear un bucle para revisarla.