sumar valores con monedas distintas

hola, Cbarra !

... columna con valores con formato de dolares, euros y yen.
... sumar solo los dolaresexiste alguna suma condicional para caracteres ????

[creo que] para 'estos casos' resulta mas 'apropiado' definir una funcion personalzada
->suponiendo que los 'formatos' [realmente] son 'aplicados' por medio de estilos personalizados<-
=> si ->solamente<- aplicas/personalizas el formato ->del numero<- ...
[sera necesario 'buscar' otro tipo de 'deteccion']
=> tambien se necesita 'forzar' a que se realice un 're-calculo' [p.e. en el evento '_selectionchange' de la hoja]
puesto que NO existe evento que 'detecte' si [solamente] cambias/aplicas formatos a las celdas
por lo tanto, si [solamente] cambias de estilo... la funcion sera 'actualizada' ->hasta<- cambiar de seleccion

si cualquier duda o cambio de informacion... ¿comentas?
saludos,
hector.
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
la funcion en un modulo de codigo 'normal' ==Function SumarEstilos( _
ByVal Rango As Range, _
ByVal Estilo As String) As Double
Application.Volatile
Dim Celda As Range, Suma As Double
Suma = 0
For Each Celda In Rango
If IsNumeric(Celda) Then _
If Celda.Style = Estilo Then Suma = Suma + Celda
Next
SumarEstilos = Suma
End Function
¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
la forma de usarla en la hoja de calculo seria +/-...
=SumarEstilos(A1:A31,"Dólares") o... =SumarEstilos(A1:A31,"Euros")
importante 'notar' que... ['mi' separador de argumentos es la coma ',' NO punto y coma ';'] y...
-> el 'nombre' del estilo 'solicitado'... debe ser ->EXACTO<- [mayusculas/minusculas/acentos/etc.]
-> NO todos los 'estilos' tienen 'el nombre' [para vba] que aparece en el dialogo de los estlos :-(
p.e. el estilo 'Millares'... [realmente] vba lo 'detecta' con el nombre de... 'Comma' [en ingles] :D