Modificación para Comparar códigos y actualizar precios
hace unos meses realize una pregunta y me dieron una buena respuesta pero modificaron algo del archivo que envían mis proveedores y me sale un error.
la pregunta y respuesta realizada fueron:
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 proveedor 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
Experto
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
Else
Comprobar = False ' Establece el valor a False.
Exit Do ' Sale del bucle interno.
End If
Loop
Loop Until Comprobar = False ' Sale inmediatamente del bucle externo.
End Sub
Ahora el error que aparece cada vez que ejecuto el macro es
Se ha producido el error `91`en tiempo de ejecución: Variable de objeto o bloque with no establecido
y cuando entro en la parte del depurador me aparece resaltado el siguiente párrafo
Selection.Find(What:=búsqueda, After:=ActiveCell, LookIn:=xlFormulas, _LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _MatchCase:=False, SearchFormat:=False).Activate
si alguien puede ayudarme muchas gracias
saludos
