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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
colocar valor de userform calendar em célula
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: colocar valor de userform calendar em célula
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
'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
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: colocar valor de userform calendar em célula
Voçe havia dito
E para ser acrescentado a linha em destaque na rotina ali mostrada.
Segue exemplo alterado
Subentendi que tenha alguma familiaridade com as rotinas....e a dificuldade é mesmo colocar o...
E para ser acrescentado a linha em destaque na rotina ali mostrada.
Segue exemplo alterado