Ir al contenido principal

Destacados

🎮 Boy y los Misterios de los Múltiplos — Una aventura para aprender jugando

  Después de muchas horas de trabajo, aprendizaje y emoción, hoy quiero compartir algo que me llena el corazón: mi nuevo juego educativo está listo. Su nombre: Boy y los Múltiplos. Es más que un juego… es una experiencia pensada para hacer que aprender multiplicación sea divertido, visual, interactivo y memorable ✨ 👦 ¿Quién es Boy? Boy es el protagonista de esta historia: un pequeño explorador matemático que te acompaña a descubrir los secretos de las tablas, sus expresiones cambiantes y su espíritu aventurero, te invita a enfrentar desafíos multiplicadores en cada ronda. 🧠 ¿Cómo funciona el juego? Cada nivel te presenta una tabla sorpresa (del 2 al 12), y tendrás que identificar sus múltiplos entre distractores visuales. El juego fue cuidadosamente diseñado para: - 🎯 Evitar repetir la misma tabla en rondas consecutivas - 💡 Variar la cantidad de respuestas correctas (¡no siempre son tres!) - 🎲 Mostrar los números en posiciones aleatorias para mantener el reto - 🌟 Incluir anim...

Stock de productos en Excel VBA


Practica planilla de Excel programada con macros para el ingreso y salida de productos.
Puedes ingresar hasta 44 productos, si deseas puedes  modificar la validación de datos así agregar mas productos.
Formulario creado para el curso Excel Programando.
Para la buscada de artículos  se uso la siguiente función
Excel 2010


=SI(ESBLANCO(D7),"",CONSULTAV(D7,Productos!B4:E440,2,FALSO))

También: 
Función BuscarV y Error.


A continuación el desarrollo paso a paso de la programación.
También puedes descargar el archivo al final del articulo encontraras el link de descarga.


Programación 
Modulo
 'INSERTAR PROCEDIMIENTO
Dim I, X, Y As Integer ' TIPO NUMERICO



Public Sub AGREGAR_PRODUCTOS()
Set DATOS = ThisWorkbook.Sheets("Ingreso de Datos")
Set STOCK = ThisWorkbook.Sheets("Stock Productos")


With DATOS
If .Range("D7") = "" Or .Range("I7").Value = "" Or .Range("I9").Value = "" Then





MsgBox "DEBECOMPLETAR TODOS LOS DATOS", vbInformation, "MARISOL1971"


Exit Sub
End If
For I = 5 To 100
If STOCK.Cells(I, 2) = .Range("D7").Value Or STOCK.Cells(I, 2) = "" Then


X = I
Exit For


End If
Next

STOCK.Cells(X, 2) = .Range("D7").Value ' CODIGO PRODUCTO
STOCK.Cells(X, 3) = .Range("D9").Value ' NOMBRE DEL PRODUCTO

If .Range("I9").Value = "ENTRADA" Then
    STOCK.Cells(X, 4) = .Range("I7").Value + STOCK.Cells(X, 4) ' ENTRADA
 
End If

If .Range("I9").Value = "SALIDA" Then

STOCK.Cells(X, 5) = .Range("I7").Value + STOCK.Cells(X, 5) 'SALIDA


End If

STOCK.Cells(X, 6) = Val(STOCK.Cells(X, 4) - STOCK.Cells(X, 5))
If STOCK.Cells(X, 6) > 0 Then
 STOCK.Cells(X, 6).Interior.Color = 65535


Else

STOCK.Cells(X, 6).Interior.Color = 255

End If
MsgBox "PRODUCTO REGISTRADO", vbInformation, "MARISOL1971"

.Range("D7").Value = ""

.Range("I7").Value = ""
.Range("I9").Value = ""


End With
End Sub



Descargar archivo: 

http://www.mediafire.com/file/fd9r29azkt4ghx8/MI_INVENTARIO_6.7z







Comentarios

Entradas populares