11/10/2011, 08:27
|
| | | Fecha de Ingreso: noviembre-2007 Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 17 años, 1 mes Puntos: 69 | |
Respuesta: BUscar y Pegar datos con macros Cita:
Iniciado por tranza3 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 |