Boa noite
Solicito a ajuda de vocês para converter a função abaixo em fórmula. A função faz com ocorra soma dentro de uma mesma célula de números separados por ",".
Estou enviando o arquivo de exemplo do uso da função. Desde já agradeço a atenção.
Option Explicit
Function SomarEspecial(Valor As Range) As Long
Dim Caracter() As String
Dim i As Long
Dim Soma As Long
Dim Número As Long
Caracter = Split(Valor.Value, ",")
For i = 0 To UBound(Caracter)
Soma = Soma + Caracter(i)
Next
SomarEspecial = Soma
End Function
.
joragen, como disse lá no tópico principal (viewtopic.php?f=20&t=26016 ), fazer isso com fórmula é mmuuiittoo difícil !!! ... Com apenas uma vírgula é tranquilo, é o que fiz lá, mas com mais de uma é complicado!!!
.
Mas aguarde, quem sabe !!!
.
PS: os descontos de férias que vc colocou no exemplo não existem k!! ... Aqueles descontos ferem completamente o Art. 130 da CLT!! ... Fica o alerta!!
.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Boa noite meu camarada
A solução com VBA é muito boa, mas o meu banco de dados tem muitas linhas e informações e creio que vai ficar pesado. Por isso eu prefiro usar formulas. Se for trabalhoso, eu vou tentar com o VBA mesmo. Agradeço sua consideração.
.
Pelo contrário, fórmula - se alguém conseguir - é que vai deixar muito mais pesado!!!
.
Isto que você quer fazer é consertar, com fórmula, um trabalho feito de forma errada lá atrás - talvez até por outra pessoa!! ... O correto seria colocar cada número de falta numa coluna - agora você não teria esta dificuldade!! ... Qualquer planilha mal planejada dá trabalho lá na frente!!
.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Obrigado pela ajuda.