Notifications
Clear all

calendario no excel  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
07/09/2009 8:56 am  

Estou fazendo um relatório onde o usuário precisa colocar a data de início e fim do serviço. Quero que, quando o usuário clicar na célula, apareça um calendário para ele selecionar a data e então ficar a data escolhida na célula. É possível? Como faço isso?

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


Citar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
07/09/2009 2:46 pm  


Elton.. acho que só através de programação(VBA).

Pode ser?

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
15/09/2009 1:24 pm  

Elton,

- Na planilha que você deseja adicionar o controle, nomeia as células onde deverá entrar as datas, no exemplo eu coloquei no nome das celulas como "Datas".

- No editor do VBA crie um UserForm e coloque nele um controle de calendário (caso o controle de calendário não esteja na Caixa de ferramentas vá em Ferramentas, Controles Adicionais, role a lista até Calendar Control e marque a caixa de seleção à sua frente.

- Click duas vezes sobre o calendário e cole o código:

ActiveCell.Value = Calendar1.Value
UserForm1.Hide

- No código da planilha, cole este código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("Datas")) Is Nothing Then
        UserForm1.Show
    End If
End Sub

Em anexo, coloquei um modelo:

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
15/09/2009 2:23 pm  

Cara,

Que massa isso! muito bom, muito mesmo!

Mais uma série "Coisas que a gente só vê no planilhando"

Abraços.

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
19/02/2011 9:55 am  

Ressucitando o topico...
Gostaria de saber como jogar o valor do calendario em uma textbox e chama-lo atraves de um command buton?

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
20/02/2011 10:15 pm  

Elton,

- Na planilha que você deseja adicionar o controle, nomeia as células onde deverá entrar as datas, no exemplo eu coloquei no nome das celulas como "Datas".

- No editor do VBA crie um UserForm e coloque nele um controle de calendário (caso o controle de calendário não esteja na Caixa de ferramentas vá em Ferramentas, Controles Adicionais, role a lista até Calendar Control e marque a caixa de seleção à sua frente.

- Click duas vezes sobre o calendário e cole o código:

ActiveCell.Value = Calendar1.Value
UserForm1.Hide

- No código da planilha, cole este código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("Datas")) Is Nothing Then
        UserForm1.Show
    End If
End Sub

Em anexo, coloquei um modelo:

Amigo, nao consegui vizualizar a sua planilha..

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
20/07/2012 6:57 pm  

Muito obrigado!!!
Era tudo que eu precisava.... :D
Deixei minha planilha de controle muito mais dinâmica com isso!!!
Valeu!!!
---------------

Elton,

- Na planilha que você deseja adicionar o controle, nomeia as células onde deverá entrar as datas, no exemplo eu coloquei no nome das celulas como "Datas".

- No editor do VBA crie um UserForm e coloque nele um controle de calendário (caso o controle de calendário não esteja na Caixa de ferramentas vá em Ferramentas, Controles Adicionais, role a lista até Calendar Control e marque a caixa de seleção à sua frente.

- Click duas vezes sobre o calendário e cole o código:

ActiveCell.Value = Calendar1.Value
UserForm1.Hide

- No código da planilha, cole este código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("Datas")) Is Nothing Then
        UserForm1.Show
    End If
End Sub

Em anexo, coloquei um modelo:

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


ResponderCitar (Quote)
Lorenzon
(@lorenzon)
Reputable Member
Entrou: 7 anos atrás
Posts: 355
05/05/2013 5:11 am  

Olá Pessoal,

Muito interessante. Utilizei no meu projeto.

Mas, ficaria ainda melhor se, ao clicarmos na data do calendário, esta fosse para célula selecionada.

Tem como?


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
05/05/2013 4:57 pm  

Boa noite Lorenzon

O site abaixo mostra como fazer o que vc deseja:

http://guiadoexcel.com.br/calendario-no-excel-2010

Um abraço.

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
21/02/2014 10:21 am  

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

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


ResponderCitar (Quote)
Compartilhar: