Saltar al contenido

eliminar pares o impares en excel

publicado

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 …. 

Featured Replies

publicado

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

 

publicado
  • Autor

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 

 

publicado
  • Autor

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

publicado
  • Autor
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

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.