TextBox que conta p...
 
Notifications
Clear all

TextBox que conta progressivamente

7 Posts
2 Usuários
0 Reactions
1,760 Visualizações
(@fcarvalho)
Posts: 19
Eminent Member
Topic starter
 

Olá Boa noite! :D

Pesquisei nos topicos, mas não encontrei nada, na verdade acho que pesquisei errado.rs :?:

Estou criando um cadastro para gerar algo como se fosse um protocolo de recebimento de mercadoria, para que toda vez que ele fosse aberto, no campo numero de protocolo, essa textbox fosse preenchida em forma numérica de acordo com o ano-mes-dia-hora-minuto-segundo)
Ex: 20131119205430

Gostaria de saber se tem como uma textbox que tenha caractéres numéricos não editaveis pelo usuario, se auto preenchesse dessa forma.

Caso não tenha nenhum tópico referente a isso, eu mando a planilha.

Abraço!

 
Postado : 19/11/2013 6:08 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

FCarvalho, como postou no Forum Formulários, acredito que está se referindo a um controle Textbox do formulário, então, para conseguir a formatação que pretende, utilize :

Private Sub CommandButton1_Click()

    TextBox1.Value = Format(Now(), "yyyymmddHhNnSs")
    
End Sub

Está associada a um CommandButton, só para ver como é, se quiser que ao abrir o Formulário o TextBox já venha com a sequencia numerica é só utilizar no Evento Initialize do Formulário:

Private Sub UserForm_Initialize()
    
    TextBox1.Value = Format(Now(), "yyyymmddHhNnSs")
    
End Sub

[]s

 
Postado : 19/11/2013 7:55 pm
(@fcarvalho)
Posts: 19
Eminent Member
Topic starter
 

Mauro,

Funcionou perfeitamente.

Muito obrigado!

Pena que só dá para clicar na mãozinha 1x! kkkk :lol:

 
Postado : 20/11/2013 6:33 am
(@fcarvalho)
Posts: 19
Eminent Member
Topic starter
 

Aproveitando,

Tenho outro form que uso para gerar ordens de serviço. Como faço para fazer ele gerar sequencialmente contando sempre +1 na textbox?

 
Postado : 20/11/2013 6:35 am
(@fcarvalho)
Posts: 19
Eminent Member
Topic starter
 

Esqueci de mencionar que ele tem que contar +1 baseado no ultimo valor salvo na planilha.

Ex:
CLIENTE NOTA FISCAL PROTOCOLO DATA RECEBIMENTO QTD EQUIP. Nº O.S.
MACHADO GPS SEM NOTA R20131120092910 19/11/2013 9 998
SIMOVA SEM NOTA R20131120093029 20/11/2013 17 999

Sendo assim o proximo numero de O.S. seria "1000", depois "1001"... e assim por diante.

 
Postado : 20/11/2013 6:49 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pelas informações que colocou, estou supondo que os Nº OS estão na Coluna G.
Como já tem OSs cadastradas, vamos fazer da seguinte forma :
Excel 2003 :
1º ) Menu Inserir / Nome / Definir
Digite em Nomes : Nº_OS
No Campo "Refere-se a.." cole a formula : =DESLOC(Plan1!$G$1;0;0;CONT.VALORES(Plan1!$G:$G);1)
O destaque em vermelho na formula é para você ajustar de acordo com o nome da aba que tem as OS(s).
Clique em OK para fechar a janela.

2º) Em uma celula qualquer coloque a seguinte formula:
=MÁXIMO(Nº_OS)+1

Supondo que colocou a formula em M1, quando abrir o Formulário, no evento Initialize, coloque:
Textbox2.Value = Range("M1")

No passo 2, você tambem pode definir um nome para o range em que colocou a formula, se definir "numSeqOs", ficaria assim:
Textbox2.Value = Range("numSeqOs")

[]s

 
Postado : 20/11/2013 7:09 am
(@fcarvalho)
Posts: 19
Eminent Member
Topic starter
 

Mauro,

muito obrigado amigo!

Funcionou perfeitamente. Adequei a algumas particularidades da planilha e ficou "zero bala"!

:lol:

abraço

 
Postado : 20/11/2013 12:38 pm