amazonascf Postado Novembro 8, 2016 Denunciar Share Postado Novembro 8, 2016 Preciso de um codigo que funcionaria da seguinte forma quando iniciasse o mês o codigo iniciaria como "mmyyy" - cod ex: 082016 - 001 082016 - 002 082016 - 00........... 082016 - 060...... ai quando chegar o outro mes o codigo iniciaria novamente do 1 e não 082016 - 061 o certo seria ex: 092016 - 001 txt_codigo = Format(Now, "yyyymm") & " - " & Range("A60000").End(xlUp).Offset(0, 0).Value, "000" Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Alyson Ronnan Martins Postado Novembro 23, 2016 Denunciar Share Postado Novembro 23, 2016 Simples só colocar os segundos para identicar o seu registro. pronto assim você tera sempre a informação atual. Agora se não puder usar isso avisa que agente ajuda. Dim IDNota as string IDNota = format(now, "YYMMDDSS") Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
amazonascf
Preciso de um codigo que funcionaria da seguinte forma
quando iniciasse o mês o codigo iniciaria como "mmyyy" - cod ex:
082016 - 001
082016 - 002
082016 - 00...........
082016 - 060......
ai quando chegar o outro mes o codigo iniciaria novamente do 1 e não 082016 - 061 o certo seria ex:
092016 - 001
txt_codigo = Format(Now, "yyyymm") & " - " & Range("A60000").End(xlUp).Offset(0, 0).Value, "000"
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.