Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Identificar duplici...
 
Notifications
Clear all

Identificar duplicidade

 
2024 - VBA & Macros
12 Posts
2 Usuários
0 Reactions
2,176 Visualizações
RSS
 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

 
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.

 
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.

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

valeu; agora é só esperar uma resposta.

 
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

 
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.

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

up

 
Postado : 22/07/2012 11:23 pm
 depoisteconto
(@depoisteconto)
Posts: 183
Reputable 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.

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

up

 
Postado : 29/07/2012 2:59 pm
 depoisteconto
(@depoisteconto)
Posts: 183
Reputable 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.

 
Postado : 01/08/2012 5:41 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico