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