Página 1 de 1
Exceção de Célula e Trocar Nome
Enviado: 24 Set 2019 às 16:52
por 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.
Re: Exceção de Célula e Trocar Nome
Enviado: 24 Set 2019 às 20:45
por 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
Re: Exceção de Célula e Trocar Nome
Enviado: 26 Set 2019 às 15:48
por PeDrum
Jimmy escreveu: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
Re: Exceção de Célula e Trocar Nome
Enviado: 26 Set 2019 às 20:13
por 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
Exceção de Célula e Trocar Nome
Enviado: 30 Set 2019 às 15:16
por PeDrum
Estranho, ainda estou recebendo os valores; Verdadeiro e Falso.
Re: Exceção de Célula e Trocar Nome
Enviado: 30 Set 2019 às 17:18
por 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