Eliminar datos negativos y positivos

En un rango en excel tengo los siguientes datos

25

30

-25

67

67

Como se puede hacer para eliminar los valores 25 positivos y negativos duplicados. Los 67 no se deben eliminar. Este es un ejemplo solo de 5 valores esta operación es para eliminar varios.

1 Respuesta

Respuesta
1

Dependiendo de la cantidad de valores que tenga tu lista esta macro se demorará, mas, o menos tiempo, para mi ejemplo tu lista esta en la columna A, si esta en otra columna debes modificar la macro.

Sub elimina()
Dim Comprobar, Contador
Comprobar = True: Contador = 0 ' Inicializa variables.
Do ' Bucle externo.
Do While Contador < 65000 ' Bucle interno.
Contador = Contador + 1 ' Incrementa el contador.
If Range("A" & Contador).Value <> "" Then ' Si la condición es verdadera.
Dim ComprobarII, ContadorII
ComprobarII = True: ContadorII = Contador ' Inicializa variables.
Do ' Bucle externo.
Do While Contador < 65000 ' Bucle interno.
ContadorII = ContadorII + 1 ' Incrementa el contador.
If Range("A" & ContadorII).Value <> "" Then ' Si la condición es verdadera.
If Range("A" & ContadorII).Value = -Range("A" & Contador).Value Then
Rows(Contador).Select
Selection.Delete Shift:=xlUp
Rows(ContadorII - 1).Select
Selection.Delete Shift:=xlUp
ComprobarII = False ' Establece el valor a False.
End If
Else
ComprobarII = False ' Establece el valor a False.
Exit Do ' Sale del bucle interno.
End If
Loop
Loop Until ComprobarII = False ' Sale inmediatamente del bucle externo.

Hice lo que usted me indica en el siguiente libro en la columna A pero no hace la nada la macro.

http://www.4shared.com/file/WH2cC1jc/prueba1.html

gracias

Envía el archivo a [email protected]

Muchas Gracias Experto,

Aquí la solución

Sub elimina()
Dim Comprobar, Contador
Comprobar = True: Contador = 0 ' Inicializa variables.
Do ' Bucle externo.
Do While Contador < 65000 ' Bucle interno.
Contador = Contador + 1 ' Incrementa el contador.
If Range("A" & Contador).Value <> "" Then ' Si la condición es verdadera.
Dim ComprobarII, ContadorII
ComprobarII = True: ContadorII = Contador ' Inicializa variables.
Do ' Bucle externo.
Do While ContadorII < 65000 ' Bucle interno.
ContadorII = ContadorII + 1 ' Incrementa el contador.
If Range("A" & ContadorII).Value <> "" Then ' Si la condición es verdadera.
If Range("A" & ContadorII).Value = -Range("A" & Contador).Value Then
Rows(Contador).Select
Selection.Delete Shift:=xlUp
Rows(ContadorII - 1).Select
Selection.Delete Shift:=xlUp
ComprobarII = False ' Establece el valor a False.
Contador = Contador - 1
End If
Else
ComprobarII = False ' Establece el valor a False.
Exit Do ' Sale del bucle interno.
End If
Loop
Loop Until ComprobarII = False ' Sale inmediatamente del bucle externo.
Else
Comprobar = False ' Establece el valor a False.
Exit Do ' Sale del bucle interno.
End If
Loop
Loop Until Comprobar = False ' Sale inmediatamente del bucle externo.
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro comparar valores columnas y copiar y pegar

Necesito realizar un macro que me compare dos columnas y si estas coinciden que me copie y pegue los valores relacionados en una a la otra, vale aclarar que las dos columnas se encuentran en hojas distintas, el proceso sería algo así: Tengo dos hojas...
1 respuesta

Como copiar celdas especificas de un archivo a otro con macro

Tengo el siguiente problema tengo dos archivos uno con información y el otro vació lo que intento hacer es copiar de un archivo al otro pero mi complicación es que el encabezado o el orden varían el uno del otro pongo el siguiente ejemplo en el...
2 respuestas

Macro buscar coincidentes en excel en otra hoja, y si encuentra copiar y pegar en otra hoja.

Tengo la hoja "Datos" con la siguiente información: Referencia 1 2 3 4 5 6 7 8 Quiero buscar todos los valores coincidentes en la hoja "Base" columna "B", en dicha hoja hay valores en las columnas a la derecha, de las cuales quiero que copie la...
2 respuestas

Control de errores en VBA

Estoy liado con una macro en la que intento controlar un error. Te comento, utilizo la función Do para que mi macro se repita hasta que encuentre una celda vacía, ahí se detiene, en medio de la función do esta mi código que es crear una hoja por cada...
2 respuestas

[Macro] Unir texto celdas diferentes columnas

Tenia una preguntilla un tanto facililla para realizar una macro, dado dos columnas "Direccion1" y "Direccio2" me gustaría copiar el contenido de "Direccio2" y anexionarlo en el contenido "Direccio1"sin borrar lo que hay dentro de "Direccio1" es...
1 respuesta

Buscar un valor en la columna A y copiar y pegar en otra hoja.

Tengo un libro en el cual tengo una hoja llamada "Explosión de Avíos" y otra hoja a la cual tengo que enviar los datos correspondientes al numero buscado y encontrado. Es decir; En la Columna "A" tengo un numero que identifica a los datos contiguos...
1 respuesta

Control de stock

Que tal estimado experto en excel fíjate que estoy haciendo un control de inventario en excel pero tengo esta duda quiero que en la celda que me da los datos de exixtencias o stock, quiero que automáticamente me lo pase a otra celda de otra hoja y el...
1 respuesta

Repartir cantidades en celdas

Quiero saber si me puedes ayudar a lo Siguiente: necesito una macro en Excel que me ayude a repartir una cantidad, que está en una celda, en un número determinado de columnas, por ejemplo repartir 67 en 23 columnas pero sin decimales, números...
1 respuesta

Macro para filtrar datos entre dos fechas

Mi problemita es el siguiente: Tengo una base de datos donde la columna "A" contiene los datos de FECHA la columna "B" los datos de nombres y apellidos y la columna "C" contiene medidas por litros lo que quiero realizar es una macro que me deje...
2 respuestas