Inventario en excel

Solo disponible en BuenasTareas
  • Páginas : 3 (559 palabras )
  • Descarga(s) : 13
  • Publicado : 23 de mayo de 2010
Leer documento completo
Vista previa del texto
INVENTARIO!!

Para poner la lista se pone:
-datos
-validacion
-list
-poner el nombre de la lista

Entrada y salida:
Lo mismo pero al final pones
Entrada; salida

Categoria:
=buscarv(IDcategorias; INVENTARIO!seleccionar fila A y B)

Lo mismo en descripción:

Dim CATEGORIA As String
Dim DESCRIPCION As String
Dim CANTIDAD As Integer
Dim CONTROLB As String

Definir las 4lugares de trabajo!

If Range("B6").Value = Empty Or Range("E6").Value = Empty Or Range("F6").Value = Empty Then
MsgBox "Faltan datos para completar la transacción !!..."
Si la celda B6 esta vacia ol celda E6 esta vacia o la F6 esta vacia tiene q salir un mensaje q diga "Faltan datos para completar la transacción !!..."

'Ingreso de valores a variables
ID = Range("B6").Value
CATEGORIA =Range("C6").Value
DESCRIPCION = Range("D6").Value
CANTIDAD = Range("E6").Value
CONTROLB = Range("F6").Value
Q en cat.. Desc…cant….control….se guarde en una variable de visual Basic.Sheets("INVENTARIO").Select (seleccione la hoja de inventario)
Range("A:A").Select (seleccione toda la columna A)
For x = 1 To 20 (busque n veces) (busque en cada fila hasta encontrar lo q se esta buscando)'procedimiento de búsqueda a continuación, no modificar, INCLUIRLO SIN EDITAR POR FAVOR !!
Selection.Find(What:=ID (se cambia de acuerdo al nombre q uno le pone), After:=ActiveCell,LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Exit For (deje de buscar y se sale)

Next x

If ActiveCell.Value= ID And CONTROLB = "ENTRADA" Then
ActiveCell.Offset(0, 3).Select (si la celda esta activa muévase 3 columnas en la misma fila)
bodegaanterior = ActiveCell.Value (bodega anterior es igual ala celda activa)
bodeganueva = bodegaanterior + Val(CANTIDAD) en la bodega nueva se sume el valor q tiene en cantidad)
ActiveCell.Value = bodeganueva
Selection.End(xlToLeft).Select...
tracking img