Segue as alterações solicitadas: Private Sub Worksheet_Change(ByVal Target As Range) Dim sNtMin As String: sNtMin = Range("B1")&#...

Henrique o ideal seria vc postar sua planilha ou um exemplo. de qq forma segue um exemplo: Para testar, digite qualquer valor abaixo de 5 no intervalo...

Bom, aqui pra mim esta funcionando corretamente. Segue o cod. na planilha em anexo. Codes Barres-Corrigido.xls

É realmente esta função da planilha, está erRanDo nos calculos do digito verificador rsssss.. Por favor, substitua a funcao Ean13 abaixo pela a sua, e...

Outra opção para abrir o arquivo, sem que a macro seja executada automaticamente: Se a versão do excel for > 2007 Aperte a tecla Shift, click c/ no...

Item.............Referencia.............Qtde Maça............R1010....................01 Banana..........R1011....................01 Vc quer entao que...

Sim é possivel, mas poste um exemplo com alguns dados para facilitar alguem que queira ajuda-lo.

Obrigado pelos agradecimentos brother. Alterei conforme solicitou, ao inves de somar a coluna Qtde. agora soma a coluna Lote. Inseri alguns comentario...

Teste desta forma: ArquivoGIF = Environ("USERPROFILE") & "Desktop" & "temp.gif"

araujors, segue em anexo veja se é isso mesmo. Se preferir anule a linha da msg de alerta qdo. o item que ja existe inserido na listbox. listbox-Bas...

araujors, poste sua planilha ou o codigo que carrega o listbox, para que o possamos trabalhar em cima dele.

Segue um exemplo, veja se consegue adaptar. Count.xlsm

No anexo tem a fonte Ean13, instale e faça o teste com seu leitor. Codes Barres.zip

2- A lista telefônica seria uma lista normal com colunas NOME, TELEFONE CELULAR, TELEFONE RESIDENCIAL, EMAIL entre outros, porém ao se passar o pontei...

Com o listview, se a propriedade LabelEdit = lvwAutomatic, só é possivel (sem api), editar somente o 1º campo (ou coluna) . Existem alguns componentes...