Achar num intervalo a palavra específica

2024 - VBA & Macros

Post Recente por vonzuben 7 anos atrás

3 Posts

2 Usuários

0 Reactions

891 Visualizações

RSS

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Como verifica na coluna N entre N10 até UltL se tem Vencido pelo VBA ?

OBS: Vou usar UltL pelo fato que vou criar uma macro de inserir linha

Obrigado !

status.zip

Postado : 05/05/2018 9:56 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sub Procurar()
    
    Application.EnableEvents = False
    
    Dim UltL As Long
    
    UltL = Range("N" & Rows.Count).End(xlUp).Row
    Dim LINHA As Long
    Dim achou As Boolean
    achou = False
    For LINHA = 10 To UltL
        If LCase(Range("N" & UltL).Value) = "vencido" Then
            achou = True
exit for
        End If
    Next LINHA
    
    If achou = True Then
        MsgBox ("Tem vencido")
        
    Else
        
        MsgBox ("Não tem vencido")
        
    End If
    
    Application.EnableEvents = True
    
    
End Sub

Postado : 05/05/2018 11:10 pm

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Funcionou !
Obrigado !

Postado : 06/05/2018 3:01 pm