En este día del Reto40Excel hemos preparado un contenido referente a los ingresos y egresos en Excel a través de una Macro en Excel estas son unas salidas y entradas qué vamos a aprender a diligenciar directamente en hoja de cálculo y a través de una Macro en Excel esa información se va a llevar a otra hoja este es una plantilla sencilla básica pero muy útil cuando se trata de manejar la información y de una forma ordenada, por eso hemos decidido realizar este ejercicio práctico para que lo tomes como base y aprendas la implementación de macros para robustecerlo de acuerdo a tu conocimiento.
Los ingresos y los egresos en Excel se pueden manejar de diferente forma, hemos decidido en este día del Reto40Excel que se ingresen los siguientes campos:
– Concepto
– Valor
– Movimiento
Para resolver lo que se propone en este día a través de una Macro referente a los ingresos y egresos en Excel hemos utilizado en la Macro la definición de variables como asignación de datos a esas variables y así mismo condiciones para determinar a qué tipo de movimiento corresponde si corresponde al movimiento ingreso se debe almacenar el valor o el dato en la columna ingreso, de lo contrario debe ser un egreso, también en este ejercicio aplicamos la suma de todos los ingresos menos la suma de todos los ingresos y eso nos da una utilidad Espero que este recurso sea de tu agrado y que te aporte valor como siempre pretendemos en lo que compartimos.
A continuación se especifican las herramientas utilizadas en el material de este día:
– Ingresos y Egresos en Excel
– Ingresos en Excel
– Egresos en Excel
– Declaración de variables en VBA
– Asignación a una variable en VBA
– Capturar la última fila con datos en VBA
– Msgbox en VBA
Para no perderte nada de lo que compartimos en las redes sociales, puedes seguirnos a través de los siguientes medios:
Youtube: https://goo.gl/FrswaC
Facebook: https://goo.gl/W5dIsa
Twitter: https://twitter.com/ee_excel
Instagram: https://goo.gl/xadGB5
Linkedin: https://goo.gl/Os1boH
A continuación el material de hoy:
Click >> Aquí << para descargar ejercicio del día
1) Recibe estos vídeos GRATIS >> https://goo.gl/FrswaC
2) Suscríbete a este curso gratuito para aumentar tu productividad en Excel un 80% y obtén 4 regalos adicionales al suscribirte a este curso: http://goo.gl/zNqh0o
Artículos anteriores:
- Día 8 – Comodines en Excel #Reto40Excel 2016
- Día 7 – Macro en Excel para extraer datos con condiciones #Reto40Excel 2016
- Día 6 – Macro en Excel para abrir archivos externos con condición IF – Reto40Excel v.2016
- Día 5 – Sumar últimas celdas en Excel – Reto40Excel v.2016
- Día 4 – Formato condicional para mostrar repeticiones a partir de una variable – Reto40Excel v.2016
- Día 3 – Ordenar con letras y números en Excel – Reto40Excel v.2016
- Día 2 – Definir cálculo con Función SI y lista desplegable en Excel – Reto40Excel v.2016
- Día 1 – Validación de datos en Excel para limitar cantidad y contenido en una celda – Reto40Excel v.2016
- Lanzamiento de Reto40Excel v.2016
- Función SUBTOTALES en Excel
- Sumar en Excel con condiciones – Parte 3 de 4 – Excluyendo mes
- Sumar en Excel con condiciones – Parte 2 de 4 por período
- Sumar en Excel con condiciones – Parte 1 de 4 Listas desplegables
Pingback: Día 10 - Insertar Comentarios en Excel con macros en Excel #Reto40Excel 2016 - Especialistas En Excel
Día 9 (Reto40). Muchas gracias por el ejercicio del presente día. Fue de mucha utilidad para mi. Gracias.
Hola Bruno, gracias a ti por participar, esperamos que los contenidos sean todos de utilidad. Saludos
Saludos Alfonso,
Un aporte para este reto 9. Cumplido:
Sub extraerDatosEjercicio()
Dim ultFilaDatos As Long
Dim ultFilaEmpleados As Long
Dim nombreCompleto As String
Dim fechaIngreso As Date
Dim salario As Double
Dim comision As Double
Dim cont As Long
ultFilaDatos = Sheets(“Ejercicio”).Range(“C” & Rows.Count).End(xlUp).Row
For cont = 8 To ultFilaDatos
nombreCompleto = Sheets(“Ejercicio”).Cells(cont, 3)
fechaIngreso = Sheets(“Ejercicio”).Cells(cont, 4)
salario = Sheets(“Ejercicio”).Cells(cont, 5)
comision = Sheets(“Ejercicio”).Cells(cont, 6)
If comision > 100 And Year(fechaIngreso) = 2014 And Month(fechaIngreso) >= 1 And Month(fechaIngreso) <= 4 Then
ultFilaEmpleados = Sheets("IngresosEjercicio").Range("C" & Rows.Count).End(xlUp).Row
Sheets("IngresosEjercicio").Cells(ultFilaEmpleados + 1, 3) = nombreCompleto
Sheets("IngresosEjercicio").Cells(ultFilaEmpleados + 1, 4) = fechaIngreso
Sheets("IngresosEjercicio").Cells(ultFilaEmpleados + 1, 5) = salario
Sheets("IngresosEjercicio").Cells(ultFilaEmpleados + 1, 6) = comision
End If
Next cont
End Sub
Gracias por este interesante reto.
Hola Juan, gracias por compartirlo, saludos
Pingback: Fórmulas Matriciales en Excel con condiciones Nivel Avanzado
Pingback: Lista desplegable en Excel 2016 sin Duplicados
Pingback: Consultar Access desde Excel varias condiciones, limpiando datos
Pingback: Consultar Tabla Access desde Macro Excel VBA
Pingback: Formularios en Excel VBA: Eliminar en una base de datos en Excel