Vídeo recomendado
https://youtu.be/diWPPPhW-9E

colocar valor de userform calendar em célula

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
selhas
Colaborador
Colaborador
Mensagens: 31
Registrado em: Ter Mai 08, 2012 9:31 am

colocar valor de userform calendar em célula

Mensagem 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.
Anexos
calendario.zip
(81.52 KiB) Baixado 262 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
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

Mensagem 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


selhas
Colaborador
Colaborador
Mensagens: 31
Registrado em: Ter Mai 08, 2012 9:31 am

Re: colocar valor de userform calendar em célula

Mensagem por selhas »

Peço desculpa mas coloco como? e onde?


Avatar do usuário
Reinaldo
Jedi
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

Mensagem 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 282 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder