PLANTILLA CONTABLE

Hola grupo , en esta ocasión les traigo una plantilla contable donde podrán registrar sus ventas y gastos,tener un pequeño balance y calcular la proyección de sus ventas, ademas en el video se encuentra el tutorial de paso a paso de como realizarla. Los primeros cinco minutos son de como funciona, el resto es como realizarla .Espero que sea de su ayuda . Muchas gracias.
Link de descarga
drive.google.c...
Si gustan pueden dejar su correo en los comentarios o escribirme a mi correo [e-mail] para enviarle el archivo
Códigos
Modulo
Sub Venta()
'
' VENTA Macro
'
'
Hoja3.Range("A2").Insert
Hoja3.Range("B2").Value = Hoja1.Range("C3")
Hoja3.Range("C2").Value = Hoja1.Range("C4")
Hoja3.Range("D2").Value = Hoja1.Range("C5")
Hoja3.Range("E2").Value = Hoja1.Range("C6")
Hoja1.Range("C3") = Empty
Hoja1.Range("C4") = Empty
Hoja1.Range("C5") = Empty
Hoja1.Range("C6") = Empty
End Sub
Sub Gasto()
'
' Macro5 Macro
'
'
Hoja2.Range("A2").Insert
Hoja2.Range("B2").Value = Hoja1.Range("F3")
Hoja2.Range("C2").Value = Hoja1.Range("F4")
Hoja2.Range("D2").Value = Hoja1.Range("F5")
Hoja2.Range("E2").Value = Hoja1.Range("F6")
Hoja1.Range("F3") = Empty
Hoja1.Range("F4") = Empty
Hoja1.Range("F5") = Empty
Hoja1.Range("F6") = Empty
End Sub
Sub producto()
'
' Macro5 Macro
'
'
Hoja4.Range("A2").Insert
Hoja4.Range("B2").Value = Hoja1.Range("I3")
Hoja4.Range("C2").Value = Hoja1.Range("I4")
Hoja4.Range("D2").Value = Hoja1.Range("I5")
Hoja4.Range("E2").Value = Hoja1.Range("I6")
Hoja1.Range("I3") = Empty
Hoja1.Range("I4") = Empty
Hoja1.Range("I5") = Empty
Hoja1.Range("I6") = Empty
End Sub
Sub Actualizar()
'
' Macro1 Macro
'
'
ActiveSheet.PivotTables("venta").PivotCache.Refresh
End Sub
Sub Actualizar1()
'
' Macro1 Macro
'
'
ActiveSheet.PivotTables("gastos").PivotCache.Refresh
End Sub
Código Hoja Menu
Private Sub Gasto_Click()
Columns("E:F").EntireColumn.Hidden = False
Range("F3").Select
End Sub
Private Sub Gasto_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Columns("E:F").EntireColumn.Hidden = True
End Sub
Private Sub producto_Click()
Columns("H:I").EntireColumn.Hidden = False
Range("I3").Select
End Sub
Private Sub producto_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Columns("H:I").EntireColumn.Hidden = True
End Sub
Private Sub Venta_Click()
Columns("B:C").EntireColumn.Hidden = False
Range("C3").Select
End Sub
Private Sub Venta_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Columns("B:C").EntireColumn.Hidden = True
End Sub
Link descarga
www.mediafire....