Página 1 de 1

MACRO PARA GERAR ID DE LINHA (FORMATO=NUMERO IDENTIFICAÇÃO DO LOCAL+ID SEQUENCIAL)

Enviado: 30 Mar 2021 às 18:06
por Rasins
OLA A TODOS!
TENHO PESQUISADO UMA FORMA DE FAZER MACRO PARA GERAR ID DE LINHA NO FORMATO "NUMERO IDENTIFICAÇÃO DO LOCAL+ID SEQUENCIAL".
EU CONSEGUI SEM O NUMERO DE IDENTIFICAÇÃO. ESSE NUMERO REPRESENTA A FILIAL EX): FILIAL 1055 SERIA MAIS OU MENOS ASSIM "1055/1" ONDE 1 SERIA O SEQUENCIAL.

GOSTARIA QUE O NUMERO DESSA FILIAL FOSSE EXTRAIDO DE UMA CELULA QUALQUER E ADICIONADO A ID.
HOJE, CADA VEZ QUE APERTO UM BOTÃO ELE GERA UMA ID NA PRIMEIRA COLUNA DA PROXIMA LINHA VAZIA .
COM O MESMO COMANDO OUTRAS ATIVIDADES OCORREM EM PARALELO ORGANIZANDO UM NOVO PROCESSO.

SOU POUCO EXPERIENTE EM VBA ALGUEM PODE DAR UMA FORÇA NESSE TEMA

Re: MACRO PARA GERAR ID DE LINHA (FORMATO=NUMERO IDENTIFICAÇÃO DO LOCAL+ID SEQUENCIAL)

Enviado: 30 Mar 2021 às 21:21
por osvaldomp
O código abaixo irá gerar um código no formato 1055/0000 na primeira célula vazia da coluna A.
A última ou a única célula preenchida da coluna A deverá já conter um código inserido manualmente.
Código: Selecionar todos
Sub InsereCódigo()
 Dim c As Range
  Set c = Cells(Rows.Count, 1).End(3)
  c.Offset(1).Value = "1055/" & Format(Right(c.Value, Len(c.Value) - InStr(c.Value, "/")) + 1, "0000")
End Sub