Guardar compras en excel vba
Tengo una hoja de calculo en excel denominada inventario que contiene el inventario de un negocio ficticio y otra hoja denominada compras en donde se selecciona el producto del inventario a comprar y se le asigna una cantidad de piezas, en esta misma hoja compras tengo un botón guardar que debe de buscar el producto en la hoja inventario e incrementar a la existencia la cantidad de piezas que acaba de adquirir.
El código de mi botón es:
Private Sub CommandButton1_Click()
Cantidad = Worksheets("Compras").Range("A9").Value
producto = Worksheets("Compras").Range("B9").Value
With Worksheets("Inventario").Range("b4:b53")
Set c = .Find(producto, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
incremento = c.Value.Offset(0, 4)
incremento = incremento + Cantidad
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
End With
End Sub
Pero no hace nada! Ayuda por favor es una tarea y apenas inicio a practicar
No le estas devolviendo el nuevo valor a la celda:
incremento = c.Value.Offset(0, 4)
incremento = incremento + Cantidad
Almacenas la suma en la variable Incremento, y luego no haces nada mas con ella.
A parte de eso, yo nunca había visto que Offset sea una propiedad de Value "c.Value.Offset(0, 4)"
No debería ser c.Offset(0, 4).Value?
En conclusión, yo lo pondría así:
c.Offset(0, 4).Value = c.Offset(0, 4).Value + Cantidad
Otra cosa, no declaras las variables. VBA es benevolente con eso, pero se considera una mala practica no declararlas y a veces puede traer problemas.
