Copiar y pegar nombres de productos según búsqueda_copia
Dante, te vuelvo a molestar con la pregunta anterior
Copiar y pegar nombres de productos según búsqueda
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
1 Respuesta
Respuesta de Dante Amor
2
Este sería el código para actualizar por proveedor
'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 r = h2.Columns("A")
Set b = r.Find(h1.Cells(i, "B"), lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
Do
'detalle
If h2.Cells(b.Row, "E") = h1.[F8] Then
h2.Cells(b.Row, "D") = nprecio
Exit Do
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
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
Next
