[RESOLVIDO] SE O ID E CÓDIGO NA TEXTBOX FOREM LOCALIZADOS NA PLAN

[milton]

Bom dia!
Gostaria da ajuda de vocês pois não estou conseguindo...
Quero EDITAR a coluna "Qtde" quando for localizado na Plan as TEXTBOX ID e CÓDIGO. Se localizar só o ID não edita a Qtde.

TxtID TxtCodigo TxtProduto TxtQuantOP TxtData TxtQtde = neste campo digito a qtde a subtrair
ID Código Produto Qtde Dt Emissão
013906 042083001 SUBCONJ CHICOTE DA SETA 100 17/06/2016
013907 042083006 SUBCONJ CHICOTE DO LIMPADOR 555 17/06/2016

Tenho o código para Localizar o ID, mas preciso que seja o ID + Código. Alguém pode me ajudar por favor?

Worksheets("OP").Select
Range("A2").Select
While ActiveCell <> ""
If TxtID.Text = ActiveCell Then
soma = (TxtQuantOP - TxtQtde)
ActiveCell.Offset(0, 1).Value = soma
MsgBox "Alterado com sucesso!", vbInformation, "OP"
End If
ActiveCell.Offset(1, 0).Activate
Wend

Desde já obrigado!

[Lúcio Mauro da Silva]

Bom dia Milton.

Poderia compartilhar seu arquivo para analisarmos?


Abraços.

[milton]

Lúcio, boa tarde!
Não consegui anexar por aqui...
Mandei em seu email.
Obrigado!!!
Milton

[milton]

Agora consegui, segue anexo...

[Lúcio Mauro da Silva]

Milton boa noite,

Fiz as alterações conforme solicitado, veja se te atende.

Valeu.

Abraço.

[milton]

Lúcio,
Ficou exatamente como eu precisava, eu fiz somete um e outro pequeno ajuste... Segue anexo.
Obrigado por toda atenção!
Deus abençoe!!!!