Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
NUMERO DE SERIE VBA
 
Notifications
Clear all

NUMERO DE SERIE VBA

 
2024 - VBA & Macros
8 Posts
3 Usuários
0 Reactions
2,096 Visualizações
RSS
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Bom dia a todos.
Estou com esse código abaixo em uma planilha, porem estou com uma duvida.
Preciso que coloque em uma célula o numero de serie de um produto na produção, que seria nessa sequencia:
(MT) ( ANO) (MÊS) (0) (ORDEM DE PRODUÇÃO) (ITEM PRODUTO)
MT170600001M10038 – Assim que será impresso na célula.
Porem quando o numero de ordem de produção é 0001, esta arrendando para 1, como posso corrigir isso? Segue o código:

Sub NSerie()

Dim A, B, C As Integer

Cells(2, "J").NumberFormat = "0,000"

A = Cells(2, "j").Value
B = Cells(7, "m").Value
C = Cells(8, "m").Value
D = Cells(19, "c").Value

Cells(48, "c") = "MT" & C & B & "0" & A & D


End Sub

Tem alguma forma de resolver essa questão ?
Agradeço a ajuda de todos.

 
Postado : 14/12/2017 6:59 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Tente formatar a célula para texto:

Range("C48").Select
    Selection.NumberFormat = "@"

OU:

Cells(48, "c") ="'" & "MT" & C & B & "0" & A & D
 
Postado : 14/12/2017 8:00 am
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Bom dia klarc28.

Nenhuma das duas formas deu certo, ainda continua arredondando o numero 0001 para 1.

 
Postado : 14/12/2017 8:21 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Dim A, B, C, D As String
A = cstr(Cells(2, "j").Value)
B = cstr(Cells(7, "m").Value)
C = cstr(Cells(8, "m").Value)
D = cstr(Cells(19, "c").Value)
 
Postado : 14/12/2017 8:29 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Entendi que o numero está em Cells(2, "j"), se for isso, altere a linha :

A = Cells(2, "j").Value

por esta

A = Right("00000" & Cells(2, "j").Value, 5)

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/12/2017 10:33 am
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Blz galera, até o momento deu certo.

Somente para finalizar, tem uma detalhe que esta faltando.

Quando o mês é 03, o codigo imprime somente o numero 3 sem o zero, isto é.

Quanto o numero de serie precisa ser MT180300001M10038, mas o numero 3 fica sem o zero na antes, tentei algumas formas aqui, mas sem sucesso.

O que pode ser resolvido para que o numero 3 apareça com zero no numero de serie?

 
Postado : 14/12/2017 5:32 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Anexe o arquivo

 
Postado : 14/12/2017 10:30 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Blz galera, até o momento deu certo.
Somente para finalizar, tem uma detalhe que esta faltando.
Quando o mês é 03, o codigo imprime somente o numero 3 sem o zero, isto é.
Quanto o numero de serie precisa ser MT180300001M10038, mas o numero 3 fica sem o zero na antes, tentei algumas formas aqui, mas sem sucesso.
O que pode ser resolvido para que o numero 3 apareça com zero no numero de serie?

Você teve algumas dicas, então o ideal seria ao menos indicar qual está utilizando, assim não ficamos em suposições.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/12/2017 5:52 am
Forum Jump:
  Tópico Anterior
Próximo Tópico