Buscar proximo codigo


#1

Boa tarde galera, novamente agradeço por todas as soluções que já me apresentaram. Todas ótimas dicas.

tenho um código de pesquisa de produtos, porem em minha planilha eu possuo em linhas diferentes o mesmo produto com datas e quantidades diferentes. Como faço para que o pesquisar novamente ou ao pressionar o Enter, meu código traga a linha seguinte correspondente ao código que esta preenchido no textbox? Segue o código para a analise e um print do formulário para uma melhor compreensão. Abraço.

Private Sub cmdPequisar_Click()
'Verificar se foi digitado um nome na primeira caixa de texto
If txtCodArt.Text = “” Then
MsgBox "Campo Codigo Art em branco!"
txtCodArt.SetFocus


GoTo Linha1
End If

With Worksheets(“NFs Entrada”).Range(“A:A”)
Set c = .Find(txtCodArt.Value, LookIn:=xlValues, LookAt:=xlPart, searchdirection:=xlPrevious)
If Not c Is Nothing Then
c.Activate
txtCodArt.Value = c.Value
txtCodForn.Value = c.Offset(0, 1).Value
txtNfEnt.Value = c.Offset(0, 2).Value
txtDtEmissao.Value = c.Offset(0, 3).Value
txtFornecedor.Value = c.Offset(0, 4).Value
txtChaveAcesso.Value = c.Offset(0, 5).Value
txtDescProd.Value = c.Offset(0, 6).Value
txtQtdNota.Value = c.Offset(0, 7).Value
txtSaldo.Value = c.Offset(0, 8).Value

Else
MsgBox "Registro não encontrado!"
End If

End With
Linha1:
End Sub