Comparar códigos y actualizar precios
Tengo dos archivos de excel con las siguientes columnas
Archivo 1: código, detalle, precio costo sin iva, precio costo con iva (columnas A, B, C y D)
Archivo 2: código, código de barras, detalle, precio de costo con iva (columnas A, B, C y D)
El archivo 1 es el que me envía mi pro veedor con los precios actualizados y el archivo 2 es el que debo actualizar el precio de costo sin iva. Lo que necesito es una aplicación que compare los códigos y reemplace el precio de costo con iva del primer archivo en el precio de costo con iva del segundo archivo. Son varios los proveedores que me envían archivos es por eso que necesito un macro o algún tipo de modulo
Desde ya nuchisimas gracias
Archivo 1: código, detalle, precio costo sin iva, precio costo con iva (columnas A, B, C y D)
Archivo 2: código, código de barras, detalle, precio de costo con iva (columnas A, B, C y D)
El archivo 1 es el que me envía mi pro veedor con los precios actualizados y el archivo 2 es el que debo actualizar el precio de costo sin iva. Lo que necesito es una aplicación que compare los códigos y reemplace el precio de costo con iva del primer archivo en el precio de costo con iva del segundo archivo. Son varios los proveedores que me envían archivos es por eso que necesito un macro o algún tipo de modulo
Desde ya nuchisimas gracias
1 Respuesta
Respuesta de Enrique Bernal
1
Estimado para mi ejemplo todo esta en un mismo archivo, y más bien separado por hojas, en la hoja 1 está lo que me llega del proveedor y la hoja 2 es mi base que necesito actualizar, el resto es totalmente igual a tus datos:
Sub Actualiza()
Dim Comprobar, Contador
Comprobar = True: Contador = 1 ' Inicializa variables.
Do ' Bucle externo.
Do While Contador < 65000 ' Bucle interno.
Sheets("Hoja1").Select
Contador = Contador + 1 ' Incrementa el contador.
If Range("A" & Contador).Value <> "" Then ' Si la condición es verdadera.
búsqueda = Range("A" & Contador).Value
ConIva = Range("D" & Contador).Value
Sheets("Hoja2").Select
Columns("A:A").Select
Selection.Find(What:=búsqueda, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
fila = ActiveCell.Row
Range("D" & fila).Value = ConIva
Yo la probé y funciona, cualquier duda me avisas.
Sub Actualiza()
Dim Comprobar, Contador
Comprobar = True: Contador = 1 ' Inicializa variables.
Do ' Bucle externo.
Do While Contador < 65000 ' Bucle interno.
Sheets("Hoja1").Select
Contador = Contador + 1 ' Incrementa el contador.
If Range("A" & Contador).Value <> "" Then ' Si la condición es verdadera.
búsqueda = Range("A" & Contador).Value
ConIva = Range("D" & Contador).Value
Sheets("Hoja2").Select
Columns("A:A").Select
Selection.Find(What:=búsqueda, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
fila = ActiveCell.Row
Range("D" & fila).Value = ConIva
Yo la probé y funciona, cualquier duda me avisas.
