Notifications

Clear all

TextBox que conta progressivamente

Formulários

Post Recente por FCARVALHO 11 anos atrás

7 Posts

2 Usuários

0 Reactions

1,764 Visualizações

RSS

FCARVALHO

(@fcarvalho)

Posts: 19

Active Member

Topic starter

Olá Boa noite!

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

Fernando Fernandes

(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 19/11/2013 7:55 pm

FCARVALHO

(@fcarvalho)

Posts: 19

Active 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

(@fcarvalho)

Posts: 19

Active 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

(@fcarvalho)

Posts: 19

Active 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

Fernando Fernandes

(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 20/11/2013 7:09 am