bom dia a todos estou em fase de termino em um form e esta acontecendo o seguinte: tenho uma txtbox cod / txtbox qtde / e em outro formulario tenho uma txtbox q joga o valor "cod" para a txtbox cod caso a pessoa queira colar manualmente , só que quando faz deste jeito ela joga a informação 2x na listbox que deveria ser unica observem o cod abaixo

*essa é o cod da txtcod

Private Sub txt_cod_Change()

Sheets("produtos").Select
Range("B3").Select
Dim contador As Integer
contador = 0
Do While ActiveCell.Value <> txt_cod.Text And contador < 150
ActiveCell.Offset(1, 0).Select
contador = contador + 1
Loop
If ActiveCell.Value = txt_cod.Text Then
txt_unit.Text = ActiveCell.Offset(0, 2).Value
txt_unid.Text = ActiveCell.Offset(0, 3).Value
txt_descricao.Text = ActiveCell.Offset(0, 1).Value
txt_estoque.Text = ActiveCell.Offset(0, 4).Value

Else
negativa.Show
txt_cod = ""
txt_descricao = ""
txt_unid = ""
txt_unit = ""
txt_estoque = ""
txt_cod.Enabled = True
sub_total = ""
End If

If txt_qtde = "" Then
txt_qtde = 1
sub_total.Text = txt_qtde * txt_unit
sub_total = FormatCurrency(sub_total)
Else
On Error GoTo error:
sub_total.Text = txt_qtde * txt_unit
sub_total = FormatCurrency(sub_total)
End If

'cupon = (txt_cod.Text + " " + txt_qtde.Text + " x " + txt_descricao.Text + " " + txt_unit.Value + " " + sub_total.Text)
cupon = ("x")
With Me.cupom
.AddItem

'.List(.ListCount - 1, 0) = cupon
'.List(.ListCount - 1, 1) = sub_total

'On Error GoTo error
txt_unit.Text = FormatCurrency(txt_unit)

.List(.ListCount - 1, 0) = txt_cod
.List(.ListCount - 1, 1) = txt_qtde
.List(.ListCount - 1, 2) = cupon
.List(.ListCount - 1, 3) = txt_descricao
.List(.ListCount - 1, 4) = txt_unit
.List(.ListCount - 1, 5) = sub_total
error:
'Let cupom.ColumnWidths = "60;0"

Let cupom.ColumnWidths = "40;25;15;90;60;15"

End With
Call CommandButton2_Click
txt_cod = ""
txt_qtde = ""

End Sub

* esse é o codigo se caso a pessoa querer colocar manualmente

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
use_cupom.txt_cod.Value = TextBox1.Value
Unload Me
End Sub

se alguem puder me ajudar desde ja agradeço