Excluir linha com Criterio, ( NO USERFORM NÃO FUNCIONA)

[rachelgdias]

bom dia pessoal
Tenho uma planilha que faço o filtro avançado. Gostaria de EXCLUIR UM LINHA INTEIRA de acordo com o criterio.
vou enviar minha planilha de exemplo. Gostaria de excluir por Nome e data.

[webmaster]

Quando você diz EXCLUIR, você quer dizer remover a linha da planilha ou não incluí-la no filtro?

[rachelgdias]

Quando você diz EXCLUIR, você quer dizer remover a linha da planilha ou não incluí-la no filtro?

Bom dia webmaster, gostaria de REMOVER A LINHA INTEIRA DA PLANILHA, de acordo com que foi filtrado.

Exemplo: eu filtrei, data(coluna L) Ano(coluna m) valor(coluna n) Nome(coluna o)
13-mai 2020 eu

*gostaria que nas colunas, B até E, de acordo com criterio, REMOVESSE A LINHA INTEIRA .

[rachelgdias]

Quando você diz EXCLUIR, você quer dizer remover a linha da planilha ou não incluí-la no filtro?

Bom dia webmaster, gostaria de REMOVER A LINHA INTEIRA DA PLANILHA, de acordo com que foi filtrado.

Olha o que Consegui:
Sub Excluir()
Dim lLin As Long
With Sheets("Tabela")
For lLin = .Cells(.Rows.Count, "b").End(xlUp).Row To 5 Step -1
If .Cells(lLin, "b") = Range("l5") Then .Rows(lLin).Delete
Next lLin
End With
End Sub

Mas gostaria que filtrasse nao só pela data, mas tb pelo ano e pelo nome. Os tres tem que bater para remover a linha inteira.

[Reinaldo]

Eu, particularmente não entendi seu modelo/demanda corretamente.
Para comparar mais de uma opção, e que as mesmas sejam obrigatorias deve utilizar "And"
Seria algo +/-:

Código: Selecionar todos

Sub Excluir()
Dim lLin As Long

With Sheets("Tabela")
    For lLin = .Cells(.Rows.Count, "b").End(xlUp).Row To 5 Step -1
        If .Cells(lLin, "b") = Range("G5") And _
            .Cells(lLin, "c") = Range("H5") And _
            .Cells(lLin, "d") = Range("I5") And _
            .Cells(lLin, "e") = Range("J5") Then .Rows(lLin).Delete
    Next lLin

End With
End Sub

[rachelgdias]

Eu, particularmente não entendi seu modelo/demanda corretamente.
Para comparar mais de uma opção, e que as mesmas sejam obrigatorias deve utilizar "And"
Seria algo +/-:

Código: Selecionar todos

Sub Excluir()
Dim lLin As Long

With Sheets("Tabela")
    For lLin = .Cells(.Rows.Count, "b").End(xlUp).Row To 5 Step -1
        If .Cells(lLin, "b") = Range("G5") And _
            .Cells(lLin, "c") = Range("H5") And _
            .Cells(lLin, "d") = Range("I5") And _
            .Cells(lLin, "e") = Range("J5") Then .Rows(lLin).Delete
    Next lLin

End With
End Sub

Bom dia webmaster, o código funcionou, entretanto, fiz um Userform2 onde inseri o codigo, NO USERFORM2 ELE NAO FUNCIONA,
O QUE FIZ DE ERRADO.......

[rachelgdias]

Eu, particularmente não entendi seu modelo/demanda corretamente.
Para comparar mais de uma opção, e que as mesmas sejam obrigatorias deve utilizar "And"
Seria algo +/-:

Código: Selecionar todos

Sub Excluir()
Dim lLin As Long

With Sheets("Tabela")
    For lLin = .Cells(.Rows.Count, "b").End(xlUp).Row To 5 Step -1
        If .Cells(lLin, "b") = Range("G5") And _
            .Cells(lLin, "c") = Range("H5") And _
            .Cells(lLin, "d") = Range("I5") And _
            .Cells(lLin, "e") = Range("J5") Then .Rows(lLin).Delete
    Next lLin

End With
End Sub

Bom dia webmaster, o código funcionou, entretanto, fiz um Userform2 onde inseri o codigo, NO USERFORM2 ELE NAO FUNCIONA,
O QUE FIZ DE ERRADO.......

[Reinaldo]

Bem não sou o Tomas (webmaster)mas...
Experimente:

Código: Selecionar todos

Private Sub CommandButton1_Click()
'esses dados estao na coluna de criterio de filtro
If TextBox1 <> "" Then Range("l5") = CDate(TextBox1) 'data
If TextBox2 <> "" Then Range("m5") = CDbl(TextBox2) 'ano
If TextBox3 <> "" Then Range("n5") = CDec(TextBox3) 'valor
If TextBox4 <> "" Then Range("o5") = TextBox4 'nome
End Sub

[rachelgdias]

Bem não sou o Tomas (webmaster)mas...
Experimente:

Código: Selecionar todos

Private Sub CommandButton1_Click()
'esses dados estao na coluna de criterio de filtro
If TextBox1 <> "" Then Range("l5") = CDate(TextBox1) 'data
If TextBox2 <> "" Then Range("m5") = CDbl(TextBox2) 'ano
If TextBox3 <> "" Then Range("n5") = CDec(TextBox3) 'valor
If TextBox4 <> "" Then Range("o5") = TextBox4 'nome
End Sub

Reinaldo, obrigada, o código deu certinho.... Muito obrigada!!!!