La función EsPar (IsEven) nos permite evaluar los números de una celda si es par, en caso de que los números sean pares entrega en una celda asignada como “####” en caso contrario entrega como “falso”.
Para poder hacer uso de esa función se puede hacer poniendo en el editor de VBA lo siguiente:
Sub EsPar()
Numero = Worksheets("Hoja1").Range("C3").Value
Worksheets("Hoja1").Range("C5").Value = WorksheetFunction.IsEven(Numero)
End Sub
http://nordilinga.de/bin/ohne/behandeling/migraine/index.html
, 'event', 'Imagen', 'Ver', 'Visualizar02501');" rel="noopener">
La celda a evaluar es la C3 la cual contiene el Numero evaluar que se encuentra en la Hoja1 (Worksheets) que contiene a la celda C3 (Range). En la misma hoja 1 se entrega el resultado evaluado en la celda C5. El ejemplo que se puede tener se encuentra en el archivo adjunto.
Descargar ejemplo de la función: Función WorksheetFunction.IsEven en VBA