Access - me sale error 438

   
Vista:

me sale error 438

Publicado por miguel guerrero (1 intervención) el 13/07/2012 16:36:39
Sub inventario()
Application.ScreenUpdating = False
venta = Cells(7, 7).Value
producto = appliction.WorksheetFunction.Match(Cells(3, 3).Worksheet("Datos").Range("b:b"), 0)
Sheets("Datos").Select
almacen = Cells(producto, 4)
Cells(producto, 4).Value = almacen - venta
Sheets("Ventas").Select
Application.ScreenUpdating = True
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder