buenas tardes expertos  me   preguntaba si existe  un  formulario que me de las  siguientes opciones 

tengo  un rango numérico que  va desde  a1  hasta sx42  y me gustaría  lo  siguiente

1.darme la  opción  de eliminar los números pares

2.darme la  opción de eliminar los números impares 

3 darme la opción de darme los datos como estaban desde un inicio antes de eliminar los números pares e impares

muchas gracias …. 

Hola @jhon fredy

Te dejo una opción, ya activo el Userform, posicionas el mouse sobre la etiqueta "Pares" o "Nones"

Nos comentas.

Saludos

IsEven.xlsm

bien experto pero estoy buscando algo como esto 

ejecute la macro

 

eliminar pares.xlsm

Hola de nuevo @jhon fredy

Ahí  se hubiera comenzado.

Te envió una segunda propuesta la cual puedes adaptarla a tus necesidades.

IsEven1.1.xlsm

Editado el el 25 de julio5 años por Mauricio_ODN

Partiendo del archivo de Mauricio, otra forma:

Sub ParesImpares()
Application.ScreenUpdating = False
ActiveSheet.Cells.Copy Sheets("Pares").Cells
ActiveSheet.Cells.Copy Sheets("Impares").Cells
For Each Celda In Sheets("Pares").UsedRange
   If Celda Mod 2 = 1 Then Celda.Value = ""
Next
For Each Celda In Sheets("Impares").UsedRange
   If Celda Mod 2 = 0 Then Celda.Value = ""
Next
End Sub

 

Mauricio funciona muy bien pero   como podremos  pasar  los números  como   texto ya que al enviar   los datos  a la  hoja pares e impares los números que comienzan por cero no aparecen completos 

 

muchas gracias a ambos por su colaboración , pero experto Mauricio podemos añadir al código que por favor nos resalte los valores únicos que están en ese rango para distinguir lo siguiente 

números pares, números impares y números únicos le agradezco

@jhon fredy

Use como modelo el código del maestro @Antoni. Saludos.

 

IsEven1.2.xlsm

En 25/7/2020 at 16:11 , Mauricio_ODN dijo:

maestro Mauricio me la puedes dejar como se presenta la hoja original de Excel para terminar el tema gracias por su colaboracion

 

como el anterior trabajo ISELEVEN 1.1

 

IsEven1.2.xlsm