Jump to content
psycho99killer

encontrar la celda que contiene valor negativo en rango

Recommended Posts

buenas tardes

espero no molestar con mi duda y consulta que tengo .

estuve buscando y modificando a mis necesidades, pero me estanque en un problema.

tengo una duda como puedo encontrar la celda que contiene un valor negativo .

En el rango puede haber muchos valores negativos y mediante un msgbox o form que me diga en que celda se encuentra los valores negativos que se encontraron.

no se si se pueda o de repente hay otra forma .

deje ejemplo en el archivo.

son muy amables en ayudar muchas gracias.

 

HALLAR CELDAS CON VALOR NEGATIVO.xlsm

Share this post


Link to post
Share on other sites

Hola Amigo buen día,

Prueba con esta macro, es posible que sea lo que buscas, aunque va algo lento yo creo que es por lo mismo porque busca y te indica.

Me cuentas!.

Sub prueba2()
Application.ScreenUpdating = False
x = Range("g1000").End(xlUp).Row
MsgBox x
contar = 0
fila = 20
For i = 6 To x
If Cells(i, 7) < 0 Then
Cells(fila, 9) = Cells(i, 7).Address
MsgBox "En esta ubicación " & Cells(i, 7).Address & " hay un valor negativo"
fila = fila + 1
contar = contar + 1
End If
Next i
Cells(10, 10) = contar
Application.ScreenUpdating = True

End Sub

 

 

Salu2

 

Share this post


Link to post
Share on other sites

Aqui complementando el código:

una mezcla con el código de @waltermendez99

''################
Sheets("hoja1").Select

ufila = Range("G" & Rows.Count).End(xlUp).Row

col = Range("G2").Column
k = 11
For i = 2 To ufila
    If Cells(i, col) < 0 Then
        Sheets("hoja1").Range("k" & k) = Sheets("hoja1").Range("g" & i)
        k = k + 1
    End If
Next
''################
x = Range("g1000").End(xlUp).Row
contar = 0
fila = 11
For i = 6 To x
If Cells(i, 7) < 0 Then
Cells(fila, 9) = Cells(i, 7).Address

fila = fila + 1
contar = contar + 1
End If
Next i
Cells(10, 10) = contar
''################

Saludos

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy