Boa noite!!

Veja em:
http://www.sendspace.com/file/fl04hi

Para também contar os feriados, devem criar um intervalo com lista das datas que será feriado, esse é o ultimo parâmetro da função.

Att

Alexandre,

É exatamente isto que eu preciso.

Mas, se eu atualizar o primeiro dia do mês, a formula fica em: #NOME?

E quanto aos feriados, o que devo fazer para apresentá-los?

Lorenzon,

Boa Noite!

Veja se o arquivo anexo lhe atende.

Peço, por gentileza, de outras vezes que postar arquivos aqui no fórum, que faça antes a compactação do mesmo com ZIP, por menor que seja o mesmo, em atenção as regras do fórum.

Para testar, basta digitar qualquer data na célula C3 que o preenchimento do respectivo mês na linha 7 será automático.

Wagner,

ao alterar a data na célula c3, exemplo, abr/2014, da este erro:

Next
Case 3, 6, 9, 11
For i = 1 To 30
If i < 10 Then
Cells(7, i + 2).Value = CDate("0" & i & Resto) 'o erro é aqui!!
Else
Cells(7, i + 2).Value = CDate(i & Resto)
End If
Next
End Select
End If

Na linha:

Case 3, 6, 9, 11

Troque por:

Case 4, 6, 9, 11

Bom dia Lorenzom

Vou deixar a minha sugestão utilizando fórmulas:

Para testar selecione outro mês na célula C3:
A relação de feriados encontra-se na coluna X, e a relação dos meses, da lista de Validação, encontra-se na Coluna AA.

Dê retorno.

Pode clicar na mãozinha que fica do lado da ferramenta Citar para todos que tentaram ajudar, pois esta ação apenas agradece, não tem nada a ver com a ferramenta Tópico Resolvido.

[]s

Alexandre, Wagner e Patropi,

Os seus exemplos são ótimos, mas preferi o do Wagner, vocês de fato são bons!

Agradeço a cada um de vcs!

Wagner,

Resolvemos esta necessidade neste tópico: viewtopic.php?f=20&t=11533

O problema é que o código sugerido não funcionou no office 2007.

Sabe dizer-me a causa raiz do problema?

obs: o tópico lincado acima está trancado e, por conta disso, criei este.

Boa tarde!!

A minha postagem
viewtopic.php?f=20&t=11533
Não como aproveita-la e gravar uma macro de forma que tu faça uma adaptação?

Att

Resolvi criando uma fórmula assim:

Na célula A1, por exemplo, eu digito: agos/2014

dai na célula A2 eu ponho a seguinte formulá:

=FIMMÊS(a1;0)

ou seja, ela célula A2 retornará o ultimo dia de ago/2014 e assim sucessivamente.

dai, na linha horizontal, onde ficam os dias do mês, do 1° ao ultimo dia, (1, 2, 3, 4, 5, 6, 7.......31), eu utilizei a seguinte formula:

=SE(AA7="";"";SE(AA7+1<=$A$2;AA7+1;""))

OBS: AA7 refere-se a célula anterior, tipo, AA7 = 22, ou seja, esta formula esta na célula AA8.

Funcionou perfeitamente!