Ir al contenido principal

Destacados

¡Diversión bajo el mar! Descubre "Burbujas Numéricas", el juego gratuito para dominar las secuencias.

  ¡Bienvenidos a mi blog! Hoy estoy muy emocionada de compartir con ustedes un proyecto al que le he dedicado mucho corazón y lógica de programación: Burbujas Numéricas . Como saben, me apasiona crear herramientas que faciliten el aprendizaje, y este videojuego nace con el objetivo de que los niños (y no tan niños) practiquen el razonamiento lógico-matemático de una forma visual y emocionante. 🦈 ¿Quiénes nos acompañan en esta aventura? En las profundidades del océano, no estarás solo. Tenemos dos personajes que reaccionan a tus resultados: El Buzo: Un tierno compañero con escafandra que celebrará con saltos de alegría cada vez que logres completar una secuencia. ¡Es tu mayor fan! Tibu: Un tiburón muy atento que está al acecho. Si cometes un error, aparecerá para darte un pequeño susto. ¡Así que mantente concentrado! 🫧 ¿Cómo se juega? La dinámica es sencilla pero desafiante: Verás subir 5 burbujas con números que siguen un patrón o secuenc...
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