Excel Contador automático a cada nova OS

[Revolucao]

Boa noite!!

 

Tenho uma Planilha de ordem de produção que tem um campo chamado numero da OS, Exemplo 0001, 0002, porém eu tenho que ficar digitando de forma manual, tem como deixar esse contador de forma automática a cada nova OS,

Planilha anexada

 

Obrigado!

Orçamentos e OS, OP.xlsx

[Midori]

Isso pode ser feito com macro e talvez com fórmula. Para incrementar esse número só terá que definir um evento que indique a nova OS. Se entendi sua planilha tem duas OS (TE01 e 02), nesse caso resolve colocar uma fórmula na célula B8 que conte esses registros?

[Revolucao]

Bom dia, Midori!!

Não entendo de VBA, e minha Planilha tem apenas um OS, esses números em amarelo é porque eu estava fazendo testes.

Continuo sem solução!!

[Midori]

Sem mais detalhes fica difícil ajudar... As informações da Ordem você escreve cada uma manualmente? Em que momento o incremento deve ser feito? O que quer dizer com "a cada nova OS"? Explique como podemos identiticar uma "nova OS" para criar o procedimento que fará o incremento automático.

[Revolucao]

 

 

Então Midori;

 

Para facilitar o entendimento eu anexo duas Planilhas.

1- Orçamentos-e-OS-OP_FUNCIONA

2- Orçamentos-e-OS-OP_AJUDA

 

A  numero 1 esta em uma planilha que um amigo ajustou para mim, porém tentei copiar esse mesmo código na Planilha2 e não funcionou, sera que voce consegue ajustar os códigos que estão na Planilha1 para a Planilha, eu tentei por horas e não deu certo.

 

Muito obrigado!!

Orçamentos-e-OS-OP_FUNCIONA.xlsx Orçamentos-e-OS-OP_AJUDA.xlsx

[Midori]

@Revolucao O código que você se refere é uma macro? Não tem nenhum código na planilha. Para anexar um arquivo com macros é preciso salvar no formato xlsm e compactar no formato zip.

[Revolucao]

Boa tarde, Midori!!

Segue arquivos anexados RAR.

 

Muito obrigado!!

arquivos.rar

[Midori]

@Revolucao Crie a aba Parametros, abra o editor de macros com o comando Alt+F11 e no menu escolha Inserir > Modulo. E cole o  código,

Sub GerarOS()
    Dim PlanParam As Worksheet
    Dim PlanOrdem As Worksheet
    
    Set PlanParam = ThisWorkbook.Sheets("Parametros")
    Set PlanOrdem = ThisWorkbook.Sheets("ORDEM DE PRODUCAO")
    
    PlanParam.[B2].Value = PlanParam.[B2].Value + 1
    PlanOrdem.[B8].Value = Format(PlanParam.[B2].Value, "00000")
End Sub

Sub RedefinirNumeroOS()
    Dim PlanParam   As Worksheet
    Dim Resp        As String

    Set PlanParam = ThisWorkbook.Sheets("Parametros")
    
    Resp = InputBox("Informe um número para redefinir o contador de OS", "Redefinir contador de OS", 0)
    Resp = Replace(Resp, ".", ",")
    
    If IsNumeric(Resp) Then
        If Resp >= 0 And (Fix(Resp) - Resp = 0) Then
            PlanParam.Range("B2").Value = Resp
        End If
    End If
End Sub

 

Aí é só salvar o arquivo no formato xlsm. Atribua as macros aos botões clicando com o direito sobre eles e escolhendo Atribuir Macro.

 

[Revolucao]

Boa tarde, Midori!!

Vou testar e te falo, obrigado por enquanto.

 

Muito obrigado!!

[Revolucao]

Bom dia, Midori!!
Apliquei a ordem de produção e deu certo.

Ai já ajustei para orçamentos e romaneio e deu certo.

 

Muito obrigado!!