BUSCAR

miércoles, 28 de junio de 2017

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:


martes, 27 de junio de 2017

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







miércoles, 31 de mayo de 2017

Agenda Telefónica 2017...Excel y macros

Sencilla agenda telefónica realizada en excel con macros.
Esta sencilla agenda consta de dos hojas en la primera hoja(agenda) debes escribir los datos de tus contactos luego presionas el botón registrar y los datos quedarán guardados en registros.
Puedes llevar un registro ordenado de tus contactos con esta sencilla plantilla creada en Excel.



Puedes descargar el archivo aquí:

http://www.mediafire.com/file/l0aojgn72120wc5/agenda+2017.7z



miércoles, 3 de mayo de 2017

Scratch Day Chile

Este es mi proyecto para el concurso de Scratch Day Chile.
Es un juego que consiste en escribir correctamente las regiones de Chile.
Objetivos del juego que niños de 5° básico puedan aprender fácilmente las regiones de la forma mas entretenida y es jugando.
Además tienes la opción de modificar este juego.
Si te gusta  solo dale "AMO ESTE PROYECTO" en la página oficial de Scratch en la parte izquierda hay un corazón solo debes dar un clic alli.
Pero antes debes registrarte en la plataforma son solo tres sencillos pasos.
Espero tu apoyo.
Gracias
Link para apoyar mi proyecto.


https://scratch.mit.edu/projects/158092547/





Proyecto Juego Regiones de Chile

miércoles, 14 de diciembre de 2016

Mis primeros pasos con Scratch

Curso de Scratch..."Mis primeros pasos con Scratch"
Con este curso introductorio lograras aprender lo básico sobre Scratch.

Contenido del curso:
Capitulo 1:
Mis primeros pasos con Scratch.
Capitulo 2:
Ciclos repetitivos.
Capitulo 3:
Escenario
Capitulo 4:
Interacción de objetos.

Formato: mp4
Idioma: Español
Tutor : Marisol Ramos
Duración aproximada: 45 minutos


Puedes descargar el curso desde aquí:


lunes, 14 de noviembre de 2016

SPACE INVADERS CON APP INVENTOR

Sencillo juego creado con App Inventor.
Space Invaders el clásico juego de Atari de los años 80.
Disfruta de este sencillo aporte con App Inventor.
Si deseas puedes modificar el código para mejorarlo.
Ve a este link puedes descargar el archivo spaceinvaderm.aia

http://ai2.appinventor.mit.edu/?locale=en&galleryId=6172749350043648

Parte del código:
Creación de variables
Creación de procedimientos.
Un aporte de Marisol Ramos