Notifications
Clear all

Identificar duplicidade

12 Posts
2 Usuários
0 Reactions
2,186 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Antes de mais nada me desculpem ,mas acho que vou ter um pouco de trabalho em explicar o que preciso, mas vamos lá:
TextBoxCodEnt = código do produto
TextBoxDescrEnt = Descrição do produto
TextBoxMarcaEnt = marca do produto
TextBoxValCompEnt = Valor de compra do produto
TextBoxValVendEnt = Valor de venda do produto

Para cadastrar alguns produtos utilizo os"varios textbox" acima ,os quais preencho para os NOVOS produtos , para os produtos JÁ EXISTENTES uso o VLookup em uma listbox que faz o preenchimento automatico dos "varios textbox" através do codigo :

Private Sub TextBoxCodEnt_Change()
On Error Resume Next
TextBoxDescrEnt = Application.WorksheetFunction.VLookup(CDbl(TextBoxCodEnt), Plan4.Range("DadosEntrada"), 3, 0)
TextBoxMarcaEnt = Application.WorksheetFunction.VLookup(CDbl(TextBoxCodEnt), Plan4.Range("DadosEntrada"), 4, 0)
TextBoxValCompEnt = Application.WorksheetFunction.VLookup(CDbl(TextBoxCodEnt), Plan4.Range("DadosEntrada"), 6, 0)
TextBoxValVendEnt = Application.WorksheetFunction.VLookup(CDbl(TextBoxCodEnt), Plan4.Range("DadosEntrada"), 7, 0)
'TextBoxValCompEnt = Application.WorksheetFunction.VLookup(CDbl(TextBoxCodEnt), Plan4.Range("A2:F5000"), 6, 0)
ListBox2 = Application.WorksheetFunction.VLookup(CDbl(TextBoxCodEnt), Plan4.Range("DadosEntrada"), 1, 0)
End Sub

preciso do seguinte:
se eu não usar o vlookup para o preenchimento , para evitar erros Fazer uma consistencia :
1-se os textbox preenchidos já existem com os mesmos dados , se os dados forem 100% iguais beleza ,pois estou renovando um produto que estava em falta.
2-se a descrição do produto no textbox for uma descrição já existente porem o codigo for diferente do já existente E VICE-VERSA , dar um msgbox informando este fato e

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/07/2012 10:18 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

me desculpem é Duplicidade , se algum moderador puder, favor corrigir.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/07/2012 7:37 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Claudinei

Eu já corrigi o título.

Abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/07/2012 11:26 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

valeu; agora é só esperar uma resposta.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/07/2012 5:29 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Enquanto as feras do Excel não te responde poderia melhorar sua explicação, confesso não ter entendido!! :(

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/07/2012 6:12 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre
São estes 5 textbox
TextBoxCodEnt = código do produto
TextBoxDescrEnt = Descrição do produto
TextBoxMarcaEnt = marca do produto
TextBoxValCompEnt = Valor de compra do produto
TextBoxValVendEnt = Valor de venda do produto

e um listbox com este código que busca na plan4 os dados para preencher os textbox acima.

Private Sub TextBoxCodEnt_Change()
On Error Resume Next
TextBoxDescrEnt = Application.WorksheetFunction.VLookup(CDbl(TextBoxCodEnt), Plan4.Range("DadosEntrada"), 3, 0)
TextBoxMarcaEnt = Application.WorksheetFunction.VLookup(CDbl(TextBoxCodEnt), Plan4.Range("DadosEntrada"), 4, 0)
TextBoxValCompEnt = Application.WorksheetFunction.VLookup(CDbl(TextBoxCodEnt), Plan4.Range("DadosEntrada"), 6, 0)
TextBoxValVendEnt = Application.WorksheetFunction.VLookup(CDbl(TextBoxCodEnt), Plan4.Range("DadosEntrada"), 7, 0)
ListBox2 = Application.WorksheetFunction.VLookup(CDbl(TextBoxCodEnt), Plan4.Range("DadosEntrada"), 1, 0)
End Sub

exemplo:
Código-------------Descrição do Produto---------------------------------Marca--------------------Valor de Compra-----------Valor de Venda
123y---------------Amendoin Crokissimo Leve Salgado 500G---------Crockissimo------------------R$ 5,21---------------------R$ 7,82
328k---------------cachaça mae rainha----------------------------------Artezanali--------------------R$ 1,56----------------------R$ 2,34
544----------------Azeite Vianeza Extra Virgem 500ml-----------------Vianeza-----------------------R$ 6,12---------------------R$ 9,18

então:
- se eu preencher manualmente (sem usar o list box ) o TextBoxCodEnt com o Código "328k" , não me seja permitido preencher TextBoxDescrEnt com nada que não seja "cachaça mae rainha" e assim por diante com os demais text .
-ou se preencher o TextBoxDescrEnt com "Amendoin Crokissimo Leve Salgado 500G" não me seja permitido preencher o TextBoxCodEnt com outro código que não seja o 123y.
- se preencher TextBoxCodEnt com um código que ainda não exista ,me seja permitido preencher TextBoxDescrEnt com qualquer dado que não exista em Descrição do Produto.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/07/2012 8:55 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

up

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2012 11:23 pm
depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
 

up

Tem como postar um exemplo, assim podemos testar. Criar uma planilha para testar dá uma preguiiiiça...

At

 
Postado : 23/07/2012 10:02 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

É só clicar na imagem do estabelecimento para abrir o Form e no botão + ou "NOVO" que abre a Page de inserção de produtos ,
No aguardo.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/07/2012 9:10 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

up

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/07/2012 2:59 pm
depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
 

Amigo, hoje pude ver seu trabalho. Só me responde uma pergunta:

O que você quer é impedir a adição de um produto cujo a descrição literal já exista no seu banco de dados?

At

 
Postado : 31/07/2012 6:55 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

exatamente isto , se colocar um produto com descrição exata a um existente,porem com código de produto diferente, retornar msgbox de não autorização , para não haver o mesmo produto com código de produto diferente.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/08/2012 5:41 pm