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?