Basole

O problema maior é o uso do "-" que retorna como " " espaços no codigo de barras. Nao sei se conseguiu resolver se problema, mas de qq forma, atente usar esta fonte: free3of9.zip

Fiz aqui um exemplo usando a função MENOR para buscar o menor proço e PROCH para buscar o fornecedor vencedor. Veja se consegue adptar a sua situação. abx Cotacao de precos com MENOR e PROCH.xlsx

@CypherNet, quando digo integrar o Excel ao Access, nao significa que o Access irá ficar dedicado. Quando for consultar, inserir, alterar ou excluir, voce pode verificar se a conexão está aberta ou não, por outro usuario, como por exemplo o uso do "ADO Recordset", que tem a propriedade [ .State ], que você pode verificar se o seu valor é [adStateClosed] ou [ adStateOpen ]. Veja um exemplo pratico: If Not (rs Is Nothing) Then If (rs.State And adStateOpen) = adStateOpen Then rs.Close Set rs = NothingEnd If Outra coisa, o Excel como front_end e o Access back_end, não tem problema se acontecer se o excel ficar corrompido, pois 'quem' vai gardar os dados é o Access e voce pode criar pelo vba um backup automatico diario pra preservar os registros. abx.

Careeteiroroft, seja bem vindo a bordo! Tente desta forma: Set banco = OpenDatabase("C:\Users\Palmeiras\Desktop\KLF_BD\bd_clientes.mdb") abx.

Deyvisson, é meio complicado a automatizacao e controle de validade de produtos via sistema, pois diferentemente do controle de estoque onde o proprio programa se encarrega de dar baixa automatico na qtd. do item. Seria otimo se os codigos de barras fossem mais complexos e incluissem essa informacao ou data de fabricação do produto ai voce teria a informacao exata de quantos itens ainda tem e com quais datas de validades. Creio que voce tera que controlar mesmo é manualmente (entrada e saida) e a contagem de produtos periodicamente por validade e informar ao sistema. Eu sugiro que voce use mesmo excel com vba e integrado ao um banco de dados (access) para evitar perda de dados (pois é muito comum o excel retornar msg de que o arquivo esta corrompido). E no BD criar um campo por ex. "Numero_do_Lote" configurando este campo a no aceitar dados duplicados, e informando ao usuario que tal item ja esta cadastrado. abx.

Eu desabilitei a msg, pois ela faz ref. a registro duplicado, mas como a planilha banco de dados nao está completo, nao tem como eu testar, então verifique se o listview esta carregando todos os dados (linhas e colunas), abx. Teste-v3.zip

voce se refere a esta msg (vide img)? Esta msg aparece durante o carregamento do ListView, e o listview esta em outro userform, então o cod que inseri nao interfere e nem faz ref a este userform. abx

Olá @welington, fiz a busca separadamente, usando Ado e instrucao sql. Carrega a txtDureza de acordo c/ os dados da txtMat. abx. Teste-v2.zip

Welington seja bem vindo a bordo. O codigo ja está buscando o valor para "txtdureza" o problema é que a a coluna "AE" da planilha (banco de dados) "ModeloCadastro_Dados" estava vazia. Então eu inseri a formula =SE(C2="";"";PROCV(C2;Material!A2:B597;2;VERDADEIRO)) -> p/ preencher os dados nesta coluna (Dureza). Desabilitei na plan "MdC_FrontEnd ListView - Cópia" algumas chamadas (call ....) de macros que estavam causando errors. abx. Teste-v1.zip

Se preferir usar uma udf (formula), crie um modulo e cole o codigo abaixo: Function SumDiasCells(Cells_To_Sum As Object) Application.Volatile For Each cell In Cells_To_Sum 'LINHA DE BAIXO: Altere conforme as celulas c/ condicoes If cell >= ActiveSheet.[i14] And cell <= ActiveSheet.[j14] Then Total = Total + 1 End If Next SumDiasCells = TotalEnd Function P/ usa-la: Ex. =SumDiasCells(A1:A100) na celula que deseja retornar o total. Sendo A1:A100 o intervalo que contem as datas

É uma formula matricial, e o excel acrescenta essas chaves "{ }" sinalizando-a. Para usa-la é necessário que selecione 1ª celula, clck na barra de formulas, aperte as teclas (Cltr+Shift+Enter) e por ultimo arraste até a ultima respectiva linha com formula da sua lista. abx. Pasta1-v3.xls

Renato sim, sem o uso do componente activex (combobox) por exemplo, e vba, pelos meus conhecimentos nao tem como evitar esses 'buracos' criados na lista suspensa por falta de dados entre as celulas. abx.

Pelo que eu entendi o conteudo deste link nao atende o proposito deste topico Olá Renato seja bem vindo a bordo. Sem o uso de macro e usando a lista de validacao de dados fiz uma sugestao, mas com uso de uma coluna auxiliar e formula matricial para filtrar as celulas com valores, veja se atende. abx. Pasta1-v1.xls

Opa é isso ai, vamos incrementar.... tem que aproveitar o maximo os recursos que temos prá facilitar nossa vida.. beleza. .fico no aguardo. abx.

Alexandre, seja bem vindo a bordo! Carregue o form com as seguintes propriedades: Private Sub Form_Load()Me.DTPicker1.Format = dtpCustomMe.DTPicker1.CustomFormat = ("yyyy")End Sub Abx.

Veja nesse link, pessoas que tiveram o mesmo problema: https://social.technet.microsoft.com/Forums/office/en-US/ad50f59d-1928-4cbc-b276-04cf6022fd7d/word-2013-error-inserting-an-html-file-in-a-word-document?forum=officeitpro

Esse método "SelectAll()" do componente textbox, eu nao conheço ..... Eu uso (exemplo): Me.Text1.SelStart = 0Me.Text1.SelLength = Len(Me.Text1.Text) Me.Text1.SetFocus mithybr, segue anexo um exemplo baseado nas infs. que passou: Caixa de Texto.zip

Sem querer me intrometer na forma q vocês trabalham ai, mas já que voce esta criando tipo um espelho da NF, poderia ter a opção no form de inserir a quantidade de produtos que vem na caixa (embalagem), o valor unitario (conf. pedido de compra) do produto e ao final, a planilha ja calcula o total e compara com o total da NF, pois as vezes o vendedor que que emitiu o pedido se engana na hora de fechar o preço e ai voce cobra a dif. dele. abx. .

Obrigado joao.vieira pelos elogios a gente faz o que pode... Se tiver acesso ao seu BD, fica fácil com comando sql o excel buscar as informações nele. Segue em anexo, como o processo automatizado, Ao invés do Evento AfterUpdate(), eu usei o _KeyDown no textBox do cod barras. E tambem eu desabilitei a propriedade .TabStop em todos os controles, exeto ao textbox cod. barras, para o foco se 'concentrar' apenas neste campo. Pra testar, se nao estiver c/ o scanner na mao, digite o cod barras 'manualmente' em seguida digite o {Enter} . Se interessar eu posso dar maozinha pra integrar o excel ao bd. abx. CONFERENCIA_MERCADORIA-v3.zip

mithybr, crie esta caixa de texto com um Form. e coloque uns comandos para o conteudo ficar selecionado. abx.

joao.vieira, só uma sugestão quando se trata de banco de dados, o ideal ao invés de usar o excel para essa funcao, usar o access por exemplo, integrado, para evitar que voce perca algum dado por uso involuntario ou evitar a perda quando o excel fica corrompido o que é normal acontecer. Bom mas vamos ao seu caso, eu nao entendi direito, voce disse [ ele acrescente apenas +1 unidade na coluna "Quantidade], mas tem um trecho no codigo para acrescentar 10, nesta coluna [ ActiveCell.Offset(0, 7).Value = 10 ] ? Outra sugestão: o leitor de codigo de barras, normalmente vem configurado para apos ler o codigo, inserir o { Enter }, voce poderia aproveitar esse recurso e fazer tudo automatico, ou seja ao escanear, fazer as verificacoes e inserir as informçoes, sem que o usuario precise clicar no botao inserir, fica um trabalho mais ágil. Veja o anexo eu usei a funcao "Find" para procurar o codigo na coluna "A" da aba Conferencia. CONFERENCIA_MERCADORIA-v1.zip

Matheus, fica difícil adivinhar pela imagem em quais linhas e colunas o codigo devera inserir essas datas. Se pudesse anexar um exemplo, acho que ajudaria o retorno da solucao do seu problema.

Bom dia Guilherme, fico contente por ter conseguido. So um dica,de prevencao, se pudesse relacionar as medidas de todas as colunas das 3 abas, poderia incluir essa informacao no codigo, evitando assim que amanha ou depois desconfigure, ai você teria todo o trabalho de re-configurar. abx.

Anderson, desculpe mas nao entedi exatamente o q quer. Poderia compartilhar seu arquivo ou um modelo.. abx.

Haja tanto " IF'" p/ voce atender tantas consdiçoes do seu codigo !! Já tentou usar o " On Error Resume Next " ? Se houver algum error a macro continua.... Sub Filtros_Automáticos() Range("A1").Select ActiveWorkbook.RefreshAll On Error Resume Next With Plan1 ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Último_Status"). _ ClearManualFilter With ActiveWorkbook.SlicerCaches("SegmentaçãodeDados_Último_Status") .SlicerItems("520").Selected = False .SlicerItems("522").Selected = False .SlicerItems("524").Selected = False .SlicerItems("527").Selected = False '........................................ '......................................... abx.