Miltonleandro

Alguém pode ajudar? Segue Plan em anexo... Obrigado!!!

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. TxtQuantOP - 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!