Deletar linha inteira de acordo comvalor inserido no textbox

Eduardopaulomartins Qui Jul 10, 2014 5:10 pm

codigo estabelecimento n_parcela valor vcto status bandeira nunlancamento tipocredito
11 EDUARDO MARTINS 1 R$ 200,00 08/06/2014 PENDENTE Visa 1 PARCELADO
12 EDUARDO MARTINS 2 R$ 200,00 08/07/2014 PENDENTE Visa 1 PARCELADO
13 EDUARDO MARTINS 3 R$ 200,00 08/08/2014 PENDENTE Visa 2 PAGO
14 EDUARDO MARTINS 4 R$ 200,00 08/09/2014 PENDENTE Visa 1 PARCELADO

Pessoal tenho a seguinte planilha em excel:

Fiz um código em vba excel para excluir a linha que tiver campos repetidos na coluna “H”, o critério para exclusão tem que ser igual o que tiver inserido dentro do textbox_codigo , no caso acima se estiver digitado “1” dentro do textbox ao clicar no botão excluir tem que excluir a linha 1,2 e 4.

Esse código que fiz não está funcionando.

Private Sub Command_excluir_Click() For CONT = H To Me.Text_codigo LINHA = "1" Do While Plan11.Range("H" & LINHA) <> Me.Text_codigo LINHA = LINHA + 1 Loop y = LINHA Plan11.Range("H" & y).EntireRow.Delete Next End if End Sub