Filtro( Que Formula Uso??))

hasgg escribió el 05/01/2013 11:27 :

¡ Hola !
Tengo una serie de numeros aleatorios ordenados de menor a mayor, lo que quiero
es que de esos nùmeros eliminar los que no sean multiplos de 20 que solo
aparezca el 380,400,420,440,460,480,500


376.14
377.4
380
382.63
387.87
390
399.63
400
410
420
430
440
450
460
470
474.48
480
484.87
489.48
490
494.1
500
501.58
506.64
510
511.7
520
526.64
530

Hola Hasgg,

Coloca ésta función en un modulo de VBA y la ejecutas.

Estoy suponiendo que tu información comienza en la celda A2.

Sub Multiplo_20()

Range("A2").Activate
Do While Not IsEmpty(ActiveCell.Value)
numero = ActiveCell.Value / 20
If numero <> Int(numero) Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Activate
End If
ActiveCell.Offset(1, 0).Activate
Loop
End Sub