Notifications
Clear all

ultimo dia do mes vba excel

5 Posts
5 Usuários
0 Reactions
2,201 Visualizações
(@joanas)
Posts: 48
Eminent 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
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/09/2015 10:38 am
Issamu
(@issamu)
Posts: 605
Honorable 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.

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 22/09/2015 10:44 am
(@mprudencio)
Posts: 2749
Famed Member
 

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

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 22/09/2015 11:51 am
pfarias
(@pfarias)
Posts: 265
Reputable Member
 

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

=DATA(ANO(HOJE());MÊS(HOJE())+1;1)-1

Pietro Farias

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

ANALISTA X

 
Postado : 22/09/2015 12:01 pm