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