como pasar datos entre archivos de excel

El jueves, 14 de junio de 2012 11:43:52 UTC+1, soporte escribió:

¡Hola!
Agradezco de antemano la ayuda. manejamos 2 archivos de excel llamados
consecutivo y otro ventas por clientes. en el primero se utilizan las celdas
A2,
B2, C2 y D2 en las cuales se capturan la fecha (A2) nombre de cliente (B2), el
número de factura (C2) y por ultimo el importe (D2), despues se captura
los datos del siguiente folio en las celdas A3, B3 y asi sucesivamente hacia
abajo. En el archivo Ventas por clientes, se genera una hoja
con el nombre de cada cliente, antes de capturar se pone el mes y se vuelve a
teclear los mismos datos omitiendo la celda con el nombre (B2), es decir solo
se
capturan las celdas A2, C2 y D2, pero se teclean en las celdas A2 - fecha, B2 -
Número de factura y C2 - importe. Se teclean los datos por mes, se dejan
2 renglones para colocar el siguiente mes y continuar con las celdas hacia
abajo. Pueden ayudarme para hacer una macro que me haga esto automaticamente,
que pase los datos del consecutivo a la hoja del cliente del archivo ventas por
cliente, que agregue los datos del mes en la siguiente celda vacia y si s
posible que ponga el mes

Hola,
No es que no quiera ayudar pero esta pregunta es la típica que se podría implementar muy bien con el grabador de macros. En cambio generar una macro a partir de tu explicación parece bastante complicado. Cuando dices por ejemplo se "utilizan las celdas" ¿a qué te refieres? Que escribes en esas celdas o que ya hay datos escritos y lo que quieres es copiarlos al otro libro. Como ves para crear la macro hay que ser muy preciso y aunque en tu explicación has sido bastante preciso y todo está explicado de manera bastante clara siempre hay lugar a ambigüedades y eso en la ejecución de la macro puede ser desastroso :-)

Te propongo una cosa. Activa el grabador de macros, repite el proceso que describes arriba un par de veces. Para el grabador de macros y a continuación ve al menu de Visual Basic ALT+F11 si entras en Modules podrás ver el código de la macro que acabas de grabar. Copia y pega el código aquí y a partir de ahí te podremos ayudar mejor.

Un comando que te podría servir para arreglar la macro tu mismo es el siguiente:

ultima_celda_vacia = Range("A65536").End(xlUp).Row


Saludos,

Pedro