Cuadrar Asiento Contable con Excel
Amig@s, necesito cuadrar un asiento contable en Excel, en la columna A tengo el listado de las cuentas contables, el la columna B el debe y en la columna C el haber. Después de todos los debe hay una celda en blanco y frente a esa celda se encuentra el haber, el cual debe cuadrar con la sumatoria de todos los debe, necesito automatizar el proceso de que en cada celda en blanco me sume ese rango y en la columna E la resta de esos dos valores. Agradezco su ayuda. Saludos.
1 Respuesta
Adjunto imagen más completa, gracias por la ayuda...
Disculpa, pero sigo sin entender tu ejemplo, podrías completar algunas de las sumas que esperas como resultado, es decir, pon en la columna E el resultado que quieres.
Disculpa por no haber explicado bien lo que necesito. Lo que requiero es que en cada celda que esta con azul se sume automáticamente las celda amarilla que están arriba y que en la columna E se indique la diferencia entre la columna B y C. Por ejemplo, en la celda B5 debe sumar las celdas B2, B3 y B4 y en la celda E5 debe restar las celdas B5 y C5, la idea es que esto se repita en todas las celdas en blanco de la columna B. Espero que me puedas entender, muchas gracias por la ayuda...!!
Te anexo la macro
Sub Diferencia()
'Por.Dante Amor
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, "B") = "" Then
Cells(i, "B") = tot
Cells(i, "E") = Cells(i, "B") - Cells(i, "C")
tot = 0
Else
tot = tot + Cells(i, "B")
End If
Next
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Diferencia
- Aceptar.
- Para ejecutarla dale click a la imagen.
S a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
