Ir ao conteúdo
  • Cadastre-se
Neri Schuck

Excel Grava o cliente errado

Recommended Posts

Insiro em anexo 2 formulários:
1 - Pesquisa de Clientes
2 - Cadastro de Dados

Quando quero cadastrar dados, clico no sinal de "+" no arquivo "Cadastro de Dados" e escolho o cliente.
Ao escolher o cliente 2 chamado "Auto" funciona corretamente, porém na hora de salvar ele troca o cliente. Motivo que ele faz isto: O comando não salva o nome do cliente, e sim substitui pelo codigo do mesmo que está no cadastro do cliente. 
Por exemplo: Se escolher o cliente "Auto" (Cliente 2) e salvar os dados, ele teria que salvar o código "2". 
Mas não é isto que acontece. Ele vai na relação dos clientes e procura a palavra "Auto" e o primeiro que ele encontrar ele pega o código. Vejam que o cliente 1 tem o nome de "Auto Peças", ou seja, tem a palavra Auto e por este motivo ele salva como cliente 1.

O codigo que faz a procura e salva o codigo é este:

If Me.txtcliente.Text = "" Then
.Cells(indice, ColCliente).Value = "NAO INFORMADO"
Set wsCliente = ThisWorkbook.Worksheets("clientes")
With wsCliente.Range("B1:B65000")
Set X = .Find("NAO INFORMADO", LookIn:=xlValues)
If Not X Is Nothing Then
cliente = wsCliente.Rows(X.Row).Value
End If
End With
.Cells(indice, ColCliente).Value = cliente
indiceRegistro = indice ' posiciona no lancamento correto para evitar erros
Set wsCliente = Nothing
Else
Set wsCliente = ThisWorkbook.Worksheets("clientes")
With wsCliente.Range("B1:B65000")
Set X = .Find(Me.txtcliente.Text, LookIn:=xlValues)
If Not X Is Nothing Then
cliente = wsCliente.Rows(X.Row).Value
End If
End With
.Cells(indice, ColCliente).Value = cliente
indiceRegistro = indice ' posiciona no lancamento correto para evitar erros
Set wsCliente = Nothing
End If

Como poderia fazer para evitar este erro?

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

O anexo não foi...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×