Desativar linhas da função

2024 - VBA & Macros

Post Recente por pfarias 7 anos atrás

5 Posts

4 Usuários

0 Reactions

1,488 Visualizações

RSS

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Quero que funcione apenas da linha 10 pra baixo, pois se eu colocar algum texto na celula D9,D8,.... pra cima vai aparecer PAGO

Obrigado !

Linha = Target.Row

    If Range("D" & Linha).Value = "" Then
    
        Range("F" & Linha).Value = ""
        
    ElseIf Range("D" & Linha).Value <> "" Then

        If Range("D" & Linha).Value <= Range("C10").Value Then
        
            Range("F" & Linha).Value = "VENCIDO"
        
        Else
        
            Range("F" & Linha).Value = "PAGO"
       
        End If
    
    End If

Postado : 04/04/2018 4:43 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Coloque a instrução indicando a condição da linha que deseja, tem duas opções :

linha = Target.Row

If linha >= 10 Then

    If Range("D" & linha).Value = "" Then
    
        Range("F" & linha).Value = ""
        
    ElseIf Range("D" & linha).Value <> "" Then

        If Range("D" & linha).Value <= Range("C10").Value Then
        
            Range("F" & linha).Value = "VENCIDO"
        
        Else
        
            Range("F" & linha).Value = "PAGO"
       
        End If
    
    End If
    
    End If

linha = Target.Row

If linha <= 9 Then

   Else
    
    If Range("D" & linha).Value = "" Then
    
        Range("F" & linha).Value = ""
        
    ElseIf Range("D" & linha).Value <> "" Then

        If Range("D" & linha).Value <= Range("C10").Value Then
        
            Range("F" & linha).Value = "VENCIDO"
        
        Else
        
            Range("F" & linha).Value = "PAGO"
       
        End If
    
    End If
    
    End If

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 04/04/2018 5:28 am