MACRO para avisar con msgbox fechas de entrega
hola tengo un rango E186:E500 el cual esta con formato de fecha y logica pongo fechas...
entonces en la celda V3, tengo fechas, entonces lo que necesito es que si en mi rango antes mencionado tiene fechas igual a la celda V3 entonces que me salga msgbox indicando cuantas celdas de mi rango son iguales a la de V3
ejemplo:
en este son 4 celdas que tienen la misma fecha que V3,
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub VerificarFecha()
'Por.Dante Amor
For Each c In Range("E186:E500")
If IsDate(c.Value) Then
If c.Value = [V3] Then
cont = cont + 1
End If
End If
Next
MsgBox "Existen : " & cont & " celdas iguales a la V3", vbInformation
End SubSi quieres que sea en automático, puedes hacerlo cuando activas la hoja:
Private Sub Worksheet_Activate() VerificarFecha End Sub
O cuando modifiques alguna celda del rango:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E186:E500")) Is Nothing Then
VerificarFecha
End If
End SubSaludos.Dante Amor
