Gerador de Código de Barras

[Valdinei Batista]

BOA NOITE GALERA...

A SITUAÇÃO É A SEGUINTE...

OS PRODUTOS QUE estão ENTRANDO EM MEU ESTOQUE RECEBERAO UM CODIGO DE BARRAS PARA SEREM CONFERIDOS PELO MEU ERP.

ATÉ AI TUDO CERTO.

TODOS MEUS PRODUTOS JA TEM OS CODIGOS DESCRITIVOS COMO POR EXEMPLO:

PP-BE-C143-CRI ONDE:

 

PP=PROTEÇÃO PARA PÉS

BE=BOTINA DE ELASTICO

C1=BICO DE AÇO

43=NUMERAÇÃO

CRI=MARCA DO PRODUTO

 

 CRIEI UMA LEGENDA PARA ESSES CODIGOS, QUE RESULTARAO NO CODIGO DE BARRAS INTERNO DO PRODUTO,SEGUE EXEMPLO:

TIPO FAMILIA MARCA BICO CHEGADA MEDIDA 33 20 3 22 615 10 PP SE BSB AÇO MÊS/ANO DEZENA

 

NESTE CASO O CODIGO DE BARRAS DO PRODUTO SERIA:332032261510

O QUE PRECISO É O SEGUINTE:

UMA FORMULA NO EXCEL(OU VBA) QUE EU POSSA DIGITAR OS CAMPOS(TIPO, FAMILIA, MARCA...) E CLICAR EM UM BOTAO GERAR E ESSE CODIGO SEJA GERADO CONFORME O QUE DIGITEI.(SERIA DESGASTANTE DEMAIS TER DE FICAR DIGITANDO CODIGO DE BARRAS POR CODIGO DE BARRAS)

SE A PLANILHA ME FIZER ISSO APENAS COPIO O CODIGO GERADO E JOGO NO MEU GERADOR DE ETIQUETAS.

CERTO DA ATENÇÃO DE vocês AGUARDO CONTATO.

QUALQUER DUVIDA AVISAR NO E-MAIL:[email protected]<script cf-hash='f9e31' type="text/javascript"> /* */</script>

ou no watsapp: 43 9991 6797

 

GERADOR.xlsx

[Basole]

Não entendi, qual o criterio q será usado para criar esses numeros (codigo de barras).

Outra coisa se for usar um leitor (scanner), normalmente o codigo de barras tem q ter um digito verificador 

[Valdinei Batista_730680]

então parceiro...o meu ERP aceita que eu cadastre qualquer coisa como codigo de barras...por isso nao a necessidade de um digito verificador....
e na realidade só preciso que o que eu digitar nos campos de edição(tipo, familia, bico..)seja "espelhado no campo final(gerar cod.barras) .

nada muito complexo...só que o sistema reconheça o que eu digitar em campos diferentes como uma unica linha....

[Basole]

segue um  ex.:

Sub GerarCodigo()    Dim Cod As String: Cod = InputBox("Digite o código no seguinte formato:" & vbNewLine & "Ex.: 33 20 3 22 615 10  (s/ os espaços)" & _                                      vbNewLine & vbNewLine & vbNewLine & vbNewLine & "TIPO  FAMILIA  MARCA  BICO  UND  TAMANHO ", _                                      "Gerador de Codigo de Barras")    Dim sht As Worksheet: Set sht = Sheets("Gerador de Codigo")    If Cod = Empty Then Exit Sub    sht.[B15].Value = CodEnd Sub

* Formate a celula B15 como texto.

[Valdinei Batista_730680]

desculpe a ingenuidade...poderia alterar a minha planilha nessa formula e me mandar?

att

[Basole]

segue em anexo

GERADOR.zip

[Valdinei Batista]

BOA NOITE amigos....

mudei um pouco meu produto final e optei por utilizar um formulario em vba...ate por quesito aparencia....

criei meu formulario com os campos para preencher e utilizei da seguinte macro para salvar os resultados:

 

"totalregistro = Worksheets("SINALIZACAO").UsedRange.Rows.Count + 1

Worksheets("SINALIZACAO").Select

Cells(totalregistro, 1) = TextBox1

Cells(totalregistro, 2) = TextBox2

Cells(totalregistro, 3) = TextBox3

Cells(totalregistro, 4) = TextBox4

Cells(totalregistro, 5) = TextBox5

Cells(totalregistro, 6) = TextBox6

Cells(totalregistro, 7) = TextBox7

MsgBox "CODIGO DE BARRAS GERADO COM SUCESSO"

TextBox1 = ""

TextBox2 = ""

TextBox3 = ""

TextBox4 = ""

TextBox5 = ""

TextBox6 = ""

TextBox7 = ""

 

até aqui td certo...ele esta salvando na minha planilha bacana e tal...

o que eu gostaria é que na finalização(msgbox) a planilha me retornasse os valores recem digitados(penso numa formula tipo:a2&a3&a4&...gostaria de saber como faço isso...

 

o meu resultado final(ou ao menos o que quero) é que a MSGBOX diga:"CODIGO DE BARRAS GERADO COM SUCESSO:0106050705"(a numeração são os valores que acabei de digitar)

certo da atenção de vocês. desde ja agradeco

att

 

[Basole]

Segue ex.

MsgBox "CODIGO DE BARRAS GERALDO COM SUCESSO: " & textbox1.Text & textbox2.Text & textbox3.Text & _textbox4.Text & textbox5.Text & textbox6.Text & textbox7.Text, 0, "Sucesso"