Este fórum está sendo desativado

[PeDrum]

Tenho duas dúvidas.

Estou usando a função "=CONT.VALORES" para calcular a quantidade de contratos e a "=SOMA" para somar claro. Mas tem contratos que as vezes dão errado e não posso remover o mesmo da planilha. Gostaria de saber como adiciono uma exceção nessas fórmulas, ou seja, excluir uma linha especifica da contagem de valores e da soma, seja usando outra fórmula ou preenchendo com alguma cor.

A outra dúvida é referente as exibições de valores, ou seja; Falso e Verdadeiro. Como faço para substituir essas palavras. Falso = X, Verdadeiro = V, ou qualquer outro nome.

[Jimmy]

Olá Pedrum,

Difícil resolver sem a planilha, mas no caso dos contratos, você pode tentar usar o Cont.se e o Somase / Somases.

No caso do verdadeiro e falso, você pode colocar isso dentro de um SE, Ex.: =Se(condição que gera verdadeiro ou falso = Falso;"Texto1";"Texto2"), mas, novamente, sem a planilha pode não ser uma solução boa, ou até mesmo nem ser uma solução.

Jimmy San Juan

[PeDrum]

Olá Pedrum,

Difícil resolver sem a planilha, mas no caso dos contratos, você pode tentar usar o Cont.se e o Somase / Somases.

No caso do verdadeiro e falso, você pode colocar isso dentro de um SE, Ex.: =Se(condição que gera verdadeiro ou falso = Falso;"Texto1";"Texto2"), mas, novamente, sem a planilha pode não ser uma solução boa, ou até mesmo nem ser uma solução.

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita.

Jimmy San Juan

Obrigado
No primeiro caso resolvido, já no segundo como insiro esse =SE na formula?
A formula é essa (Para validar CPF. Foi uma que encontrei).

Código: Selecionar todos

'Função que valida CPF
Public Function lfValidaCPF(ByVal lNumCPF As String) As Boolean
    Application.Volatile
    
    Dim lMultiplicador  As Integer
    Dim lDv1            As Integer
    Dim lDv2            As Integer
    
    lMultiplicador = 2
    
    'Realiza o preenchimento dos zeros á esquerda
    lNumCPF = String(11 - Len(lNumCPF), "0") & lNumCPF
    
    'Realiza o cálculo do dividendo para o dv1 e o dv2
    For i = 9 To 1 Step -1
        lDv1 = (Mid(lNumCPF, i, 1) * lMultiplicador) + lDv1
        
        lDv2 = (Mid(lNumCPF, i, 1) * (lMultiplicador + 1)) + lDv2
        
        lMultiplicador = lMultiplicador + 1
    Next
    
    'Realiza o cálculo para chegar no primeiro dígio
    lDv1 = lDv1 Mod 11
    
    If lDv1 >= 2 Then
        lDv1 = 11 - lDv1
    Else
        lDv1 = 0
    End If
    
    'Realiza o cálculo para chegar no segundo dígido
    lDv2 = lDv2 + (lDv1 * 2)
    
    lDv2 = lDv2 Mod 11
    
    If lDv2 >= 2 Then
        lDv2 = 11 - lDv2
    Else
        lDv2 = 0
    End If
    
    'Realiza a validação e retorna na função
    If Right(lNumCPF, 2) = CStr(lDv1) & CStr(lDv2) Then
        lfValidaCPF = True
    Else
        lfValidaCPF = False
    End If
End Function

[Jimmy]

Olá PeDrum,

Será que está executando a Sub que você acha que está?

Se puder, mande a planilha ou um modelo dela pra que seja analisada.

Jimmy San Juan

[PeDrum]

Estranho, ainda estou recebendo os valores; Verdadeiro e Falso.

[Jimmy]

Olá PeDrum,

Será que está executando a Function que você acha que está? O nome da function bate exatamente com o nome da função que está sendo utilizada no Excel?

Se puder, mande a planilha ou um modelo dela pra que seja analisada.

Nas mensagens acima que você julgar que ajudaram de alguma forma com a solução do problema, peço que dê um Like, clicando no botão com o "positivo", acima e a direita. Obrigado.

Jimmy San Juan