Este fórum está sendo desativado

[Joaopmata182]

Boa noite a todos,
Tenho um pequeno sistema de cadastro de vendas e estou com uma dúvida sobre uma listbox. Essa listbox é alimentada por uma planilha que é selecionada através de uma combobox. Estou precisando criar um código para que eu consiga dar um double click na listbox e ela adicionar simultaneamente "PAGO" a listbox e a planilha. Até então já consegui que isso aconteça
porém o critério que uso é o código que é a coluna B da planilha e a 0 da listbox, porém o código que estou usando não está relacionando o valor do código da planilha com o da listbox.

Segue o código que estou usando e a planilha em anexo.
Caso alguém tenha disponibilidade de me ajudar. A listbox se encontra no Userform3

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Editar = ListBox1.ListIndex
COD = ListBox1.List(Editar, 0)
VERIFICAR = ListBox1.List(Editar, 17)
resp = MsgBox("Confirmar?", vbYesNo, "")
If resp = vbYes Then
Plan1.Range("b3").Select

Do

If ActiveCell.Text = COD Then

ActiveCell.Select
ActiveCell.Offset(0, 17).Select

If VERIFICAR = "NÃO PAGO" Then
ActiveCell.Value = "PAGO"
ListBox1.List(Editar, 17) = "PAGO"
Else
ActiveCell.Value = "NÃO PAGO"
ListBox1.List(Editar, 17) = "NÃO PAGO"
End If

Exit Sub

End If
If ActiveCell.Value = "" Then
Exit Sub
End If

ActiveCell.Offset(1, 0).Select

Loop

Else
Exit Sub

End If


End Sub


Muito Obrigado

[osvaldomp]

substitua
If ActiveCell.Text = COD Then

por
If ActiveCell.Value = COD Then

obs. o código não está travando nesta linha Plan1.Range("b3").Select ?
se sim, acrescente o comando em vermelho, conforme abaixo
Plan1.Activate
Plan1.Range("b3").Select



dica - em lugar de pular de célula em célula com o Select, buscando por COD, pesquise sobre o comando Find

[Joaopmata182]

Muito obrigado Osvaldo, quando alterei o text para value funcionou corretamente. Obrigado mesmo