Na célula A2, digite a fórmula seguinte e depois copie-a até a linha 32 da mesma coluna.
no lugar dessa forma
=SE(MÊS($A$1+LIN()-LIN($A$1)-1) = MÊS($A$1);$A$1+LIN()-LIN($A$1)-1;””)
alterei deixando assim
=SE(MÊS($K$9)=MÊS($K$9+LIN($K$9)-LIN($K$9));($K$9+LIN($K$9)-LIN($K$9));””)

e no lugar dessa
=SE(A2=””;””;SE(VerificaSeFeriado(A2);”Feriado”;””))

ficou assim
=SE(A13=””;””;SE(MÊS($K$9)=MÊS(A13+LIN(A13)-LIN(A13)+1);(A13+LIN(A13)-LIN(A13)+1);””))

segue o linck para verem como ficou, obrigado pela ajuda, se precisarem podem usar ai.

https://skydrive.live.com/redir.aspx?cid=b1ab94e13a8e512a&resid=B1AB94E13A8E512A!759&parid=B1AB94E13A8E512A!571&authkey=!AIkUlX4OuvTqZKM

Quanto a sua pergunta, vi o teu arquivo constatei dois problemas no seu projeto VBA:

1. Você escreveu o código público do Módulo1 também num módulo da Plan1. Isso não é bom.
2. Você nomeou o seu projeto VBA com o mesmo nome da função pública VerificaSeFeriado. Não pode. Troque o nome do seu projeto.

Com essas correções a macro funcionará perfeitamente.

Um grande abraço,

Reinaldo

o meu excel 2003 diz q a formula esta errada, sera q poderia ajudar a me dizer onde estou errando.
se puder ajudar segue o linck da que eu to tentando fazer.

https://skydrive.live.com/redir.aspx?cid=b1ab94e13a8e512a&resid=B1AB94E13A8E512A!759&parid=B1AB94E13A8E512A!571&authkey=!AIkUlX4OuvTqZKM

grato pela atenção

=SE(MÊS($B$2+LIN()-LIN($B$2)-2+21) = MÊS($B$2)+1;SE(DIA($B$2+LIN()-LIN($B$2)-2+21) <21;$B$2+LIN()-LIN($B$2)-2+21;”");$B$2+LIN()-LIN($B$2)-2+21)

Os 21 que estão em negrito, é a dia inicial, que, dependendo de como queria automatizar a planilha você pode definir numa célula a parte e adaptar na fórmula.
Abç

Resolva usando uma fórmula personalizado com VBA.
Inicie o VBA (ALT+F11). Insira um módulo.
Crie a função abaixo:

Public Function NumeroDaSemana(ByVal rngData As Range) As Integer

If rngData.Rows.Count = 1 And rngData.Columns.Count = 1 Then
If IsDate(rngData.Value) Then
NumeroDaSemana = Format(rngData.Value, “ww”, vbSunday, vbFirstFourDays)
Else
NumeroDaSemana = 0
End If
Else
NumeroDaSemana = 0
End If
End Function

Encerre o VBA e volte a planilha.

Digite na célula que você quer mostrar o resultado:

=NumeroDaSemana(A1)

Pronto.

Não consegui configurar apenas por fórmulas prontas, por isso sugiro utilizar a macro acima.

Abraço.

Realmente tem vários erros destes. Ainda não consegui um visualizador de códigos bom para colocar no meu site. A digitação é toda correta, mas o script da página estraga vários caracteres do código. Por isso, sempre disponibilizo o arquivo fonte para download. Nele está todo o código sem alterações.

Abração.

Gostaria primeiramente de parabeniza-lo pelo excelente trabalho que você está fazendo neste site, que não deixa nada a desejar a outros bons sites que conheço na França / USA, parabens novamente.

Meu amigo, você poderia me ajudar em um problema que está me perseguindo a muito tempo e ainda não encontrei uma boa solução:
Eu preciso identificar em um planilha de datas (tipo cronograma) a número da semana (por ex.: 22/07/2010 = semana 29), utilizando as funções NÚMSEMANA()ou Weeknum()obtenho o resultado (30), pois excel utiliza o principio americano para datas.
Eu necessito de uma ajuda para encontrar o correto número da semana com as seguintes condiçoes:
- O primeiro dia da semana deve ser um domingo
- A primeira semana do ano deve ter pelo menos 4 dias, ou seja se dia 01/Jan cair de domingo à quarta-feira esta seria a Semana 1, caso contrário (de quinta à sábado)esta seria então a última semana do ano anterior (Semana 52)

A formula abaixo é a que utilizo e que se aproxima das minhas necessidades

=SE(NÚMSEMANA(A1;1)-1=0;NÚMSEMANA(A1;1);NÚMSEMANA(A1;1)-1)

Onde A1 = data que necessito identificar a semana

Agradeço pela sua grande e importante ajuda.

Abraços

Ete