buscarv ?

hola, German !

Tengo dos planillas iguales A y B, con 3 columnas:
Codigo de producto, Nombre de producto, Valor de producto. El codigo de producto es UNICO obviamente.
Necesito crear una macro que, al presionar un boton actualice el campo "Valor de producto"
desde archivo B (los nuevos precios) y los pegue en la planilla A
segun el "Codigo de producto", reemplazando el "Valor de producto" anterior...

suponiendo que en tu planilla "B", los datos (actualizados) se encuentran en la hoja llamada "Hoja1"
y asumiendo que en tu planilla "A" ya tienes incrustado un boton (en la hoja que corresponda) -???-
y que (obviamente) ambos libros (planillas "A" y "B") estan abiertos...

- copia/pega (o escribe) la siguiente macro en un modulo de codigo estandar de esta planilla "A"
y asignas esta macro
OJO: obviamente primero deberas poner los nombres reales de:
-> tu planilla "B" -> With Workbooks("b.xls")
-> la hoja de tu planilla "B" -> .Worksheets("hoja1")

Sub Actualiza_valores()
Dim Fila As Integer
Application.ScreenUpdating = False
For Fila = 2 To Range("a65536").End(xlUp).Row
On Error Resume Next
With Workbooks("b.xls").Worksheets("hoja1")
Range("c" & Fila) = .Columns("a").Find( _
What:=Range("a" & Fila), _
After:=.Cells(1), _
LookIn:=xlValues).Offset(, 2)
End With
Next
End Sub

saludos,
hector.

Muchisimas gracias! exactamente lo que queria hacer!

Gracias por compartir el conocimiento.

Saludos
German

"Héctor Miguel" escribió en el mensaje
news:

hola, German !

Tengo dos planillas iguales A y B, con 3 columnas:
Codigo de producto, Nombre de producto, Valor de producto. El codigo de
producto es UNICO obviamente.
Necesito crear una macro que, al presionar un boton actualice el campo
"Valor de producto"
desde archivo B (los nuevos precios) y los pegue en la planilla A
segun el "Codigo de producto", reemplazando el "Valor de producto"
anterior...

suponiendo que en tu planilla "B", los datos (actualizados) se encuentran
en la hoja llamada "Hoja1"
y asumiendo que en tu planilla "A" ya tienes incrustado un boton (en la
hoja que corresponda) -???-
y que (obviamente) ambos libros (planillas "A" y "B") estan abiertos...

- copia/pega (o escribe) la siguiente macro en un modulo de codigo
estandar de esta planilla "A"
y asignas esta macro
OJO: obviamente primero deberas poner los nombres reales de:
-> tu planilla "B" -> With Workbooks("b.xls")
-> la hoja de tu planilla "B" -> .Worksheets("hoja1")

Sub Actualiza_valores()
Dim Fila As Integer
Application.ScreenUpdating = False
For Fila = 2 To Range("a65536").End(xlUp).Row
On Error Resume Next
With Workbooks("b.xls").Worksheets("hoja1")
Range("c" & Fila) = .Columns("a").Find( _
What:=Range("a" & Fila), _
After:=.Cells(1), _
LookIn:=xlValues).Offset(, 2)
End With
Next
End Sub

saludos,
hector.