Página 1 de 1
Calendário ao clicar em célula
Enviado: 28 Out 2019 às 11:51
por engrocha
Bom dia a todos!
Acredito que o necessito seja um pouco complicado, mas vamos lá!
Gostaria de uma forma de ao clicar nas células das coluna B (iniciando na B3) abrisse uma espécie de calendário para que eu possa escolher a data desejada.
Anexo exemplo para melhor entendimento.
Grato!
Rocha
Re: Calendário ao clicar em célula
Enviado: 28 Out 2019 às 12:15
por Jimmy
Olá Rocha,
Veja se este site te ajuda
https://fabiovianna.com.br/inserindo-um ... -no-excel/
Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.
Jimmy San Juan
Re: Calendário ao clicar em célula
Enviado: 28 Out 2019 às 19:19
por engrocha
Caro Jimmy, boa noite!
Como de costume, muito bom o material.
Consegui seguir os passos mas ainda não me atende 100%.
Acredito que agora preciso de um código que faça o DATE PICKER abrir quando eu click com o botão esquerdo uma ou 02 vezes.
Deixo o "joia" agradecendo a resposta, mas espero que continue me ajudando rsrs.
Grato!
Rocha
Re: Calendário ao clicar em célula
Enviado: 28 Out 2019 às 20:42
por Jimmy
Olá Rocha,
Putz.. acho que posso te dar uma orientação, mas não resolver o problema. Ocorre que tem muitas bibliotecas para office 32bits que não tem no de 64, e eu fiz a besteira de instalar o 64. Esse controle é um dos que não tem no 64. Até tem umas orientações na internet de como fazer ter, uma vez segui uma delas e não deu. Como por enquanto não uso isso, deixei pra lá.
Eu te oriento a acionar o gravador de macros, ativar o controle, e ver o código gerado. Depois você o adapta e o coloca no evento CHANGE da planilha, com restrição para a(s) célula(s) que quer o calendário.
Se colocar pra gravar, ativar o calendário e me mandar a planilha, eu posso adaptar meio às cegas, sem poder testar, mas... acho que vale.
Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.
Jimmy San Juan
Re: Calendário ao clicar em célula
Enviado: 29 Out 2019 às 11:49
por osvaldomp
O arquivo anexo catei na NET há tempos, veja se aproveita.
Duplo clique na célula em que deseja inserir a data e clique na data no calendário pop up para inseri-la.
Re: Calendário ao clicar em célula
Enviado: 29 Out 2019 às 11:56
por eduardogrigull
Eu fiz um form DataPicker há um tempo atrás... Está meio arcaico, mas funciona normalmente.
Voce importa o arquivo que está em anexo diretamente do editor do Visual Basic.
Para definir a data, basta adicionar essa função em algum módulo, e usar o exemplo a seguir
Função:
Código: Selecionar todosPublic Function EscolherData() As Date
On Error Resume Next
DataPicker.Show
EscolherData = DataPickerValor
End Function
Exemplo:
Re: Calendário ao clicar em célula
Enviado: 29 Out 2019 às 16:15
por engrocha
Sr. Oswaldo, muito obrigado!
99% pronto, preciso agora somente que a função funcione só na coluna B (Range ("B1:B500")).
Você pode adequar o código para está funcionalidade?
Desde já agradeço,
Rocha!
Re: Calendário ao clicar em célula
Enviado: 29 Out 2019 às 18:25
por osvaldomp
No código existente no módulo da Plan1 acrescente a linha em vermelho conforme abaixo.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B1:B500]) Is Nothing Then Exit Sub