Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Preencher Barra ao ...
 
Notifications
Clear all

Preencher Barra ao digitar numeros - Data

 
2024 - VBA & Macros
Post Recente por lmp 9 anos atrás
7 Posts
2 Usuários
0 Reactions
1,620 Visualizações
RSS
 lmp
(@lmp)
Posts: 17
Active Member
Topic starter
 

Pessoal, boa tarde!

Existe alguma macro em que eu possa determinar um intervalo em que só será preenchido datas e que ao digitar, por exemplo, 100515 apareça automaticamente 10/05/15? Como devo fazer isso? Grata desde já.

 
Postado : 30/06/2015 8:14 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

use a pesquisa do fórum!
http://www.google.com.br/cse?cx=partner ... data%20vba

Att

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

 
Postado : 30/06/2015 8:38 am
 lmp
(@lmp)
Posts: 17
Active Member
Topic starter
 

Prezado Alexandre, muito obrigada por ter fornecido as fontes.
Porém, sou muito leiga em macros e apesar de ter tentado por várias vezes incluir os códigos na macro, não consigo fazer funcionar.
Poderia me explicar como faço? Desculpe pela ignorância. Se puder me ajudar ou alguém puder, fico muito grata.

 
Postado : 30/06/2015 10:09 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja o arquivo modelo!
Na guia AleVBA digite na coluna A, uma série de número com 5 caracteres e o evento adicionará as barras automaticamente.

Att

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

 
Postado : 30/06/2015 10:13 am
 lmp
(@lmp)
Posts: 17
Active Member
Topic starter
 

Alexandre, muito obrigada.
No caso, utilizarei em várias colunas. Basta eu alterar o intervalo na macro? Devo fazer A1:M300; O1:O3000?
E tem possibilidade de nas células vazias aparecer o sinal "-"?

 
Postado : 30/06/2015 10:27 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Você quer determinar um intervalo?

If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub

A linha acima diz que o código só vai atuar no intervalo ("A1:A10").

Att

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

 
Postado : 30/06/2015 10:43 am
 lmp
(@lmp)
Posts: 17
Active Member
Topic starter
 

Sim. mas no meio da planilha tem uma coluna que não é de data, e sim de texto.

 
Postado : 30/06/2015 10:45 am
Forum Jump:
  Tópico Anterior
Próximo Tópico