Mande para orcamento@exceldoseujeito.com.br

Não posso dar certeza de pegar o projeto por questão de agenda mesmo.
Mas, de repente, posso te dar uma luz no fim do túnel para você seguir o projeto.

Abç.

Legal o seu site.

Gostaria de saber como entrar em contato
contigo para te mostrar uma planilha que
desenvolvi e tirar umas dúvidas.
De repente até te contratar para fazer
um pequeno projeto.

Abraços,.

Fábio Queiroz

Esta rotina “UltimoDia” que você citou, infelizmente, ocorre num erro de lógica. Vou explicar.

Suponha que hj seja 5/12/2010.
A instrução do seria:

Subtrair 5 dias desta data. Resultado: 30/11/2010
Adicionar 1 mês a este resultado. Novo Resultado: 30/12/2010
Pegar a parte da data referente ao dia deste resultado. Resultado final: 30

Ou seja, ela retorna como dia 30 sendo o último dia do mês de Dezembro, quando deveria retornar dia 31.

Neste artigo, eu disponibilizei uma função para retornar o último dia de qualquer mês, em qualquer ano, inclusive, para o mês de fevereiro, que tem a variação entre 28 ou 29 dias.
Estão função, eu expliquei como retorno de resultado dentro de uma célula, e, informando os parametros, mas, também, pode retornar numa caixa de mensagem, e puxando a data atual como referência, como você sugeriu.

Exemplo:

MsgBox “Último dia do mês – ” & fnUltimoDiaDoMes(Year(Now()), Month(Now()))

Espero ter ajudado.
Abç

Abraços,

Bruno Gonçalves

Sub UltimoDia()
Dim DIA
Dim Data

Data = Now()

DIA = DatePart(“d”, DateAdd(“m”, 1, DateAdd(“d”, -Day(Data), Data)))

MSGBOX “Último dia do mês – ” & DIA
End Sub