Fórmula retorna o total de semanas que passaram até a presente data e que faltam para terminar o ano
Saberexcel - Dicas de Fórmulas e Funções

Total de semanas que passaram até presente data:[ 30 ] faltam : [ 23 ] para terminar ano
="Total de semanas que passaram até presente data:[ "&F14& " ] faltam : [ "&F24&" ] para terminar ano"

Essas fórmulas retorna o total de semanas até a presente data

Célula(B4) inserir fórmula : =Hoje()

Fórmula =TRUNCAR(((B4-DATA(ANO(B4);1;0))+6)/7)
ou
Formula =INT((B4-DATA(ANO(B4);1;1))/7)+1

Retorna o útimo dia do mês de determanda data
Ex: 2/12/2010 : Retorna 31/12/2010
Fórmula usada : =DATA(ANO(E8);MÊS(E8)+F8+1;0)

Concatenando dados para uma mensagem para usuário:
Fiz um exemplo para visualizar melhor como aplicar essas fórmulas (bom proveito - E_Marcondes)

Até a presente data - [quarta-feira-28-julho-2010 ] passaram-se [ 30 ] semanas portanto, faltam [ 23 ] para terminar o ano de [ 2010 ] dia 31-dezembro
="Até a presente data - ["&TEXTO(E8;"dddd-dd-mmmm-aaaa")&" ] passaram-se [ "&F14&" ] semanas portanto, faltam [ "&F24& " ] para terminar o ano de [ "&ANO(E8) & " ] dia "& TEXTO(G8;"dd-mmmm")

Compre com segurança e garantia na maior loja do pais Lojas Submarino

Fórmulas com função Dia.da.semana calcula data de expedição
Saberexcel - Fórmulas e Funções

Essas fórmulas calcularam quando um determinado embarque dever ser feito, assumindo que os Isto calculará quando um embarque deve ser feito assumindo que os embarques sempre acontecem em um determinado lugar no mesmo dia (s) da semana

=A1-B1-DIA.DA.SEMANA(A1-B1-C1)

C4 = Data de entrega solicitada,
D4= Tempo em transito,
E4 = Dia.da.Semana (Domingo = 1. Ajuste este número para trabalhar com outros dias úteis como Segunda-feira = 2, Segunda= 3 Terça...etc..)
G4 = 10.876-AB (número do Romaneio de Entrega)

Note:
Ver o DIA.TRABALHO.TOTAL nos seus arquivos de Ajuda do excel que podem ser usados para calcular o tempo de chegada
(esta fórmula é basicamente o contrário do DIA.TRABALHO.TOTAL enquanto usamos fórrmulas simples para calcular a data de expedição)

note que com a acima mencionada fórmula primeira segunda fórmula às vezes há diferença entre a data solicitada
e calculei a data de chegada é 7 dias. (c1)

Fórmula concatenada - isto é juntando todos os dados pra formar a frase abaixo
Retorno Desejado:
"Se voce pretende entregar dia:[ 09-outubro-2010 ] com uma programação para entrega em [ 1 ] dias, programe sua entrega [10.876-AB ] para dia:03-out-2010"
Fórmula usada:

'="Se voce pretende entregar dia:[ "&TEXTO(C4;"dd-mmmm-aaaa")&" ] com uma programação para entrega em [ "&E4&" ] dias, "&"programe sua entrega ["&G4&" ] para dia:" &TEXTO(SE(C4-(C4-D4-DIA.DA.SEMANA(C4-D4-E4)+D4)=E4;C4-D4-DIA.DA.SEMANA(C4-D4-E4)+E4;C4-D4-DIA.DA.SEMANA(C4-D4-E4));"dd-mmm-aaaa")

A formula simples sem a concatenação e formatação de dados:
'=SE(C4-(C4-D4-DIA.DA.SEMANA(C4-D4-E4)+D4)=7;C4-D4-DIA.DA.SEMANA(C4-D4-E4)+7;C4-D4-DIA.DA.SEMANA(C4-D4-E4))

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Saberexcel - o site das macros
Excel Funções personalizadas retornam a Fórmula da célula
Funções retornam a fórmula usada em uma região e ou célula
Observem que o código Cell.FormulaLocal Retorna ou define a
fórmula para o objeto, usando referências de estilo A1 no idioma
do usuário.


Essa Função retorna a fórmula usada, mas em Ingles
Function Retorna_Formula(Cell As Range) As String
Retorna_Formula = Cell.Formula
End Function

Essa Funçao retorna a Fórmula usada em Portugues(Br-pt)
Function Retorna_Formula_Local(Cell As Range) As String
Retorna_Formula_Local = Cell.FormulaLocal
End Function

Aprenda tudo sobre o Aplicativo microsoft Excel VBA com Saberexcel

 FUNÇAO ENUM RETORNA VERDADEIRO OU FALSO SE IDADE FOR MAIOR QUE 20 ANOS
Saberexcel - Dicas de Funções e Fórmulas

Checando idade se Maior ou Menor que 20 anos
Se tiver mais de 20 anos retorna verdadeiro, senão falso

Exemplo:
Celula(C13) Digite: seu nome
Celula(C14) Digite: Sua data de nascimento (ex: 15/12/2000)
Célula(C15) Digite: a fórmula abaixo
=DATADIF(C14;HOJE();"y")

Célula(G13) Digite a fórmula:
=E(ÉNÚM(D14);(D14-1)<DATA(ANO(HOJE())-20;MÊS(HOJE());DIA(HOJE())))
'Esta formula retornará "VERDADEIRO OU FALSO" (se maior ou menor que 20)

Célula(G14) Digite a fórmula:
=SE(G13=VERDADEIRO;"você tem mais de 20 anos"; "você tem menos de 20 Anos")
'Esta formula irá retornar a condição da célula G13 (se maior ou menor de 20 anos)

Celula(G18) Digite a Formula:
="Prezado [ "&C13&" ] voce nasceu em [ "&TEXTO(C14;"dd-dddd-mmm-aaaa")&"]"&"portanto voce tem ["&C15&" ] anos. Então, "&G14
'Retorna: Prezado [ Paulo ] voce nasceu em [ 15-quarta-feira-dez-1965]portanto voce tem [44 ] anos. Então, você tem mais de 20 anos



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Compre com garantia e segurança das lojas SubMarino