Este fórum está sendo desativado

[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

[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

[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

[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

[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.

[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 todos

Public Function EscolherData() As Date
On Error Resume Next
    DataPicker.Show
    EscolherData = DataPickerValor

End Function

Exemplo:

Código: Selecionar todos

txtData.value = EscolherData

[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!

[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