Página 1 de 1

colocar valor de userform calendar em célula

Enviado: Qua Ago 22, 2018 3:16 pm
por selhas
Olá pessoal

Mais uma vez venho chatear, preciso do seguinte:
tenho uma folha com um botão que ao clicar abre a userform "calendário" e o que pretendo é ao clicar no dia pretendido ele feche a userform coloque a data na célula C2.

Em anexo vai o inicio e a dificuldade é mesmo colocar o dia na célula.

Re: colocar valor de userform calendar em célula

Enviado: Qua Ago 22, 2018 8:00 pm
por Reinaldo
Experimente:
'Retorna o dia selecionado
Sub SelecionaDia(lDia As MSForms.Label)
If lDia.Caption = "" Then Exit Sub
vDateSelectedVar = DateSerial(Me.cmbAno.Value, spMes.Value, lDia.Caption)
'Inclui o valor em c2
ActiveSheet.Range("C2").Value = DateSerial(Me.cmbAno.Value, spMes.Value, lDia.Caption)

'Oculta o formulário
Me.Hide
End Sub

Re: colocar valor de userform calendar em célula

Enviado: Qui Ago 23, 2018 9:44 am
por selhas
Peço desculpa mas coloco como? e onde?

Re: colocar valor de userform calendar em célula

Enviado: Qui Ago 23, 2018 1:23 pm
por Reinaldo
Voçe havia dito
...e a dificuldade é mesmo colocar o...
Subentendi que tenha alguma familiaridade com as rotinas.
E para ser acrescentado a linha em destaque na rotina ali mostrada.
Segue exemplo alterado
calendario.zip
(85.22 KiB) Baixado 138 vezes