Notifications
Clear all

ultimo dia do mes vba excel

5 Posts
5 Usuários
0 Reactions
2,185 Visualizações
(@joanas)
Posts: 0
New Member
Topic starter
 

Olá,

eu tenho a seguinte informação:

mes ano
Junho 2015

e pretendo introduzir numa célula do excel a data do ultimo dia do mes em questão. por exemplo:
30/06/2015

eu estava a pensar fazer um if.. mas o meu problema é o mês de fevereiro. Podem ajudar?

Obrigada

 
Postado : 22/09/2015 9:49 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Precisa ser em VBA ? Quando diz que "pretende introduzir numa célula do excel a data do ultimo dia do mes em questão" seria atravez de uma rotina ou uma Function ?

Enquanto aguardamos, de uma olhada no link abaixo, tem até um modelo para baixar :
RETORNA O ÚLTIMO DIA DO MÊS VBA EXCEL
http://guiadoexcel.com.br/retorna-o-ultimo-dia-do-mes

Aqui não temos como baixar, mas a function é esta :

'Função que retorna o último dia do mês
Function gfUltimoDiaMes(ByVal vCel As String) As Date
    Dim lData As Date 'Dia do mês subsequente
    
    If Month(vCel) < 12 Then
        lData = "1/" & (Month(vCel) + 1) & "/" & Year(vCel)
    
    Else
    
        lData = "1/1" & "/" & Year(vCel) + 1
        
    End If
    
    'Dia do mês subsequente -1, ou seja, último dia do mês anterior
    lData = lData - 1
    
    'Retorna informação
    gfUltimoDiaMes = lData
    
End Function

A chamada da função =gfUltimoDiaMes(A1), sendo A1 = 01/02/2012 por exemplo e o retorno será 29/2/2012
A chamada da função =gfUltimoDiaMes(A1), sendo A1 = 01/02/2013 por exemplo e o retorno será 28/2/2013

 
Postado : 22/09/2015 10:38 am
(@issamu)
Posts: 0
New Member
 

Qual a aplicação exata que você deseja e como estão os dados?
Minha sugestão é utilizar a função nativa FIMMÊS. Veja o modelo na planilha anexa.

 
Postado : 22/09/2015 10:44 am
(@mprudencio)
Posts: 0
New Member
 

Se quiser fazer com formula =fimmes(hoje();0)

 
Postado : 22/09/2015 11:51 am
(@pfarias)
Posts: 0
New Member
 

Usa a função abaixo, caso não preciso do VBA

=DATA(ANO(HOJE());MÊS(HOJE())+1;1)-1
 
Postado : 22/09/2015 12:01 pm