Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Utilize essa sessão para postar e solucionar desafios de Excel, matemáticos, lógicos, etc...
  • Avatar do usuário
  • Avatar do usuário
  • Avatar do usuário
Avatar do usuário
Por GENECI
Avatar
#10926
Boa tarde!
Sou novo no Fórum.
Solicito a sua ajuda para solucionar o problema.
Na célula A1 tenho a fórmula =hoje()
Na célula A2 tenho o número 1413
Na célula A3 favor desenvolver uma fórmula que faça o seguinte: Um contador automático de modo que quando o dia da semana for uma terça-feira a fórmula vai somar + 1 e apresentar o numero 1414.
Quando o dia da semana for uma quinta-feira a fórmula vai somar + 1 e apresentar o numero 1415.
Quando o dia da semana for um sábado a fórmula vai somar + 1 e apresentar o numero 1416.
E assim segue a contagem sequencial de acordo com os dias terças, quintas e sábados.

Muito obrigado - GENECI.
Avatar do usuário
Por FelipeMGarcia
Avatar
#10931
Geneci, eu fiz a fórmula na célula A3.

Veja se é o que precisa.

Abs
Avatar do usuário
Por Parkeless
Posts Avatar
#10955
Bom dia!

Se entendi certo, os dias tem que somar conforme forem passando os dias; o problema de fazer por fórmula é que ela vai se limitar à primeira semana (por exemplo, a segunda terça retornará +1 ao invés de +4).

Bom, fiz através de função personalizada; para utilizar, vá na planilha, dê alt + F11, vá em Inserir - Módulo e cole o código abaixo:
Código: Selecionar todos
Function Soma1(DataInicial As Date, DataFinal As Date)

Dim Diferença As Long
Dim i As Long

Diferença = DataFinal - DataInicial

For i = 0 To Diferença
    Select Case Weekday(DataInicial + i)
        Case 3
            Soma1 = Soma1 + 1
        Case 5
            Soma1 = Soma1 + 1
        Case 7
            Soma1 = Soma1 + 1
    End Select
Next i


End Function
Depois feche a janela do VBE, e digite em qualquer célula: =Soma1([data inicial];[data final]).
A planilha deve ser salva em formato .xlsm.

Estou anexando uma planilha exemplificando a aplicação.
Avatar do usuário
Por GENECI
Avatar
#10964
FelipeMGarcia escreveu:Geneci, eu fiz a fórmula na célula A3.

Veja se é o que precisa.

Abs
GENECI escreveu:Boa tarde!
Sou novo no Fórum.
Solicito a sua ajuda para solucionar o problema.
Na célula A1 tenho a fórmula =hoje()
Na célula A2 tenho o número 1413
Na célula A3 favor desenvolver uma fórmula que faça o seguinte: Um contador automático de modo que quando o dia da semana for uma terça-feira a fórmula vai somar + 1 e apresentar o numero 1414.
Quando o dia da semana for uma quinta-feira a fórmula vai somar + 1 e apresentar o numero 1415.
Quando o dia da semana for um sábado a fórmula vai somar + 1 e apresentar o numero 1416.
E assim segue a contagem sequencial de acordo com os dias terças, quintas e sábados.

Muito obrigado - GENECI.
Boa tarde! Muito obrigado por atender a minha solicitação.
A fórmula elaborada tem uma divergência más esta correta, porém esta considerando os dias terças, quintas e sextas.

Por favor, pode alterar a fórmula para atender os dias de terças, quintas e sábados.

Muito obrigado - GENECI.
Avatar do usuário
Por GENECI
Avatar
#10968
Parkeless escreveu:Bom dia!

Se entendi certo, os dias tem que somar conforme forem passando os dias; o problema de fazer por fórmula é que ela vai se limitar à primeira semana (por exemplo, a segunda terça retornará +1 ao invés de +4).

Bom, fiz através de função personalizada; para utilizar, vá na planilha, dê alt + F11, vá em Inserir - Módulo e cole o código abaixo:
Código: Selecionar todos
Function Soma1(DataInicial As Date, DataFinal As Date)

Dim Diferença As Long
Dim i As Long

Diferença = DataFinal - DataInicial

For i = 0 To Diferença
    Select Case Weekday(DataInicial + i)
        Case 3
            Soma1 = Soma1 + 1
        Case 5
            Soma1 = Soma1 + 1
        Case 7
            Soma1 = Soma1 + 1
    End Select
Next i


End Function
Depois feche a janela do VBE, e digite em qualquer célula: =Soma1([data inicial];[data final]).
A planilha deve ser salva em formato .xlsm.

Estou anexando uma planilha exemplificando a aplicação.

Muito obrigado.
Pelo código VBA, que contém outras informações relevantes.
É apenas um contador automático que vai adicionando de acordo com os dias da semana. Terça, Quinta e Sábados.

Grato - GENECI.

=SE(MÊS(A1)<7;"1º sem&a[…]

Bom Dia Senhores. Tenho uma macro que preciso dei[…]

Free relationships without drama and obligations. […]

Girar Imagem e Zoom

Boa noite Teria alguma forma de dar um "[…]

Valeu. Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia C[…]

Procv com serro em vba

Resolvido

Bom dia, pessoal! com a data de nascimento e data […]

Estamos migrando para uma comunidade no Discord