Guru do Excel e Power BI

Boa noite

Atualmente, possuo um calendário em userform que utilizo para entregar determinado mês e ano para determinada macro:

Adaptei esse calendário para os propósitos necessários e necessito apenas da caixa de seleção de mês e ano (o dia sempre como 1), e que ele me entregue essa data para a macro, oque acontece normalmente hoje:

O problema é que esse calendário não funciona em todos os computadores, parece que é algum problema de não ter o calendario nas versões posteriores a 2010.. Gostaria de uma sugestão para substitui-lo e que funcione em todas as versões do Excel.

Segue também a referencia do calendário, o calendar control

Agradeço desde já,

Bom dia!!

Eu não sei se percebi direito, mas os problemas será apenas a referência das instalações em será usado o calendário.

Se o calendário deve ser usado, te garanto que não haverá como evitar o uso de VBA (a não ser que você queira fazer um calendário na célula do excel via formula).

Att

Matheus, não tenho nada contra de se utilizar de mais de um forum para conseguir soluções mais rápida, mas lembre-se de atualizar todos quando da resposta positiva em um deles.

Esta questão foi resolvida no Forum : http://www.planilhando.com.br/forum/vie ... 10&t=17378 com a seguinte sugestão :
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 :

Código: Selecionar todos

 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 :

Código: Selecionar todos

    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

[]s

Guru do Excel e Power BI

Caixa de seleção de Mês e ano (userform) - Calendar Control

Caixa de seleção de Mês e ano (userform) - Calendar Control

Re: Caixa de seleção de Mês e ano (userform) - Calendar Cont

Re: Caixa de seleção de Mês e ano (userform) - Calendar Cont