problema no excluir

[joaofrancisco]

Olá Amigos, o problema agora é na exclusão, estou com um formulario e nesse formulario estou com cadastro de dados, e estou cadastrando por codigo, por exemplo vou simular uma iserção de dados: cod produto quant valor insiro através dos textbox que no caso fica assim: tex_cod text_produto text_quant text_valor, quando eu inserir varios produtos com o mesmo codigo exemplo:
cod produto quant valor
1 caneta 10 10,00
1 chamex 2 20,00
1 pincel 5 5,00
1 pendrive 2 80,00

depois eu quero excluir essa venda pelo o codigo, todos os que tiver o codigo 1, estou usando esse procedimento
Dim LINHA As String
LINHA = 1
Do While Plan2.Range("A" & LINHA) <> Me.Text_cod
LINHA = LINHA + 1
Loop
Plan2.Range("A" & LINHA).EntireRow.Delete

ele exclui mais só exclui um registro tipo só o primeiro da lista com o codigo 1 os outros ele não exclui

ele faz o loop quando ele sai do loop ele exclui no registro que ele achou, só que é preciso refazer o loop até ele exclui todos os registro com o codigo 1 e isso não estou conseguindo fazer

alguem mi ajuda, vou fica muito agradecido

obrigado a todos pela a atenção

um abraço!

[thiago.cs2]

João,

Ficou meio confuso pra mim mas vou tentar te ajudar. Posta o arquivo.

Abraço!

[Mauro Coutinho]

Altere em sua rotina conforme abaixo :

Código: Selecionar todos

    Dim LINHA As String
    
    LINHA = 1
    
    'Enquanto Col A & Linha for Diferente de Vazio
    Do While Plan2.Range("A" & LINHA).Value <> ""
        'Enquanto o Valor em Col A & Linha for Igual ao Cod no Text_Cod
        Do While Plan2.Range("A" & LINHA).Value = Me.Text_cod
            Plan2.Range("A" & LINHA).EntireRow.Delete
        Loop
        LINHA = LINHA + 1
    Loop

abraços

[joaofrancisco]

Amigos consegui refazer o codigo e deu certo, quer dizer quase certo, eu preciso que a variavel contador tenha um valor igual a quantidade de vezes que o do while for executado

exemplo: se tiver 4 linha para excluir então o contador tem que estar com ese numero 4, ai sim vai da certo
LINHA = 1
contador = "o numero de vezes que o do wlihe for executado"

For i = 1 To contador

Do While Plan8.Range("B" & LINHA) <> Me.Text_codigohora
LINHA = LINHA + 1

Loop

Plan8.Range("B" & LINHA).EntireRow.Delete

Next

[joaofrancisco]

valeu galera o problema foi resolvido