Si es fecha

Buenos días,
Tengo unos cuadros de excel donde se van entrando datos, tanto puede ser texto, letras o fechas, cuando entran fechas puse formato personalizado "dd-mmm", el problema ahora es que hice una macro con un select case, y me falta el case de fecha, o sea quiero que si en la celda activa (activecell.value) hayan entrado fecha con formato "dd-mmm" que haya lo que necesito pero no me acaba de salir esto. ¿Me puden ayudar? Gracias

2 Respuestas

Respuesta
1
Pon parte del código dónde quieres hacer esto.
[email protected]
El código seria más o menos:
Select Case ActiveCell.Value
Case ActiveCell = "X" Or ActiveCell = "x"
                  MsgBox ("hi ha una X")
Case ActiveCell = "C" Or ActiveCell = "c"
                 MsgBox ("hi ha una C")
Case ActiveCell.Value = "##/##/####" ' si el formato és dd/mm/aaa, no se como poner esto
                 MsgBox ("hola")
End Select
Prueba con esto:
Case ActiveCell.Value = Format(Activecell.Value, "dd/mm/aaaa"
         MsgBox("Hola")
[email protected]
Prueba quitando el Value
Aquí tienes otra posibilidad:
If ActiveCell = "X" Or ActiveCell = "x" Then
    MsgBox ("hi ha una x")
ElseIf ActiveCell = "C" Or ActiveCell = "c" Then
    MsgBox ("hi ha c")
ElseIf IsDate(ActiveCell) Then
    MsgBox ("hola")
End If
Respuesta
1
Envíame tu archivo al e-mail [email protected] para "ver" tu problema y darte la solución.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas