Nueva planilla para el ingreso e egreso de gastos.
Puedes modificar esta planilla tanto para un negocio o gastos personales.
Mediante una macro(programación) se efectúa en forma automática el ingreso de la información.
A continuación el desarrollo paso a paso.
Primero insertamos un modulo para ello debemos tener habilitada la ficha programador excel 2010 o Desarrollador Excel 2013-2016. Puedes acceder a la ficha con las teclas alt+F11
Archivo creado para el curso Excel Programando.
Al final del articulo encontraras un link para descargar el archivo.
MODULO
Sub MOVIMIENTOS()
Dim concepto As String
Dim valor As Double
Dim movimiento As String
Dim ultfila As Long
concepto = Cells(7, 6)
valor = Cells(8, 6)
movimiento = Cells(9, 6)
ultfila = Sheets("MOVIMIENTOS").Range("D" & Rows.Count).End(xlUp).Row
Sheets("MOVIMIENTOS").Cells(ultfila + 1, 4) = concepto
If movimiento = "INGRESO" Then
Sheets("MOVIMIENTOS").Cells(ultfila + 1, 5) = valor
Else
Sheets("MOVIMIENTOS").Cells(ultfila + 1, 6) = valor
End If
MsgBox "MOVIMIENTO INGRESADO EXITOSAMENTE"
End Sub
DESCARGAR ARCHIVO:
Comentarios
Publicar un comentario