Ir al contenido principal

Destacados

🐠 Restas juego interactivo – Demo Gratuito + Juego Completo con Niveles

  Un recurso educativo interactivo para practicar restas de forma entretenida Buzin y las Restas es un juego educativo diseñado para que niños y niñas practiquen la resta mediante una experiencia visual, amigable y llena de animaciones. Este proyecto forma parte de PER – Proyectos Educativos Ren’Py , una iniciativa que busca acercar las matemáticas a través de juegos interactivos, accesibles y motivadores. El juego está disponible en dos versiones: Demo gratuita , ideal para conocer la dinámica del juego Versión completa con niveles , disponible con aporte voluntario en Profe Social Ambas versiones comparten la esencia del proyecto: un buzo llamado Buzin , su amigo Tibu el tiburón, y una aventura submarina donde cada respuesta correcta acerca al jugador a un tesoro. 🌟 Demo Gratuita: “Buzin y las Restas – Versión de Prueba” La demo permite experimentar la mecánica principal del juego. Buzin inicia su recorrido en el fondo del mar y necesita resolver 5 ...
2 comentarios
Leer más
Etiquetas

Ingreso Egreso en Excel con macros

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:


Etiquetas:

Comentarios

Publicar un comentario

Entradas populares