Olá Pessoal, Boa Noite
Estou fazendo uma planilha para listar os dias dos meses mediante seleção do mês em lista lista suspensa.
Exemplo: Ao selecionar o mês de Junho na coluna A da linha 5 (Lista Suspensa) os dias do mês selecionado deverão ser exibidos automaticamente a partir da linha 6 coluna A.
Fiz um código, mas ele está baseado em buscar o mês de uma célula e não da lista suspensa. Dessa forma, ele funciona, mas pegando da Lista Suspensa não.
Obs.: Ele atualiza os dias somente quando pressiono a tecla F5 no VBA, mas preciso que ao selecionar o mês na lista suspensa os dias do mês sejam listados.
Peço a ajuda de vocês....
Segue o código:
-------------------------------------------------------------------------------------------------------------------------------------
Sub InserirMes()
Dim mes As String
mes = Range("A5").Value
Dim ano As String
ano = Range("B5").Value
Dim Data As String
Dim i As Integer
Dim linha As Long
linha = 7
Dim coluna As Long
coluna = 1
Dim MStr
For i = 1 To 31
Data = i & "/" & mes & "/" & ano
If IsDate(Data) Then
MStr = Format(Data, "dd/mmm/yyyy")
Cells(linha, coluna).Value = MStr
End If
linha = linha + 1
Next i
End Sub
-------------------------------------------------------------------------------------------------------------------------------------