Informar si hay valores negativos en una lista

Buen dia para todos los Expertos:

Agradezco inmensamente a quien me pueda colaborar con la siguiente situacion:

Tengo un archivo en excel que contiene información en el rango "A1:C42000", lo que necesito es saber si en el rango C1:C42000 existe uno o varios valores negativos es decir menores a cero, actualmente lo hago con un formato condicional, pero esto me implica recorrer todo el rango de forma manual para efectuar dicha revisión, la idea es que si existen valores negativos me los muestre en un lista con información de la celda o celdas en la cual se encuentran dichos valores.

De antemano muchas gracias por compartir sus conocimientos.

1

1 respuesta

Respuesta
1

Para hacerlo sin utilizar varias fórmulas, podría ser con una macro.

En dónde quieres el resultado, por ejemplo, si en A5 tienes -9 y en B10 tienes -200, cómo quieres el resultado, ¿en otra hoja?

Así:

Hoja "resultado"

A B

1 A5 B10

O así:

Hoja "resultado"
A B
1 A5 -9

2 B10 -200

Hola Experto, muchas gracias por tu tiempo y tu repuesta, me parece que lo que necesito es la segunda opción, es decir:

Hoja "resultado"
A B
1 A5 -9
2 B10 -200

Nuevamente muchas gracias

Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: encontrar_negativos
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Sub encontrar_negativos()
'por.dam
j = 1
For i = 1 To Range("C" & Rows.Count).End(xlUp).Row
    If Cells(i, "C") < 0 Then
        Sheets("resultado").Cells(j, "A") = "C" & i
        Sheets("resultado").Cells(j, "B") = Cells(i, "C")
        j = j + 1
    End If
Next
End Sub

tienes que crear una hoja llamada "resultado"

Prueba y me comentas

Saludos. Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas