Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

buscarv ?

07/03/2009 - 00:59 por German ITN | Informe spam
Saludos y gracias ante todo.

Los consulto por esta duda:

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.

Espero que se entienda mi explicacion y puedan darme una ayuda, al menos
para saber por donde empezar.

Gracias otra vez
German
 

Leer las respuestas

#1 Héctor Miguel
07/03/2009 - 04:48 | Informe spam
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.

Preguntas similares