Sumar un rango de celdas con un valor especifico
Hola, muchas gracias por la ayuda que brindan en este sitio.
Mi consulta es la siguiente, tengo un rango de celdas en las cuales tengo números, en alguna ocasión puede haber una letra "F", necesito sumar el rango de celdas si en el rango no aparece ninguna F de lo contrario que no lo sume o me ponga otro valor
Muchas Gracias
Mi consulta es la siguiente, tengo un rango de celdas en las cuales tengo números, en alguna ocasión puede haber una letra "F", necesito sumar el rango de celdas si en el rango no aparece ninguna F de lo contrario que no lo sume o me ponga otro valor
Muchas Gracias
1 Respuesta
Respuesta de antares18
1
¿Estas diciendo esto?
1
2
3
4
F234
5
6
Y ha de sumar los números del 1 al 6, ¿es eso?
1
2
3
4
F234
5
6
Y ha de sumar los números del 1 al 6, ¿es eso?
Si claro, que sume todas las celdas del rango que tengan números y si tienen otra cosa no me lo sume y no me de error en la suma.
Pues aquí está
Function Suma_Rango(Numeros)
Dim i As Integer
Dim hay_f As Boolean
For Each Item In Numeros
hay_f = False
For i = 1 To Len(Item)
If (Mid(Item, i, 1) = "f") Then
hay_f = True
Exit For
End If
Next i
If (Not hay_f) Then Suma_Rango = Suma_Rango + Item
Next Item
End Function
Function Suma_Rango(Numeros)
Dim i As Integer
Dim hay_f As Boolean
For Each Item In Numeros
hay_f = False
For i = 1 To Len(Item)
If (Mid(Item, i, 1) = "f") Then
hay_f = True
Exit For
End If
Next i
If (Not hay_f) Then Suma_Rango = Suma_Rango + Item
Next Item
End Function
