Sumar según formato moneda de celdas

Señores expertos, quisiera que me ayuden a sumas, tengo en excel columnas de datos que tienes el formato moneda de soles y dolares, y quiero sumar todas las que tienes formato moneda de dolares más no las de soles. Como lo hago
   |  A    |  B  |  C    |  D  |
1| S/.12| $ 5|  S/.1| $ 6|
2|S/.12| $ 5|  S/.1| $ 6|
3|S/.12| $ 5|  S/.1| $ 6|
4|S/.12| $ 5|  S/.1| $ 6|
un usuario cerro sin tener la respuesta,
la respuesta es
Sub sumamonedas()
Set Rango = Selection
columnas1 = Selection.Column  'determino inicio de rango seleccionado
filas1 = Selection.Row
Formatos = 1
For Each cell In Rango         'determino fin de rango seleccionado
columna = cell.Column
fila = cell.Row
Next
columnafin = columna + 1          'Determino donde poner los totales, es decir despues del rango
Cells(1, columnafin).Value = "Total" 'escribo encabezados de totales
Cells(1, columnafin).Value = "Total2"
For j = filas1 To fila                  'limpio totales anteriores
For i = columnafin To columnafin + 1
Cells(j, i).Value = ""
Next i
Next j
For j = filas1 To fila       'realizo comparaciones de formato
    For i = columnas1 To columna
        If Cells(j, i).NumberFormat = "_ [$S/.-280A] * #,##0.00_ ;_ [$S/.-280A] * -#,##0.00_ ;_ [$S/.-280A] * ""-""??_ ;_ @_ " Then
        Cells(j, columnafin) = Cells(j, columnafin) + Cells(j, i)
        End If
        If Cells(j, i).NumberFormat = "_-[$$-340A] * #,##0.00_-;-[$$-340A] * #,##0.00_-;_-[$$-340A] * ""-""??_-;_-@_-" Then
        Cells(j, columnafin + 1) = Cells(j, columnafin + 1) + Cells(j, i)
        End If
    Next i      'cambio de columna
                                'realizo suma en columna correspondiente
    Cells(j, columnafin).NumberFormat = _
            "_ [$S/.-280A] * #,##0.00_ ;_ [$S/.-280A] * -#,##0.00_ ;_ [$S/.-280A] * ""-""??_ ;_ @_ "
    Cells(j, columnafin + 1).NumberFormat = _
            "_-[$$-340A] * #,##0.00_-;-[$$-340A] * #,##0.00_-;_-[$$-340A] * ""-""??_-;_-@_-"
Next j 'cambio de fila
End Sub

1 Respuesta

Respuesta
1
Un ejemplo:
Sub XXX()
Dim rango As Range
For Each rango In ActiveSheet.Range("A1:B5")
Dim dolares As Currency, soles As Currency
If rango.NumberFormat = "$ #,##0.00" Then
soles = soles + rango
End If
If rango.NumberFormat = "[$$-409]#,##0.00" Then
dolares = dolares + rango
End If
Next rango
MsgBox "Tienes " & FormatCurrency(soles, 2) & " soles"
MsgBox "Tienes  " & Format(dolares, "$ #,##0.00") & " dolares"
End Sub
Abraham
Esta correscto pero la idea es que el resultado se registre. Y que lo haga en una matriz.
Lo que yo anote funciona (excepto por el formato de dolar que no lo encontraba). Y era para que el usuario que me pregunto lo mirara pues me respondió una aclaración cerrando la pregunta y no me podía contactar con el. Gracias de todas maneras.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Asignar formato moneda a celda

Junto con saludar, tengo el siguiente problema: Necesito asignar formato de moneda a una celda pero el tipo de moneda dependerá del valor que sea indicado en una deterninada celda. Ejemplo: Si en la celda A1 escribo USD, el formato de la celda C1...
1 respuesta

Copiar rango a otra hoja si una celda es mayor a 0

Busco una macro en excel que me ayude con lo siguiente: Tengo en el rango B9:N38 de la hoja 1 una tabla de datos. En la columna B de tal tabla hay valores que van a partir de 0. Deseo copiar de la hoja 1 a la hoja 2 aquellos "renglones" que en la...
1 respuesta

¿Cómo diseñar Macro para colorear filas por coincidencias?

Para todos y complacido de poder participar con mi inquietud y ojalá me puedan ayudar. Lo cierto es que soy novato (muy novato) y estoy en una carrera contra el tiempo que no me permite dedicarle mucho tiempo. Es por ello que acudo a pedir ayuda. Y...
1 respuesta

Hora en listbox

Tengo un listbox en el cual tengo varias columnas como podría cambiar el formato de una de esas columnas para que se pueda ver la hora que yo coloco en lugar del valor en el listbox. Ejemplo 09:06:00 y asi aparece en el listbox 0.345666777 anexo...
2 respuestas

Macro busca celda por color y resumen

Tengo una macro que compara dos hojas de un mismo libro, específicamente 2 columnas, si hay un cambio en estas columnas, pinta la celda de un color, lo que requiero saber y pedir su ayuda, es poder realizar una macro que me extraiga los valores de...
1 respuesta

Macro saltos de página

Necesito por favor una macro que después de ejecutarla revise un archivo y coloque los saltos de página siempre por encima de la fila que tiene datos en la columna A. Esas columnas son partidas de un presupuesto, Si coincide ese salto de página entre...
1 respuesta

Pasar datos de Excel a listbox

Ya estoy por terminar pero ahora necesito que casi todas las celdas desde b1:b249 se muestren fila por fila en el listbox y sólo las que tengan información, si están vacías se debe saltear esa celda. Intente hacerlo con listbox1. Additem cells(i, 2)...
1 respuesta