Maku

No, no había probado la opción más sencilla... Gracias!

Buenas tardes, he encontrado un tema que habla sobre esto pero al descomprimir el archivo .zip de una respuesta me da error. El tema está cerrado, así que abro este. Pretendo tener la opción de lista desplegable, en una celda, solo si el contenido de otra celda está entre un rango concreto, que en caso contrario pueda escribir libremente. ¿Es posible? Libro1.xlsx

Solucionado cuando he optado por sumar los días de lectura a la fecha de comienzo Gracias Duda3.xlsm

Buenas tardes. He solucionado esto haciendo una tabla adicional (en la hoja Anual), primero junto los datos que quiero y así ya puedo buscar en ella, pero me encuentro con otro problema. Si una de las búsquedas, en este caso un libro, me deja la fecha de comienzo en un apunte y la de final en otro... me quedo con el dato del primer apunte, que está vacío. (Ejemplo Libro 6) ¿Que puedo hacer para que me devuelva el dato del segundo apunte? Gracias por vuestro tiempo Duda2.xlsm

Buenas noches. Aquí estoy de nuevo, siento que abuso del conocimiento general aunque voy avanzando a base de horas y vuestra ayuda. Al lío. Pretendo que me busque en el rango B5:B20, de las hojas de los meses, la coincidencia con la celda B:4 de la hoja Anual, que busque en esa fila de la hoja del mes la letra "C" y me devuelva en la celda E5 de la hoja Anual la fecha que le corresponde (=FECHA(AK4;MES(B4&1);F7), en el ejemplo que nos ocupa) Mil gracias por las soluciones que me aportáis siempre. Foro.xlsm

Efectivamente, así también funciona Victor7 Ahora ya conozco dos modos diferentes de hacerlo, dependiendo de lo que necesite. ¡Gracias! Ahora tengo otra duda que no se resolver pero, como es cuestión de buscar una celda, revisaré el foro y en su caso abriré un hilo diferente

Tengo 2013, podré apañarme con las primeras. ¡Mil gracias!

Buenas noches, ya he visto como extraer el día de la semana, el día o el mes de una celda en la que he introducido una fecha. Mi pregunta es como puedo hacer eso mismo, extraer el día de la semana (lunes, martes...) pero partiendo de los datos en celdas independientes (en una el número de día, en otra el mes y en otra el año. Tengo un archivo de muestra en el que hace algo parecido, pero al cambiar el año no responde. Gracias por la ayuda Fecha.xlsx Muestra.xlsx

Poco a poco voy prosperando (es este archivo o yo 🤪), he hecho un ejemplo con lo que creo que está mejor, pero no consigo hacer el envío del correo. Adjunto archivo que tiene dos macros: - Para imprimir la semana 1 - Para imprimir la semana 2 Necesito una macro que me lance esas otras dos macros y adjunte los pdf en un email. Muchas gracias por la ayuda. Para macro.xlsm

Buenas tardes. He hecho dos macros que imprimen dos pdf de diferentes páginas. Primero hago el pdf: Sub printdep() Dim nombre As String, Ruta As String, nombre2 As String Sheets("Horarios").Select Range("A1:Q42").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$42" Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$42" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(1.7) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0.2) .BottomMargin = Application.InchesToPoints(0.2) .HeaderMargin = Application.InchesToPoints(0.31496062992126) .FooterMargin = Application.InchesToPoints(0.31496062992126) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" ThisWorkbook.ActiveSheet.PrintOut Application.PrintCommunication = True Sheets("HORARIOS").Select End With Y lo envia: Sub EnvioDatosVend() Dim narch As String Dim cliente As String Dim mail As String Dim Ruta As String Dim libro As String Dim ahora As String Dim vend As String Dim ArchivoPdf As String Dim ImpresoraAct As String Dim ProgCorreo As Object Dim CorreoSaliente As Object With Application .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False End With ImpresoraAct = Application.ActivePrinter Application.Dialogs(xlDialogPrinterSetup).Show Sheets("Horarios").Select narch = Range("G54") cliente = Range("V3") mail = Range("C55") vend = Range("C54") Ruta = "C:\temp\" ahora = Application.WorksheetFunction.Text(Now(), "dd.mm.yy") libro = narch & " " & vend & " " & cliente & ".pdf" ArchivoPdf = Ruta & libro Set ProgCorreo = CreateObject("Outlook.Application") Set CorreoSaliente = ProgCorreo.CreateItem(0) With ActiveSheet .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ArchivoPdf, Quality _ :=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False _ , OpenAfterPublish:=False End With On Error Resume Next With CorreoSaliente .To = mail .CC = "" .BCC = "" .Subject = narch & " " & vend & " " & cliente .body = "Hola " & vend & Chr(13) & "Te mando el horario del mes." & Chr(13) & "Un saludo." .Attachments.Add ArchivoPdf .Send End With On Error GoTo 0 Set CorreoSaliente = Nothing Set ProgCorreo = Nothing With Application .ScreenUpdating = True .EnableEvents = True .DisplayAlerts = True End With El otro pdf funciona de forma similar, pero no consigo saber donde nombrar el archivo al crear los .pdf ni donde indicar en las macros de envío que es uno u otro el que quiero enviar. Funcionar, milagrosamente, funcionan, pero siempre me envía el mismo PDF Está claro que no tengo idea de cómo realizar macros, lo intento a base de ideas que encuentro y de prueba y error, pero se me está resistiendo. ¿Podéis ayudarme? Gracias!

Bueno, bueno... menudo lío tenía, ¡solucionado!

Buenas tardes. Quiero poner una fórmula en la celda C5 que me tiene que cumplir unas condiciones: - La celda C2 tiene que coincidir con la B17 (en este caso) - La celda C8 se relaciona con los valores de C16 a C19 - La celda C9 se relaciona con los valores de D16 a D19 - Dependiendo de que condiciones cumple me devuelve uno de los valores de C16 a C19 - Si falta por rellenar alguna casilla de las necesarias... que me la deje en blanco. He intentado esto, pero estoy un poco perdida y no termino de rematarlo. =SI.CONJUNTO(C2="VIVIENDAS";Y(C8="< 0,5";C9<20);E16);(C2="VIVIENDAS";Y(C8="≥ 0,5";C9<=1);E17);(C2="VIVIENDAS";Y(C8="≥ 0,5";C9>1;C54<=20);E18);(C2="VIVIENDAS";Y(C9>20);E19);"") Si podéis ayudarme luego ya continúo yo con la misma estructura Imagen: Imagen Prueba.xlsx

Al final lo he solucionado por medio de una macro que me copia las filas seleccionadas a la tabla general

Gracias Victor7, pero si que trabajo en español. He leído por ahí que no soy la única a quien le ocurre, el no tener disponibles algunas funciones, pero la verdad es que todo era de hace un par de años. También me dice que no tengo actualizaciones pendientes. Un misterio.

Llevo un rato dando vueltas a esta idea, y el problema principal es que algunas funciones, entre ellas APILARV, no me aparecen como opción en mi 365 ¿Hay forma de activarla?

Todos los listados de datos son exactamente iguales (en sus encabezados de columna) no encuentro la forma de relacionarlos porque no tengo datos que sustituir de una tabla a otra, solo tengo que copiar las filas de todos los listados a un listado único. Te pido también disculpas si no lo he entendido, créeme que lo intento

No sé cómo disculparme Victor7, pero no entiendo el proceso

He encontrado este hilo en el que el resultado es lo que deseo. Problema: si no introduzco manualmente cada fila... no consigo que funcione. Habitualmente los datos me llegan en un archivo ajeno, por lo que el sistema por el que yo los añado, a mi archivo, es un copia-pega de todas las filas a la vez. En cada registro entran varias decenas de filas. https://ayudaexcel.com/foro/index.php?/topic/11124-solucionado-copiar-datos-no-coincidentes-de-una-hoja-a-otra/#comment-69958 También he visto este otro hilo en el que consolida pudiendo elegir las hojas. ¿Sería la mejor solución que cada vez que modifico cualquier hoja haga una consolidación, de todas las hojas, por medio de una macro similar? No he sido capaz de hacerlo por medio de la herramienta consolidar habitual. https://ayudaexcel.com/foro/index.php?/topic/2487-solucionado-seleccionar-hojas-para-consolidar-en-un-base/#comment-14377 El objetivo es llegar a un listado general del que posteriormente voy a realizar unas tablas dinámicas. Busco la solución para que si añado una hoja más... los datos vayan también al listado general y así no tener que modificar de donde quiero que las tablas me recojan los datos. El motivo de no añadir los datos directamente al listado general es para que cada incidencia recoja el dato de la celda B1 de cada hoja. Dada mi poca habilidad cualquier ayuda será bienvenida. Gracias! Preguntando1.xlsx

Buenas tardes, si este tema está tratado con anterioridad os agradezco que me remitáis al hilo adecuado, no he conseguido encontrarlo. En un libro tengo una hoja con un listado, otra hoja con otro listado diferente, y una tercera con lo que pretendo sea un listado que recoja a los dos anteriores (que junte ambos porque todas las entradas son diferentes). Me gustaría que al añadir una línea en alguno de los dos listados... se copiara de forma automática en el final. ¿Es posible? ¿Por donde empiezo a plantearlo? Envío un archivo ejemplo

Muchísimas gracias, estoy aquí porque pensaba que la solución sería algo relacionado con los enlaces dentro de la página. Mil gracias, funciona estupendamente

Buenos días En la hoja hay un botón 'Datos 2'. Me gustaría saber si es posible hacer que la fila 35 resulte, al utilizar el botón, posicionada donde originalmente está la fila 5, de forma que encajen los datos con los encabezados fijos. Gracias por vuestro tiempo Libro1.xlsx

¡Increíble! Con la de vueltas que le he dado Mil gracias

Buenas tardes Quiero saber si en la base de 400 filas hay alguna, no me importa cual sea, que cumpla unas condiciones determinadas. - En la columna B un nombre concreto (En el ejemplo: Amalia) - En la columna D o en la columna F un dato concreto (En el ejemplo: Libro 1) Lo que en una fila vendría a ser: =SI(Y($B2="Amalia"; O($D2="Libro 1"; $F2= "Libro 1")); 1; "") pero revisando en todas las filas. Gracias Edito porque igual lo que yo me estoy planteando no es el enfoque correcto. Quiero marcar en la Hoja 2 si esas condiciones se cumplen en alguna fila de la Hoja 1. Envío.xlsm