Este fórum está sendo desativado

[pasedo]

Pessoal bom dia, preciso da ajuda de vocês para que quando eu clicar na celulas da coluna A o calendário abra e ao clicar na data ela seja inserida na celula que eu cliquei para abrir o calendario, mesno na celua A1 e A2 no momento consegui apaenas abrir o calendário na coluna A, se puderem me ajudar eu fico grato a vocês....abraços

[osvaldomp]

Veja se aproveita o arquivo anexo que baixei da NET há tempos.

[pasedo]

Obrigado Osvaldo, mas não consegui adaptar neste meu calendario.

[Reinaldo]

Crosshttps://www.tomasvasquez.com.br/forum/v ... 416#p25416

Talvez:
Altere-->ActiveSheet.Range("C2").Value = DateSerial(Me.cmbAno.Value, spMes.Value, lDia.Caption)
Para---->ActiveCell.Value = DateSerial(Me.cmbAno.Value, spMes.Value, lDia.Caption)

[osvaldomp]

Obrigado Osvaldo, mas não consegui adaptar neste meu calendario.

Eu passei o arquivo com a ideia de você adaptar o seu arquivo nele e esquecer o seu.