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
Publicar un comentario