Buenas tardes, Necesitaría a ver si alguien sabe como puedo solucionar estos temas (no estoy puesto en macros): ESCENARIO: Tengo un conjunto de ficheros (carpeta "Tasaciones" donde hay varios .XLS con formato de ficha, y de los cuales tenía que sacar valores cambiando el formato de filas a columnas. Eso lo conseguí grcias a una macro que me ayudó a hacer un forero de aquí. A la larga, fuí modificando la macro, pues eran pocos los conjuntos de valores a transponer, y lo fuí adaptando para sacar los valores de cada celda de cada fichero y colocarlos en el de salida en la columna correspondiente. El "problema es que algunos valores deben (creo) contener funciones y no logro hacer que me funcionen, y otros, tienen que sacar valores dependiendo de un tercer fichero. EJEMPLO: FicheroSalidaInmuebles.xlms contiene las columnas a rellenar con el valor de cada fichero, y para las cuales fuí adaptando el código de la macro: Option Explicit Sub ObtenerDatosInmuebles() '------------------ 'Macro convertir rangos y obtener datos '------------------ Dim iFile$, ws As Worksheet Range("a1").CurrentRegion.Offset(1).Delete xlShiftUp Application.ScreenUpdating = False Set ws = ActiveSheet iFile = Dir(ThisWorkbook.Path & "\Tasaciones\*.xls") While iFile <> "" Workbooks.Open ThisWorkbook.Path & "\Tasaciones\" & iFile With ws.Cells(Rows.Count, "a").End(xlUp).Offset(1) .Range("a1:a1") = Application.Transpose(["4459"]) .Range("b1:b1") = Application.Transpose(["201512"]) .Range("c1:c1") = Application.Transpose([=CELL("filename")]) .Range("i1:i1") = Application.Transpose(["N"]) .Range("l1:l1") = Application.Transpose(["2015"]) .Range("m1:m1") = Application.Transpose(["A17"]) .Range("p1:p1") = Application.Transpose(["0"]) .Range("q1:q1") = Application.Transpose(["0"]) .Range("r1:r1") = Application.Transpose(["0"]) .Range("s1:s1") = Application.Transpose(["0"]) .Range("t1:t1") = Application.Transpose(["0"]) .Range("u1:u1") = Application.Transpose(["0"]) .Range("v1:v1") = Application.Transpose(["ES"]) .Range("y1:y1") = Application.Transpose([=f8&","&f9&", "&f10]) .Range("z1:z1") = Application.Transpose([f14:f14]) .Range("aa1:aa1") = Application.Transpose([i13:i13]) .Range("ab1:ab1") = Application.Transpose([i14:i14]) End With ActiveWorkbook.Close False iFile = Dir Wend Application.ScreenUpdating = True End Sub EJEMPLO: .Range("a1:a1") = Application.Transpose(["4459"]) Me rellena para cada libro el valor 4459 que es igual para todos en esa columna .Range("y1:y1") = Application.Transpose([=f8&","&f9&", "&f10]) Me rellena concatenando las cadenas de f8, f9 y f10 para cada fichero en esa columna Hasta aquí todo bien, pero el problema es: - En cada fichero, en la celda F23 hay un valor que puede ser "si" o "no". En la celda BD del" FicheroSalidaInmuebles.xlms", en la columna trasteros, necesito que vaya sacando 1 si es "si" o "0" si es no. Para ello, intenté lo siguiente: .Range("y1:y1") = Application.Transpose([=IF(F23="si";1;0)]) ----> Pero me devuelve #¡valor! Es decir, que si quiero usar la función IF para poner un valor en función de otro, me da ese error. - Por otro lado, en FicheroSalidaInmueble.xlms en la columna C (numtas) debo sacar el nombre del fichero sin ruta ni extensión; probé a poner la función siguiente (con las funciones en inglés): .Range("c1:c1") = Application.Transpose([=IZQUIERDA(EXTRAE(CELDA("filename";A1);ENCONTRAR("[";CELDA("filename";A1))+1;ENCONTRAR("]";CELDA("filename";A1))-ENCONTRAR("[";CELDA("filename";A1))-1);LARGO(EXTRAE(CELDA("filename";A1);ENCONTRAR("[";CELDA("filename";A1))+1;ENCONTRAR("]";CELDA("filename";A1))-ENCONTRAR("[";CELDA("filename";A1))-1))-5)]) y me dice que faltan paréntesis. - También necesitaria saber como poder rellenar una columna, por ejemplo, J1 teniendo en cuenta que debo buscar el valor en el fichero listado de tasadores.xls, y que dependiendo de si en las hojas de datos está el nombre, rellenar con el ciftec. De todo ello, deduzco que hay funciones que se pueden aplicar tal cual y otras que no, o que estaré haciendo todo al revés. Espero haberme explicado, y que por favor, alguien me pudiera ayudar, pues es urgente. Gracias anticipadas, Oraculo

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

URGE ayuda por favor macros y funciones

Autor del tema oraculo
Fecha de inicio 8 Feb 2016

oraculo

New member

8 Feb 2016

Buenas tardes,

Necesitaría a ver si alguien sabe como puedo solucionar estos temas (no estoy puesto en macros):
ESCENARIO:
Tengo un conjunto de ficheros (carpeta "Tasaciones" donde hay varios...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

AYUDA POR FAVOR. ME URGE

Respuestas: 1

4 Jul 2012

ALBERTOMPA

Pregunta

URGE AYUDA Macro Rango de Extracción y Proteger Hoja

Respuestas: 1

17 Ago 2016

gustavo123456

Pregunta

Urge - Proposito para la macro creada

Respuestas: 3

29 Jun 2020

Cacho R

Pregunta

Excel para Red Social - Novato URGE

Respuestas: 1

2 Nov 2013

makande

Pregunta

impedir - urge

Respuestas: 6

4 Jun 2005

Marcial_F

Pregunta

Ayuda con Macros

Respuestas: 6

17 Jul 2026

Víctor1

Pregunta

Ayuda con Macro Excel

Respuestas: 2

1 Jul 2026

Leopoldo Blancas

Resuelto

Ayuda con macro para buscar y modificar datos de un listbox

Respuestas: 5

28 May 2026

katto

Pregunta

Ayuda con mi macro

Respuestas: 2

20 May 2026

Leopoldo Blancas

Pregunta

ayuda configurar tekitera

Respuestas: 3

29 Abr 2026

kehaces

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba