Infelizmente algumas atualizações das versões do excel regrediram, pelo menos no quesito complementos, mas se quer somente o MES e ANO e que o dia seja sempre o dia primeiro, e observando em sua imagem ve-se que tem os dois combos (MES e ANO) porque utilizar o Calendar, carregue os combos com os meses e anos e defina uma variavel com o dia = a 1 e monte a data completa no resultado.
Supondo que seus combos tenham os seguintes nomes :
cbo_meses e cbo_Anos, no Evento Initialize do formulário coloque a rotina abaixo :
Private Sub UserForm_Initialize()
Dim k As Byte
Dim x
Dim sMes
Dim sAno
sMes = Month(Date) - 1
sAno = Year(Date)
For k = 1 To 12
cbo_meses.AddItem MonthName(k)
Next k
cbo_meses.ListIndex = sMes
For x = 2015 To 2020
cbo_Anos.AddItem (x)
Next x
cbo_Anos.Value = sAno
End Sub
Como não indicou como faz para obter o retorno, coloque a rotina abaixo em novo botão ou o que você utiliza, só ajuste o nome do botão :
Private Sub CommandButton1_Click()
Dim data_completa As Date
Dim sDia, vMes, vAno
sDia = 1
vMes = cbo_meses.Value
vAno = cbo_Anos.Value
data_completa = sDia & "/" & vMes & "/" & vAno
MsgBox data_completa
End Sub
Espero que seja isto e ajude.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 16/09/2015 7:13 pm