Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Procurar valor negativo!

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Leo
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Out 05, 2016 5:25 pm

Procurar valor negativo!

Mensagem por Leo »

Olá,

Sou novo no fórum e iniciante em VBA, estou precisando de algo bastante simples, preciso criar um código que procure valores negativos em uma determinada coluna.

Quem puder ajudar agradeço! :)

Abraços.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Procurar valor negativo!

Mensagem por Mauro Coutinho »

Veja se é isto, só ajuste a Coluna a verificar :

Código: Selecionar todos

Sub Find_Negativos()
    Dim sRg As Range
    Dim sValor
    Dim sUltLin As Long
        
    sUltLin = Sheets("Plan1").Range("A" & Rows.Count).End(xlUp).Row
        
    Set sRg = Range("A2" & ":" & "A" & sUltLin)

    For Each x In sRg
        
        If x < 0 Then
            MsgBox "O Valor :- " & x & " é Negativo"
        End If
        
    Next x

End Sub


Leo
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qua Out 05, 2016 5:25 pm

Boa

Mensagem por Leo »

Valeu, funcionou!!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder