Saltar al contenido

Importar datos de varios libros cerrados


Recommended Posts

publicado

Buenas tardes,

He googleado pero no llego a encontrar la solución, Primero quería utilizar la función INDIRECTO para importar datos, pero al ver que no funciona con libros cerrados he optado por una macro, pero no consigo realizarla.

Antecedentes:

1.- Varios archivos, 20 aproximadamente, con la misma estructura de nombre, Ejemplo: CasaMalaga, CasaMadrid; CasaValencia

2.- Resultados en el mismo nombre de hoja: Ejemplo Alquiler

3.-  En la Misma Celda R8

El problema que pueden ir aumentando el número de ficheros pero siempre van a tener la misma estructura y localización

Había pensado utilizar una especie de BUSCARV o INDICE/COINCIDIR, pero no consigo que la macro me reconozca la fórmula.

Otro problema que me he encontrado es probando una fórmula que había visto de ejemplo en el foro "Range("D6").Formula = "=BUSCARV(B5," & Range("D2").Value & ",2,0)"", cuando ejecuto la macro me da error en excel como #NOMBRE, y si entro en la celda y pulso enter, ya me la coge

publicado
Hace 2 horas, luquiluk dijo:

3.-  En la Misma Celda R8

Pero en la misma celda R8 ¿El qué? :huh:. Explica un poco mejor qué es lo que quieres copiar de cada libro y dónde

publicado

El dato que quiero copiar está en la misma celda de cada libro, es decir cada libro tiene una hoja que se llama o se llamará Arrendamiento y en la celda R8 estará el dato que quiero importar, por ejemplo el nombre del cliente, por decirlo de alguna manera.

 

publicado
En 30/3/2021 at 18:20 , luquiluk dijo:

El dato que quiero copiar está en la misma celda de cada libro, es decir cada libro tiene una hoja que se llama o se llamará Arrendamiento y en la celda R8 estará el dato que quiero importar, por ejemplo el nombre del cliente, por decirlo de alguna manera.

Joder, te explicas como esos libros cerrados... ¿Pero lo que quieres es crear una lista de todos los datos de esa celda R8 en un libro base? :(

publicado
Hace 6 horas, Haplox dijo:

Joder, te explicas como esos libros cerrados... ¿Pero lo que quieres es crear una lista de todos los datos de esa celda R8 en un libro base? :(

Tienes razón no me explico correctamente, a ver si lo aclaro.

Tengo varias hojas excel con la estructura del nombre parecida cambia el final, ejemplos:

CasaMalaga.xls, CasaAlmeria.xls, CasaMadrid.xls.

Dentro de ellas hay varias pestañas con el mismo nombre en todas, es decir cada archivo excel tendrá una pestaña que se llame Arrendamiento, otra que se llama Datos, otra Comunidad, etc.... Eso lo habrá en todos los archivos a lo mejor en algunos habrá pestañas que en otro no, ejemplo:

CasaMalaga --- Pestañas: Arrendamiento, Datos.

CasaAlmeria --- Pestañas: Arrendamiento, Comunidad

CasaMadrid --- Pestañas: Arrendamiento, Datos, Comunidad

Y los datos que hay dentro de esas pestañas estarán siempre en las mismas celdas, ejemplo:

El nombre estará en todos los archivos en la misma pestaña y en la misma celda. En la pestaña de Datos en la celda R8, el dato total de la comunidad estará en Comunidad en la celda C7, el importe de la suma total del alquiler estará en la celda G8 de la Pestaña de Arrendamientos, es decir esa estructura es exactamente igual en todos los archivos.

Bueno pues la intención es hacer un Archivo Resumen donde hacer un cuadro que me recoja datos específicos de esas hojas que hay dentro de cada libro.

La forma sencilla es hacer un cuadro y cada celda copiar la ruta de cada pestaña, pero me gustaría hacer una macro que me genere esa ruta por si creamos cualquier otro archivo nuevo que simplemente en el resumen con meter, por ejemplo, Sevilla se vaya a la carpeta y busque un archivo que se llama CasaSevilla.xls e importe automáticamente todos los datos y así conseguir que no se me olvide crear ninguna ruta.

No se si me he explicado mejor, espero que sí.

 

 

 

 

 

 

publicado

@luquiluk ¿Porqué no subes un par de esos archivos y el libro base, con un ejemplo en él de lo que quieres conseguir de los otros libros?

Si no va ser imposible, al menos por mi parte

publicado

Son archivos del trabajo, los cuales no puedo subir, lo único que puedo hacer es hacer unos archivos ejemplo y subirlo

publicado
Hace 23 horas, luquiluk dijo:

evidentemente no son tan sencillos, hay muchas más pestañas por hojas y muchos más libros.

Hombre, al menos sube el Resumen con todos los campos de la tabla que puede tener. Luego ya es buscar la hoja y poner el dato. Si no es un jaleo ir comprobando hoja por hoja si está en la tabla

publicado

Es que realmente no es mucho más allá, es un ejemplo que no es real, es ver si hay posibilidad de que una macro me busque primero el archivo con el nombre en cuestión, si existe esa hoja me obtenga un dato que está siempre en la misma celda y si no existe esa hoja que devuelva un mensaje de que "no existe" por ejemplo, no puedo dar mucho más porque es lo que he puesto en el ejemplo, excepto que dentro del resumen no he puesto la ruta porque evidentemente cada uno lo tendrá en su carpeta, download, mis documentos, o la que sea, pero poco más

publicado

Los campos van a ser los nombres de las Hojas, es decir que lo que va a buscar el nombre del campo por ejemplo "Arrendamientos", si no existe esa hoja, devuelve el mensaje no existe, yo haré la tabla tan extensas como diferentes nombres de hojas haya, en los ejemplos que he subido, salvo error hay un máximo de tres nombres diferentes yo creo que con eso me es suficiente, ya que creo, que las demás serán todas igual.

publicado
En 5/4/2021 at 15:35 , luquiluk dijo:

ya que creo, que las demás serán todas igual.

No todo es tan fácil como piensas... :rolleyes:. SI tengo tiempo mañana te subo algo a ver si es lo que necesitas

publicado

@luquiluk, te dejo una solución. Ten cuidado, porque está preparada para las hojas que necesites, pero siempre en el formato de rangos que tienes ahora, o sea... que "CASA" esté en B5, si no tendrías que empezar a tocar rangos y deirecciones.

Aparte, revis los libros de las casas, por que en uno de los que has subido, los datos totales no estaban en la fila 14, sino en la 13 y entonces "parece" que la macro no funciona :rolleyes:

Copia de Resumen.xlsm

publicado

Otro enfoque.

Abre el adjunto, hay una hoja nueva, la hoja Parámetros:

En la celda B1, informa la carpeta donde están los archivos, si la dejas en blanco, se supondrá que está en la carpeta del archivo resumen.

En la columna A, informa los archivos que quieras

En la filas 2 y 3, informa las hojas y las celdas donde están los datos.

Para obtener el resumen pulsa sobre la flecha azul de la hoja Resumen.

Válido para cualquier número de archivos y columnas del resumen.

Ya contarás.

Resumen.xlsm

  • 10 months later...
publicado
En 11/4/2021 at 5:54 , Antoni dijo:

Otro enfoque.

Abre el adjunto, hay una hoja nueva, la hoja Parámetros:

En la celda B1, informa la carpeta donde están los archivos, si la dejas en blanco, se supondrá que está en la carpeta del archivo resumen.

En la columna A, informa los archivos que quieras

En la filas 2 y 3, informa las hojas y las celdas donde están los datos.

Para obtener el resumen pulsa sobre la flecha azul de la hoja Resumen.

Válido para cualquier número de archivos y columnas del resumen.

Ya contarás.

Resumen.xlsmUnavailable

Hola, puedes compartirme tu archivo a [email protected]?

 

  • 11 months later...
publicado

Hola, ya he modificado el código a mis necesidades, pero ahora tengo un problema, me gustaría añadir la función BUSCARV a esa búsqueda, y no una celda fija. La cosa es que si pongo la función no me arroja ningún valor. Explico un ejemplo y subo archivos. 

Tengo varios archivos con el mismo nombre pero cambia el mes: Datos Ejemplo 11-2022 y Datos Ejemplo 12-2022

 

He puesto una variable de mes, y si la cambio me realiza la búsqueda correctamente, siempre y cuando busque una celda exacta: NEW DB!B4 por ejemplo, me daría el valor de B4. 

 

Pero si escribo la función me devuelve blanco. He probado estas:

NEW DB!BUSCARV(A4;B1:E8;3;0)

BUSCARV(A4;NEW DB!B1:E8;3;0)

 

La cosa es que depende del mes necesitare buscar unos códigos u otros, en el ejemplo que envío necesito los valores A, B, C i D de los códigos C0002 y C0003. Alguien me puede arrojar un poco de luz?

Resumen Ejemplo.xlsm Datos Ejemplo 11-2022.xlsx Datos Ejemplo 12-2022.xlsx

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      189
    • Comentarios
      99
    • Revisiones
      29

  • Crear macros Excel

  • Mensajes

    • Buenos días colegas. Espero se encuentren bien de salud. Hace algunos días comencé un nuevo proyecto para llevar la Contabilidad en un Negocio que es de mi hermano. Apenas comienzo, pero tengo varios problemas a pesar de ser Contador (pero no programador). El tema que me ocupa hoy es el siguiente: Tengo una Hoja (Plan de Cuentas) donde tengo el Catálogo, pero es necesario agregar Cuentas nuevas a medida que el Negocio avance como son Proveedores, Clientes, Bancos, Ingresos, etc... Tengo una macro que he creado, pero no me ORDENA como requiere el Catálogo, Me inserta bien los datos (Jerarquía, Numero de cuenta, Titular y Naturaleza), pero lo ordena de manera inadecuada. En el ejemplo que "subo" inserté una nueva cuenta: Jararquía: 2 Nunero: 102-03 Titulo: Bancos Mixtos Naturaleza: D Pero si se fijan, este me lo insertó (Ordenó) Fondo amarillo, debajo de la cuenta 101-01, cuando debía ser debajo de la cuenta 102-02. Todo parte del FrmCuentas (Label signo +). El código está en el Módulo5. Por favor si pudieran ayudarme. Tengo otras dudas o problemas que iré ventilando con ustedes a medida que la corriente me lo permita (acá los apagones son de 20 horas diarias). Sub InsertarCuenta() Dim wsCatalogo As Worksheet Dim ultimaFila As Long Dim nuevaCuenta As String Dim nivelCuenta As String Dim tituloCuenta As String Dim nCuenta As String Dim celda As Range Set wsCatalogo = ThisWorkbook.Sheets("Plan de Cuentas") ultimaFila = wsCatalogo.Cells(wsCatalogo.Rows.Count, 1).End(xlUp).Row nivelCuenta = InputBox("Ingrese la categoría jerárquica de la cuenta:") nuevaCuenta = InputBox("Ingrese el código de la nueva cuenta:") tituloCuenta = InputBox("Ingrese el Titulo de la Cuenta a Crear:") nCuenta = InputBox("Ingrese la Naturaleza de la cuenta:") Set celda = wsCatalogo.Range("A3:A" & ultimaFila).Find(nivelCuenta, LookAt:=xlWhole) If Not celda Is Nothing Then wsCatalogo.Rows(celda.Row + 1).Insert Shift:=xlDown wsCatalogo.Cells(celda.Row + 1, 1).Value = nivelCuenta wsCatalogo.Cells(celda.Row + 1, 2).Value = nuevaCuenta wsCatalogo.Cells(celda.Row + 1, 3).Value = tituloCuenta wsCatalogo.Cells(celda.Row + 1, 4).Value = nCuenta MsgBox "Cuenta insertada correctamente en el Catálogo.", vbInformation Else MsgBox "No se encontró la Jerarquía especificada.", vbExclamation End If End Sub Un abrazo a todos. Pino PD No me deja insertar el archivo por su tamaño... 429KB... no entiendo...
    • Que tal a todos, me permito proponer esta posible solución: =SI.ERROR(BUSCARX(B2&C2,Produccion!B$2:B$5&ENTERO(Produccion!E$2:E$5),Produccion!C$2:C$5,0)+SI.ND(BUSCAR(2,1/(B$1:B1=B2),J$1:J1),)-E2,) Espero le sea útil. Saldo dinamico (Solucion).xlsx
    • Hola Buenas Noches, Me podrán ayudar a resolver un problema con una planilla que tengo, les comento brevemente. Tengo un archivo que cuenta con 2 hojas, la primera se llama "Movimientos" que básicamente muestra los productos con quiebres que se presentan y la hoja "Producción" que como su nombre lo dice son las producciones de cada producto según fecha de creación. Lo que necesito es lo siguiente: Cada vez que agregue una producción en la hoja "producción", debo ingresar el código creado su cantidad y lote respetivamente, además de la fecha en que se realiza la producción, en caso que sea mayor a las 12:00 se considera PM sino AM. Lo complejo es acá en la otra hoja llamada Movimientos: Esta hoja contiene una columna que se llama "Saldo", que básicamente es la diferencia de lo producido vs el quiebre en esa fecha. Una columna llamada "Cumple", que significa que ese pedido lleva si o no el producto con quiebre. Y una columna "Se preparo", que es si el pedido se preparo o no. Lo complicado viene acá es que si la fecha de la producción que ingrese en la hoja "Produccion", se hace después de la fecha de la hoja movimientos no me debe contar esa producción para efecto de la columna Saldos, si la fecha es igual o menor si se considera y ese saldo que queda disponible se puede ocupar para futuros ingresos de pedidos. Otra conducción es que las producciones siempre se deben asignar al pedido más antiguo de ese código salvo que la fecha de entrega ya haya pasado. La columna "Cumple" es básicamente para poder generar un KPI donde me indique cuales producciones se cumplieron con el plazo y cuales No. Espero me puedan ayudar ya que tengo la siguiente formula pero no sirve ya que me toma las unidades totales y no cumple con la restricción del horario. =SUMAR.SI(Produccion!A:A; $A2; Produccion!C:C) - SUMAR.SI.CONJUNTO($E$2:$E2; $A$2:$A2; A2)) Muchas gracias. Ejemplo..xlsx
    • Hola a ambos, Prueba con: =BYROW(G5:G6;LAMBDA(x;UNIRCADENAS(" - ";1;FILTRAR(E5:E10;B5:B10=x)))) Saludos,
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.