Compartilhar via

Fórmula se com 2 condições.

Anônima
2024-10-15T18:49:18+00:00

Para o Office 2016, necessito elaborar uma fórmula na célula C2.

Se o valor da célula b2, for maior que 1, na célula c2 nada acontece.

Se o valor da célula b2, for igual a zero ou célula vazia, na célula c2, apresentar a data de hoje, como uma constante, exemplo se abrir o arquivo após 45 dias a data que foi registrada na época permanece.

Grato.

Microsoft 365 e Office 365 | Instalar, resgatar, ativar | Para uso doméstico | Outro

Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.

0 comentários Sem comentários

5 respostas

Classificar por: Mais útil
  1. Anônima
    2024-10-19T08:21:08+00:00

    Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

    Olá, GENECI SOUZA

    O VBA será mais flexível em comparação com as fórmulas.

    Estou muito honrado em poder ajudá-lo a resolver seus problemas. Para ajudar outros clientes que possam estar enfrentando o mesmo problema, escolha 'Sim' abaixo da postagem que tinha a solução para você. Isso destaca as informações para outros clientes. Obrigado pela sua cooperação.

    Felicidades

    Aiden.C - MSFT |Especialista em suporte da comunidade Microsoft

    Esta resposta foi útil?

    0 comentários Sem comentários
  2. Anônima
    2024-10-17T18:17:38+00:00

    Boa tarde!

    Na fórmula não obtive o resultado conforme solicitação.

    No VBA funcionou ótimo, excelente.

    Grato,

    Geneci.

    Esta resposta foi útil?

    0 comentários Sem comentários
  3. Anônima
    2024-10-16T16:38:27+00:00

    Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

    Olá, GENECI SOUZA

    Desculpe, usei uma pontuação errada no meio da fórmula, deve ser o, sinal, altere-o da seguinte forma:

    =SE(B2>1,"",SE(OU(B2=0,ÉCÉL.VAZIA(B2)),HOJE(),""))
    

    Então, em relação ao código VBA, é importante observar que os nomes das planilhas devem ser consistentes:

    Defina ws = ThisWorkbook.Sheets("Sheet1") esta frase na planilha 1 para Planilha1:

    Espero que as informações acima possam ajudá-lo. Sinta-se à vontade para enviar uma mensagem se precisar de mais ajuda.

    Felicidades

    Aiden.C - MSFT |Especialista em suporte da comunidade Microsoft

    Esta resposta foi útil?

    0 comentários Sem comentários
  4. Anônima
    2024-10-16T15:09:42+00:00

    Boa tarde!

    Não funcionou, apresentou as mensagens de erro.

    Favor efetuar as correções.

    Grato.

    Esta resposta foi útil?

    0 comentários Sem comentários
  5. Anônima
    2024-10-16T06:43:48+00:00

    Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

    Olá, GENECI SOUZA

    Obrigado por usar os produtos da Microsoft e publicá-los na comunidade.

    A fórmula pode fazer a maioria de suas condições, mas não pode fazê-lo em uma constante, que é a fórmula:

    =SE(B2>1, "", SE(OU(B2=0; ÉCÉL.VAZIA(B2)), HOJE(), ""))
    

    Observe, no entanto, que a função HOJE() no Excel atualiza dinamicamente a data. Se quiser que a data permaneça a mesma, você pode copiar e colar o valor de C2 como um valor (usando a função "Colar como valor") depois de inserir a fórmula pela primeira vez.

    Mas o VBA pode fazer isso, mas leva um pouco mais de etapas:

    Abra um arquivo do Excel e pressione Alt + F11 para abrir o editor VBA.

    Selecione Inserir > módulo no menu para adicionar um novo módulo.

    Cole o seguinte código no módulo:

    Sub UpdateDate() 
    
        Dim ws As Worksheet
    
        Set ws = ThisWorkbook.Sheets("Sheet1")
    
        If ws.Range("B2").Value <= 1 Then
    
            If IsEmpty(ws.Range("B2").Value) Or ws.Range("B2").Value = 0 Then
    
                If IsEmpty(ws.Range("C2").Value) Then
    
                    ws.Range("C2").Value = Date
    
                End If
    
            End If
    
        End If
    
    End Sub
    

    Feche o editor VBA e retorne ao Excel.

    No Excel, pressione Alt + F8, selecione UpdateDate e clique em Executar.

    Esta macro verifica o valor de B2 e se B2 for igual a zero ou nulo e C2 for nulo, a data de hoje será preenchida em C2. A data será mantida como constante e não será atualizada automaticamente. Ajuste "Sheet1" no código de acordo com o nome real da planilha.

    Espero que as informações acima possam ajudá-lo. Sinta-se à vontade para enviar uma mensagem se precisar de mais ajuda.

    Felicidades

    Aiden.C - MSFT |Especialista em suporte da comunidade Microsoft

    Esta resposta foi útil?

    0 comentários Sem comentários