BUSCAR

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







No hay comentarios: