Macro para copiar datos iguales en un rango

Tengo la tabla anterior de datos en excel, como se puede observar tengo una columna llamada POL (con varias FACTURAS, éstas son cambiantes por ejemplo la 3 para éste mes puede tener 11 o 12 facturas), y necesito un macro que sume los totales de la columna 0%, 16%, IVA, ..., TOTAL", y que éstos se peguen en la hoja siguiente hoja de la siguiente manera

donde 

22,030.81 = SUMA( 3,516.12 + 669.71 + 2,680.50 + 1,272.31 + 1,508.20+ 1,525.00 + 522.20 + 641.20 + 759.08 + 8,936.49)

Respuesta
1

Tienes una solución mucho más sencilla utilizando la fórmula SUMAR. SI

Lo único que deberás modificar de tu hoja excel es que el rango A6:A15 tenga un 3, en A16:A20 un 6 etc y luego en la segunda hoja como criterio utilizar como criterio cada celda de la columna A y evaluarlo en A:A de la hoja1

La función consta de Rango, Criterio y Rango Suma

Está explicada con detalle en:

https://exceltotal.com/la-funcion-sumar-si-en-excel/ 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Recorrer una tabla de Access

Tengo un formulario de access en el que tengo un campo llamado importe y otros importe_1, importe_2, importe_3 y un campo llamado reg que lo que necesito es que si el valor del registro es 21 coloque el importe en importe_, si es 22 lo coloque en...
3 respuestas

Pagos múltiples de cuotas de asociados mediante un importe grande pagado y conforme a un rango de fecha ingresado..Ms access 365

Mediante un botón "Pagar Cuotas" Necesito ir descontando las cuotas de los asociados del importe pagado e ir controlando el saldo del mismo hasta quedar en 0, teniendo en cuenta el mes de vencimiento de las cuotas comparando entre Fecha Inicial,...
2 respuestas

Como pegar solamente valores de una celda a otra hoja

Sub CopiarImprimir() ' ' CopiarImprimir Macro ' Application.ScreenUpdating = False Sheets("Imprimir").Select Worksheets("Imprimir"). Range("A4:C50"). Clear Range("E4:J49"). Clear Sheets("Planillas").Select Sheets("Planillas"). Range("G4").Copy...
2 respuestas

Redondear decimales en números arábigos

Sres. T.E. La consulta es la siguiente, necesito una fórmula en excel para llevar los decimales a .00 y .50, ejemplo en una celda tengo el valor 45.12 levarlo a 45.00 en otra tengo 45.42 levarlo a 45.00.
2 respuestas

Mantener el color de un botón al salir de un módulo

Quisiera por favor me ayuden, estoy haciendo una aplicación en vba para un restaurante y necesito lo siguiente: tengo 20 mesas que al momento de abrir el modulo de venta selecciono la mesa y cambia de color y su estado pasa a ocupada la idea es...
2 respuestas

Cómo habilitar o deshabilitar (25) Grupo de opciones en formulario access

Tengo varias encuestas, cada una contiene de 5 a 30 preguntas y un formulario para llenado con 30 marcos de opciones numerados del 1 al 30. ¿Cómo podría habilitar o deshabilitar estos grupos de opciones de acuerdo al número de preguntas? Ejemplo:...
3 respuestas

Sumar dos filas distintas mayor a 0

Quiero sumar dos filas separadas por ejemplo fila 5 de A4 a J4 y fila 10 de A4 a J4, cada fila tiene resultados positivos o negativos, quiero que me sume en la celda B3 por ejemplo los datos positivos y en la celda C3 los datos negativos. Solo se...
2 respuestas

Filtrar ultima fecha según el criterio de una celda

Tengo una tabla de excel con la siguiente información Columna A el código del equipo. (Código único para cada equipo) Columna B la fecha en que se realizo la ultima revisión. Columna C el nombre del equipo. Columna D El tipo de revisión (preventivo,...
2 respuestas

Ocultar entorno access navegar por formularios e informes

Quiero ocultar el entorno de access pero que todo funcione tanto formulario como informes y que el icono salga en la barra de tareas
1 respuesta

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas