Macro para totales
Ejemplo :
A B C
1 juan 100
2 Juan 100
3 Juan 100 300
4 Pedro 50
5 Pedro 50 100
La columna A esta por orden alfabético; lo que necesito es una marcro que recorra esta columna y cuando llega al final de cada nombre me tire la suma de la columna B en la columna C tal cual como esta el ejemplo desde ya muchas gracias
1 respuesta
Te envío la macro
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: subtotales
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub subtotales()
'por.dam
d1_ant = Range("A1")
subtot = 0
j = 3
Range("C:C").ClearContents
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row + 1
If d1_ant = Cells(i, "A") Then
subtot = subtot + Cells(i, "B")
Else
Cells(i - 1, "C") = subtot
subtot = 0
d1_ant = Cells(i, "A")
End If
Next
MsgBox "Proceso Terminado", vbInformation, "SUBTOTALES"
End Sub Saludos.Dam
Si es lo que necesitas.
