Maku

Solucionado! Libro2.xlsm

Aunque bien mirado... no sé si sería suficiente con igualar el color del texto al fondo. ¿Hay más opciones?

Buenas tardes, pretendo ocultar las celdas AF8:AF10, o que el texto resulte del mismo color que el fondo, en el mes de febrero de los años no bisiestos. He intentado esto... pero me da error. ¿Me podéis orientar? Sub VerificarAnioBisiesto() Dim año As Integer ' Asignar el valor de la celda B2 a la variable año año = Range("B2").Value ' Comprobar si el año es bisiesto If (año Mod 4 = 0 And año Mod 100 <> 0) Or (año Mod 400 = 0) Then ' Hacer visibles CELDAS Range("AF8:AF10").EntireColumn.Hidden = False Else ' Si no es bisiesto, ocultar CELDAS Range("AF8:AF10").Fuente.Color = RGB(255, 255, 255) End If End Sub Libro1.xlsm

¡Mil gracias! Funciona de maravilla

He hecho un archivo pequeño, en el que me ocurre lo mismo, a ver si me deja subirlo Envío.xlsx

No! Curiosamente me extrae los datos de ene y feb pero a partir de ahí (mar, abr, may...) me devuelve resultado 0,00 o #N/D ¿Donde puede estar el fallo? He mirado en cada mes y vienen nombrados así.

Ya está! Si después de horas... no hay como preguntar. Simplemente haciendo un BUSCARV, del valor que aparece en la tabla dinámica, en el rango de los datos =BUSCARV('Resumen Anual'!$X$5;'Previsión y Seguimiento'!P7:T19;2)

Buenas tardes, necesito ayuda porque no sé como resolver esto. Mi intención es que la segmentación de datos (de las gráficas) por mes de la pestaña Gráfico me traiga los datos, de objetivo y reales, de la pestaña Previsión y Seguimiento a las celdas AA (8-10-15-17) de la pestaña Gráfico. ¿Es posible hacerlo de algún modo? Aún reduciendo el archivo al máximo no me permite subirlo ni enviarlo por Drive, por eso he intentado explicarme con la imagen. Gracias por vuestro tiempo

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