Máximos colaboradores

Hola. O das muchos, pero muchos más detalles, o será casi imposible date una respuesta certera.

Muchísimas gracias @Abraham Valencia justo en el clavo 🙂

Y cuando pulse sobre cualquier celda con texto en la columna I de la hoja tablas te muestra el pdf en pantalla completa yo te lo muestro un poco reducido para que quepa en el gif

Hola. Ahora sí ya lo vi. Basta esta línea antes del Save: objJSO.FlattenPages Comentas

Sube tu archivo

Prueba a ver si es esto lo que quieres. CALENDARIO PRUEBA (1).xlsm

Pues yo te puedo aconsejar que no borres archivos que vas a necesitar 😁 jajaja, solo era bromita, no te enojes... de verdad que es un dolor de cabeza intentar recuperar la información, muchas herramientas no pueden recuperarla o recuperan solo una parte. Lo mejor es la previsión y guardarse copias hasta debajo del colchón. Espero que tengas suerte.

Buenas tardes colegas del Foro. Buenas tardes Profesor Antoni y Porfesor JSD. Una vez más en "encrucijada" positiva, es una suerte tener dos soluciones de dos personas a las que admiro. Gracias a ambos. Las dos son perfectas (como siempre), nada que acotar, solo agradecer otra vez más a los dos por sus aportes y desearle mucha salud y bendiciones. Gracias y mis respetos. saludos Pino.

Te dejo una función, puedes usarla en macros y formularios o como fórmula. Function Edad(Identidad As String) As Variant Dim Año, Mes, Día '-- If Not IsNumeric(Identidad) Or Not Len(Identidad) = 11 Then Edad = "#Error Identidad" Exit Function End If '-- Año = CInt(Left(Identidad, 2)) If Año > Year(Date) - 2000 Then Año = Año + 1900 Else Año = Año + 2000 End If '-- Mes = CInt(Mid(Identidad, 3, 2)) Día = CInt(Mid(Identidad, 5, 2)) Edad = Year(Date) - Año '-- If Mes > Month(Date) Or _ (Mes = Month(Date) And Día > Day(Date)) Then Edad = Edad - 1 Exit Function End If End Function Cumpleaños Foro.xlsm

Hola, podrías cambiar esta línea del código de Israel Por esto otro Worksheets("Hoja2").Range("C1").Value = pt.SourceData

El calendario se calcula automáticamente a partir de la cela Q1. En Q3 hay una llamada a la UDF FirstMonthMonday. Hay 2 formatos condicionales para marcar las fechas fuera del mes. Abre el adjunto y pulsa sobre el "botón" Trova Date. Mio_Progetto_Calendar.xlsx.xlsm

Hola a todos! Este Subforo de Ideas y Aportes es exclusivo para que puedan dar sus ideas, aportes, curiosidades, novedades, tópicos, relativos a Excel. No es para preguntar o pedir ayuda sobre problemas con Excel, inclusive pueden testear, probar y/o advertir errores de los archivos y/o aportes, pero nunca para preguntar cómo se puede acomodar el aporte a un tema y/o problema en específico o en particular. Por insignificante que parezca el aporte (Para alguien de ustedes) no duden en compartirlo con nosotros, recuerden que aquí hay desde usuarios novatos, hasta desarrolladores profesionales, que seguro no lo saben todo, sobre EXCEL Saludos!