ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Qua Ago 22, 2018 3:16 pm

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 137 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: 1422
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 » Qua Ago 22, 2018 8:00 pm

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


Reinaldo
:oops: :D :mrgreen: :geek:

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 » Qui Ago 23, 2018 9:44 am

Peço desculpa mas coloco como? e onde?



Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1422
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 » Qui Ago 23, 2018 1:23 pm

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


Reinaldo
:oops: :D :mrgreen: :geek:

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