Numero de Pedido Automático.

Question

Olá pessoal.

Podem ajudar por favor?

Estou procurando uma forma de inserir numa célula um numero de série automático de pedido de materiais.

Necesito que todas as vezes que for abrir um pedido novo, seja criado uma novo numero de série automaticamente.

Alguém conhece algo aplicável?

Obrigado.

Answer 1

Alexandre, entendo sua questão.

Olha só, a macro que passei funciona para a geração de um número único caso você venha a trabalhar com uma lista de pedidos, em que cada pedido seria feito em uma unica linha da planilha, dessa forma acredito que a forma proposta seria útil.

Outra forma, que acredito ser a mais ideal para seu caso, agora encaixando na ideia do formulario seria o preenchimento desse número de serial quando alguma ação fosse tomada ou uma tecla pressionada.

Segue:

• Na mesma tela onde você colou a macro, recomece do zero o procedimento anterior, ou seja, apague a macro anteriormente proposta;
• Crie um novo módulo, na mesma tela do Visual Basic, vá em Inserir -> Módulo.
• Copie e cole o código abaixo:

*OBS: Voce pode alterar a celula A1 da macro para a célula ideal dentro do seu formulário, neste caso considerei a A1.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Inserir_ID()

Application.EnableEvents = False

   With Range("A1")

     If .Value = "" Then

        .Value = Day(Now()) & Month(Now()) & Right(Year(Now()), 2) & Round(Timer(), 0)

     End If

    End With

Application.EnableEvents = True

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

• Feito isso feche a tela e vá até a aba "Exibição", clique em "Macros", -> "Vizualizar Macro".
• Selecione a macro "Inserir_ID" e vá em "Opções".
• Crie uma tecla de atalho para execução da macro preenchendo o campo correspondente.

Dessa forma a macro sera ativada todas as vezes que essa tecla for pressionada, e o campo estiver em branco, ou seja, já nao tenha outro numero preenchido, de outra ordem..

Isso te ajuda? Abs

Answer 2

Bom pelo que entendi, você está precisando é de uma variável do tipo integer!

Veja se esse codigo funciona com o seu form.

Public Sub Adicionar()

Dim linha As Integer

Dim conte As Integer

'comentario; Aqui eu digo que os dados da sua lista começa na linha "4", na coluna "A"

linha = 4

'comentario; Aqui eu digo que os dados da sua lista começa na linha "4", na coluna "A" e com o número "1"

conte = 1

'comentario; Aqui eu digo que os dados da sua lista estão numa planílha nomeada "Dados"

Do Until shtDados.Cells(linha, "A") = ""

linha = linha + 1

conte = conte + 1

Loop

shtDados.Cells(linha, "A") = conte

Espero que te ajude!!!