Excel vba - preciso fazer uma sub com algumas regras de if

[isabela queiroz]

Bom dia! tenho essa tabela aqui com alguns itens, precisava que toda vez que aparecesse um "inactive" na coluna 4 com "cancelled" na coluna 6, fosse apagado, mas somente se esses dois aparecer juntos na mesma linha, se for um inactive com um "deplete stock" na coluna 6, mantem. preciso que seja feito em VBA para adicionar no meu codigo.

 

[Midori]

@isabela queiroz Isso deve acontecer no momento da edição da célula ou quer fazer um loop para verificar esses casos? E para essas condições é a linha toda que deve ser removida?

[isabela queiroz]

@Midori precisava que fosse um loop ate a ultima linha preenchida, porque dependen muito a quantida de de itens que vem. E teria a linha toda teria que ser removida

[Midori]

@isabela queiroz Veja se assim resolve,

 

Sub RemoveLinha()
    Const STATUS1   As Integer = 4
    Const STATUS2   As Integer = 6
    Dim Tabela      As Range
    Dim Linha       As Long
    
    Set Tabela = [A2].CurrentRegion
    
    For Linha = Tabela.Rows.Count To 1 Step -1
        If Tabela(Linha, STATUS1) = "inactive" _
        And Tabela(Linha, STATUS2) = "Cancelled" Then
            Tabela.Rows(Linha).EntireRow.Delete
        End If
    Next Linha
End Sub

 

[isabela queiroz]

@Midori para eu definir em qual planilha vai ocorrer eu coloco Worksheets("Carga") em que parte do codigo?

 

[Midori]

@isabela queiroz Pode ser assim,

 

Set Tabela = ThisWorkbook.Sheets("Carga").[A2].CurrentRegion

 

[isabela queiroz]

@Midori Houveram algumas mudanças nas regras da tabela e precisava que todas linhas que tiverem "inactive" na coluna 4  sejam apagadas, com a execeção das linhas que tiverem "In Process - Qual" na coluna 9, teria como me ajudar?

 

todos status abaixo, devem sumir a linha quando aparecer junto do "inactive"

Cancelled

End of Production

Disqualified

Hold

 

apenas no caso do status "In Process - Qual" que é uma exeçaõ 

 

 

 

[Midori]

@isabela queiroz Para testar o status da coluna 9, em vez da 6 como anteriormente, modifique a atribuição da segunda constante e deixe a condição assim,

 

If Tabela(Linha, STATUS1) = "inactive" _
And Tabela(Linha, STATUS2) <> "In Process - Qual" Then

 

[isabela queiroz]

@Midori ficaria assim, correto?

Sub removerInactive()

    Const Status1   As Integer = 4
    Const Status2   As Integer = 9
    Dim Tabela      As Range
    Dim Lin       As Long
    
    Set Tabela = ThisWorkbook.Sheets("Carga").[A2].CurrentRegion
    
    For Lin = Tabela.Rows.Count To 1 Step -1
        If Tabela(Linha, Status1) = "inactive" _
        And Tabela(Linha, Status2) <> "In Process - Qual" Then
            Tabela.Rows(Lin).EntireRow.Delete
        End If
        
    Next Lin