Foro Excel

actualizar varias hojas de un libro dependiendo de otra hoja de otro libro
hola buenas noches,
es un placer para mi poder encontrar esta pagina para poder encontrar ayuda sobre el manejo de excel.
mi cuestion es la siguiente:
yo manejo 2 diferentes libros en excel:
1 llamado datos, y el 2 llamado cartera de clientes.
en el primero tengo una hoja llamada registro de datos, en la que capturo los datos de los cliente a los cuales les hago las entregas de mercaderia, cada cliente tiene los siguientes datos:hora de la transaccion, cantidad vendida, numero de venta y abonos.
son 20 clientes, cada cliente puede efectuar diferentes transacciones durante el dia y diferentes abonos.en cada fila capturo los datos de cada cliente.
ahora bien en el 2 libro tengo los datos de cada cliente. lo que deseo es que tome el nombre del cliente de la hoja captura de datos y habra la hoja que le coresponde a ese cliente, y transfiera los datos de ese cliente, actualizando los datos de los clientes a diario.
les envio los archivos archivos adjuntos para que tengan una mejor comprension,
gracias por su ayuda.
en espera de sus comentarios

Hola:

Por favor, reenvia los adjuntos com Excel 2003 (.xls), si no, no te puedo ayudar.

Salu2

Antoni

hola buenas noches, gracias por mostrar interes en ayudarme, voy a reinstalar excel 2003
y los subo nuevamente.

de corazon muchas gracias

hola antoni
buenas noches aqui estoy nuevamente subiendo los archivos en excel 2003.
muchas gracias por ayudarme,
en espera de sus comentarios.
atte. jose
saludos desde El Salvador, America Central.

antoni aqui reenvio los archivos en extension xls
gracias de nuevo
en espera de comentarios.

Hola:

Te devuelvo uno de los libros, el de registro de apuntes, con la macro ACTUALIZAR_CARTERA, que hace mas o menos lo que quieres.

Salu2

Antoni

hola buenas noches antoni.
de veras muchas gracias por mostrar interes en ayudarme en este caso que presento.
pero estoy teniendo un problema antoni y es el siguiente:
cuando presiono el boton para ejecutar la macro me habre un cuadro de dialogo en el que me presenta la carpeta DESCARGAS y me dice que seleccione el archivo CARTERA DE CLIENTES* y no me pasa de ahí, ¿que crees que este sucediendo?
en espera de tus comentarios.
gracias
jose
saludos desde El Salvador, America Central

Antoni mi curiosidad es por que le agregas el asterisco (*) al nombre del archivo CARTERA DE CLIENTES.
no se si sea ese la razon de el porque no corre.
al depurarlo me envia a la siguiente linea
For x = 1 To Workbooks(LCAR).Worksheets.Count

Hola:

"CARTERA DE CLIENTES*", es para que te muestre todos los archivos que empiecen por ese nombre y combinado con el tipo de archivo ".xls", te enseña solo los libros EXCEL "CARPETA DE CLIENTES*.xls".

Te da error por darle "Aceptar" sin escoger ningún fichero que contenga la cartera.

Sustituye en el procedimiento BUSCAR_CARTERA:

Código: Seleccionar todo

.InitialFileName = ThisWorkbook.Path & "\CARTERA DE CLIENTES*.xls"

por:

Código: Seleccionar todo

.InitialFileName = ThisWorkbook.Path & "\*.xls"

y te aparecerán todos los libros de EXCEL del directorio, escoge el correspondiente al que contenga la última Cartera de Clientes.

Saludos Antoni

hola Antoni
buenas noches,
ante todo deseando que tengas exito en tus labores
de verdad agradezco de corazon toda la yuda que e estas brindando altruistamente en este caso, hice la sustitucion tal como me indicaste pero ahora me presenta otro error en tiempo de ejeucion y es el siguiente:
For x = 1 To Workbooks(LCAR).Worksheets.Count

esta linea se encuentra en la siguiente seccion:
Private Sub ACUMULAR_CARTERA()
Application.ScreenUpdating = False
FECHA = CDate(HREG.Cells(2, 1))
For x = 1 To Workbooks(LCAR).Worksheets.Count
¿cual pudiera ser la causa?
nuevamente en espera de tus comentarios,
saludos dede El Salvador America Central.

Hola:

Si al error que te refieres es:

"Se ha producido el error tipo 9 en tiempo de ejecución:"
"Subíndice fuera de intérvalo."

Y al depurar te señala en amarillo la línea:

For x = 1 To Workbooks(LCAR).Worksheets.Count

solo puede producirse cuando en la Cartera de Clientes:

NO EXISTE LA HOJA DEL CLIENTE, es decir hay en el libro de registro de datos clientes que no tiene su correspondiente hoja en la cartera.

Asegúrate que todos los clientes tienen su correspondiente hoja en cartera.

¡¡¡ Cuidado con la cantidad de espacios en el nombre del cliente !!!

Cuando tenga un momento, modificaré la macro para que te de el nombre del cliente inexistente en lugar del error.

Saludos

Antoni

Antoni
buenas noches,
tenías razón en cuanto al nombre del cliente había un pequeño error, ya lo corregí y corre esa seccion de la macro, no obstante ahora presenta otro detalle y es el siguiente:
se ha producido el error 13 en tiempo de ejecucion no coinciden los tipos y al depurar me envia a la siguiente línea:
If CDate(HCAR.Cells(y, 1)) = FECHA Then
esta línea aparece marcada en amarillo.
esta línea es parte de el siguiente bloque:
Private Sub ACUMULAR_CARTERA()
Application.ScreenUpdating = False
FECHA = CDate(HREG.Cells(2, 1))
For x = 1 To Workbooks(LCAR).Worksheets.Count
Set HCAR = Workbooks(LCAR).Worksheets(x)
HCAR.Activate
For y = HCAR.Range("A1", Range("A" & Rows.Count).End(xlUp)).Rows.Count To 9 Step -1
If CDate(HCAR.Cells(y, 1)) = FECHA Then
HCAR.Rows(y).Delete
End If
Antoni, solo te pido por favor no te canses de ayudarme, por favor te ruego me sigas ayudando yo creo que ya casi salimos de este caso.
te agradezco
jose
saludos desde El Salvador.

Hola:

Se supone que en el libro de cartera, los datos existentes en la columna 1 a partir de la fila 9, contienen una fecha valida.

Es evidente que hay datos que no cumplen ese requisito, repasate la fecha de asiento de las cuentas de todos los clientes.

Para poder seguir adelante, añade en el procedimiento:

Código: Seleccionar todo

Private Sub ACUMULAR_CARTERA()

On Error Resume Next '<======================================================


Application.ScreenUpdating = False

Salu2


Antoni

hola Antoni
buenos dias,
gracias por estar ayudandome,
fijate que agregue la siguiente linea que me indicaste y corrió, no obstante hoy genera otro error:
selecciono en el libro CARTERA DE CLIENTES la hoja que le corrresponde a FABRICIO uno de los nombres que se encuentra en CAPTURA DE DATOS en la hoja REGISTRO y traslado todos los movimientos y luego guardó la el libro CARTERA DE CLIENTES con el nombre CARTERA DE CLIENTES CON LA FECHA ACTUAL.
los errores son 2 :
1 - solo debe trasladar los datos corresppondientes de un determinado cliente
2- debe reemplazar el libro CARTERA DE CLIENTES con los nuevos datos de el dia siguiente, pero no debe ponerle la fecha a ese libro como parte del nombre.
te envio el archivo CARTERA DE CLIENTES para que veas como queda.
Antoni Muchisimas gracias de nuevo.
desde El salvador
jose.

a las palabras seleccino, guardo, abrio, les faltó las tildes,
por lo tanto deben leerse así:
seleccionó,
abrió
guardó

gracias antoni