Este fórum está sendo desativado

[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

[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