Ver Mensaje Individual
  #5 (permalink)  
Antiguo 11/10/2011, 08:27
Avatar de Monimo
Monimo
 
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 16 años, 5 meses
Puntos: 69
Respuesta: BUscar y Pegar datos con macros

Cita:
Iniciado por tranza3 Ver Mensaje
Buenas Tardes
Soy muy inexperto en el tema de visual basic en excel, hace tiempo tenia un macro que me ayudaba a hacer todo esto que pido pero perdi todos mis archivos de la maquina y aunque pude recuperar varios archivos este no pude,
tengo dos archivos, en uno tengo cientos de miles de personas que se identifican con un numero y estan en la columna A
y el otro es un archivo que cambia cada mes y actualiza algunos de los clientes, entonces tengo qu buscar en el archivo master todo los clientes que se actualizan que a veces son miles y lo tengo que hace uno por uno
Entonces pido su apoyo de favor para una macro que me busque todos los clientes que tengo en la columna A del archivo master, los busque en la columna A del archivo nuevo y si lo encuentra que pegue lo que tenga en la celda siguiente, osea de la columna B, lo pegue en la columna B del archivo master
Si quieren les mando un pedazo del archivo
saludos y muchisimas gracias
Pues entonces me imagino que la macro hacía mas o menos lo mismo:


Suponiendo que :
Archivo master= ArchivoA
Archivo de actualización= ArchivoB



Código:
Workbook("ArchivoA").Sheets(1).select

empieza=1
activesheet.cells(empieza,1).select

value=Workbook("ArchivoA").Sheets(1).cells(empieza,1).value
var=1
Do while value <> " "

do while  Workbook("ArchivoB").Sheets(1).cells(var,1).value <> " "
if value=Workbook("ArchivoB").Sheets(1).cells(var,1).value
valor=Workbook("ArchivoB").Sheets(1).cells(var,2).value
Workbook("ArchivoA").Sheets(1).cells(empieza,1).value=valor
else
var=var+1
end if


loop
empieza=empieza+1
value=Workbook("ArchivoA").Sheets(1).cells(empieza,1).value
var=1
loop
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar