Ir al contenido principal

Destacados

🌊 MultipliOrden: La Nueva Aventura Matemática de Buzin y Tibu

  Juego educativo disponible GRATIS solo por 24 horas La serie Buzin y Tibu continúa creciendo con una nueva entrega llena de color, aprendizaje y diversión. En esta tercera aventura, presentamos MultipliOrden , un juego interactivo diseñado especialmente para los más pequeños, con el objetivo de fortalecer la comprensión de las tablas de multiplicar a través de dinámicas visuales y entretenidas. 🐠 ¿De qué trata MultipliOrden? En esta actividad, el tierno buzo Buzin , equipado con su clásica escafandra, se enfrenta a un desafío matemático bajo el mar: ordenar una tabla de multiplicar completamente desordenada . Los niños deben tocar los botones en el orden correcto para reconstruir la secuencia de la tabla. Cada acierto suma puntos y acerca al jugador al objetivo final: abrir el cofre del tesoro . Pero si se equivocan, aparece Tibu , el simpático tiburón de la serie, para indicar que la respuesta no era correcta y mostrar la secuencia ordenada. De esta forma, el juego n...
Publicar un comentario
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