Stock de Productos

PorFernando M.Blas

Stock de Productos

Stock de Productos .- Realiza el control de  Entradas y salidas en tu Negoció ó Empresa desde Excel con macros y funciones.

El stock es el número de productos almacenados de que dispone una empresa, Stock = cantidad de productos, materias primas, herramientas, etc., que es necesario tener almacenadas para compensar la diferencia entre el flujo del consumo y el de la producción. Constituye una inversión que permite asegurar en condiciones óptimas la continuidad de las ventas, las fabricaciones y la explotación normal de la empresa.

Información del Aplicativo

El Aplicativo está desarrollado en Excel  y Gestiona los Movimientos de Kardex y Stock Actual de los Artículos.

Se realizó 2 videos tutoriales para su creación.

Video Stock de Productos #1

¿Qué es una macro de Excel?

Las macros se escriben en un lenguaje de computadora especial que es conocido como Visual Basic for Applications (VBA). Este lenguaje permite acceder a prácticamente todas las funcionalidades de Excel y con ello también ampliar la funcionalidad del programa.

Video Stock de Productos #2

Descargar archivos adjuntos

Acerca del autor

Fernando M.Blas administrator

    18 comments so far

    Edgar Pardo DiazPublicado en7:39 pm - Dic 17, 2015

    Disculpa en lugar de relacionar tu macro con la celda de ID o nombre se puede relacionar con un cuadro de texto ActiveX? en caso de que sea muy extensa tu base de datos? te agradecería tu comentario excelente publicacion 😀

    CESARPublicado en11:26 pm - Dic 26, 2015

    QUE BUENOS PROGRAMAS DIOS LOS BENDIGA.

    franciscoPublicado en3:52 am - Dic 30, 2015

    Hola Fernando. Uste cree que me pudiera mandar la clave para desproteger la hoja para borrar la imagen del billete por favor, es un trabajo para el colegio, le agradeceria mucho.Ojala tuviese el conocimiento suyo para hacer este tipo de planillas pero he tratado y es muy complicado.

    raul huisaPublicado en4:35 am - Ene 2, 2016

    Buenas Noches favor de indicarme que he hecho mal quiero apreciar si el Excel me puede ayudar para adquirir el producto gracias

    Me sale error de compilación
    El procedimiento externo no es valido

    dsigperu.netPublicado en9:30 pm - Ene 13, 2016

    Para Realizar la Resta Correcta hay que editar estas lineas de Código.

    ‘ENTRADAS
    If .range(«i9»).value = «ENTRADA» Then
    STOCK.cells(x,4).value = val(.range(«i7»).value + stock.cells(x,4).value)
    elseIf .range(«i9»).value = «SALIDA» Then
    ‘SALIDAS
    STOCK.cells(x,5).value = val(.range(«i7»).value + stock.cells(x,5).value)
    end if

    SAMIR PADILLAPublicado en2:56 am - Mar 2, 2016

    porque me sale un error de error # 9 de subindice fuera de intervale y me resalta en amarrillo el thiswork.sheets

    LIC.SANTILLANPublicado en9:15 pm - Mar 4, 2016

    SALUDOS CORDIALES
    ESPERO PUEDA AYUDARME APLIQUE TODO LO DEL VÍDEO PERO AL INGRESAR UNA ENTRADA O SALIDA NO ME INGRESA LAS CANTIDADES
    ANEXO LO QUE HE PUESTO:
    Rem insertar procedimiento
    Dim I, X, Y As Integer
    Rem tipo numerico

    Public Sub AGREGAR_PRODUCTOS()
    Set DATOS = ThisWorkbook.Sheets(«INGRESO DE DATOS»)
    Set stock = ThisWorkbook.Sheets(«STOCK DE PRODUCTOS»)

    With DATOS ‘ALMACENA UN ENTORNO DE METODOS
    Rem No permitir campos vacios
    If .Range(«D7») = «» Or .Range(«I7»).Value = «» Or .Range(«I9»).Value = «» Then
    MsgBox «Es necesario Ingresar Todos los Datos», vbInformation, «Inversiones Rosita»
    Exit Sub
    End If

    For I = 5 To 1000
    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
    stock.Cells(X, 3) = .Range(«D9»).Value

    Rem Asignar entrada o salida

    If .Range(«I9»).Value = «Entrada» Then
    stock.Cells(X, 4).Value = Val(.Range(“i7”).Value + stock.Cells(X, 4).Value)
    End If

    If .Range(«I9»).Value = «Salida» Then
    stock.Cells(X, 5).Value = Val(.Range(“i7”).Value + stock.Cells(X, 5).Value)
    End If

    stock.Cells(X, 6) = Val(stock.Cells(X, 4) – stock.Cells(X, 5))

    Rem Cambiar color celda

    If stock.Cells(X, 6) > 10 Then
    stock.Cells(X, 6).Interior.Color = 65335
    Else
    stock.Cells(X, 6).Interior.Color = 255
    End If
    MsgBox «Producto Registrado», vbInformation, «Inversiones Rosita»
    Rem Limpiar campos
    .Range(«D7»).Value = «»
    .Range(«I7»).Value = «»
    .Range(«I9»).Value = «»
    End With
    End Sub

    darioPublicado en3:44 pm - Mar 12, 2016

    buenas tarde, he estado intentando ejecutar el programa pero me sale un erro 424 y no he podido dar con el problema, me pueden ayudar ?

    Deja un comentario