Copiar y pegar nombres de productos según búsqueda
Nuevamente solicitando su ayuda
El tema el siguiente estoy elaborando una orden de compra en macros en la cual quiero cuando le de guardar a la orden de compra busque la base de datos de productos y que según el nombre del cambie sus precios.
Esta es la hoja de la orden de compra y que cuando se guarde que el nombre del producto busque en la hoja productos su nombre y se modifique la columna de precios para tener actualizada la información
Slds
Robert
1 Respuesta
Anexa el siguiente código a tu macro guarda_oc, después de esta línea:
If resp = vbYes Then
'Actualizar precios en BD y productos
Set h1 = Sheets("Menu")
For i = 15 To h1.Range("B" & Rows.Count).End(xlUp).Row
nprecio = h1.Cells(i, "E")
Set h2 = Sheets("BD")
Set b = h2.Columns("A").Find(h1.Cells(i, "B"), lookat:=xlWhole)
If Not b Is Nothing Then
h2.Cells(b.Row, "D") = nprecio
End If
Set h2 = Sheets("Productos")
Set b = h2.Columns("A").Find(h1.Cells(i, "B"), lookat:=xlWhole)
If Not b Is Nothing Then
h2.Cells(b.Row, "D") = nprecio
End If
NextS a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
¡Gracias!
Muchas gracias Dante por el código
slds
Robert
hola Dante
un favor mas lo que pasa cuando ejecuto la macro al actualizar el precio de los producto en la hoja "BD" solo toma el primer producto pero se puede que busque el nombre del proveedor y solo cambie el producto de ese proveedor por que puede ser que en la hoja "BD" un producto lo pueden tener tres proveedores yo solo quiero modificar el producto del proveedor de la Orden de Compra y no los demás
gracias por la atención prestada
Slds.
Robert
hola Dante
alguna ayuda con lo indicado
slds
Robert
Con gusto te ayudo, reviso la nueva pregunta que creaste.
