Detectar cifras "redondas"

Hola sr matador!
Estoy necesitando crear una macro que detecte si el número contenido en una celda es "redondo" o no. Digamos, que me muestre o marque en una serie como:
10.000
11.000
10.820,71
23.879
15.000
150.000
A los números 10.821,71 y 23.879. Estaré agradecido (promise!)

1 Respuesta

Respuesta
1
Prueba esto a ver si hace lo que quieres
Sub entero()
Dim numero As Integer
Sheets(1).Range("A1").Select
Do While Not IsEmpty(ActiveCell)
numero = Right(ActiveCell, 1)
If numero = 0 Then
ActiveCell.Select
With Selection.Interior
.Color = 255
ActiveCell.Offset(1, 0).Select
End With

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas