Jump to content

Calendario perpetuo con imágenes


Recommended Posts

Buenas noches. Soy nuevo en este foro y con conocimientos escasos de excel (usuario). En primer lugar pido disculpas si he cometido error al publicar el mismo tema en otro foro, pero ahora mismo estoy muy atascado y quisiera sacar este proyecto adelante (personal y sin ánimo de lucro). Estoy confeccionando un calendario perpetuo basado en una plantilla que encontré, y lo quisiera hacer muy completo. El Santoral y los Festivos ya los tengo, aunque me queda pulir. El problema se me plantea a la hora de insertar las 4 fases lunares desde la carpeta Luna, solo las cuatro, en sus correspondientes celdas, respectivas a las fechas (calendario a la vieja usanza). Después vendrían las 4 estaciones y el cambio horario. He hecho algunas pruebas y considero que lo mejor sería por código, que inserte la imagen en la celda que marque la fecha correspondiente, para no insertar imagen vacía en cada celda con vinculaciones. En fin, ando un poco liado en el asunto. Confío en haber sabido explicarme. Si alguien me puede echar una mano le quedaré profundamente agradecido. Subo el archivo con las correspondientes carpetas de imágenes. En la hoja 1, Celda G16 tengo un comentario.

Calendario perpetuo.rar

Link to comment
Share on other sites

  • He partido de la imágenes de la hoja Lunas, a las que les he cambiado el nombre.
  • Me he basado en la columna AA de la hoja Lunas para determinar si la fecha tiene luna o no.
  • Las macros están en ThisWorkbook.
  • Las imágenes se actualizan al activar la hoja y se eliminan al desactivarla para ahorrar en el tamaño del archivo.

Calendario (1).xlsm

Link to comment
Share on other sites

  • 4 months later...
En 27/3/2021 at 20:12 , Antoni dijo:
  • He partido de la imágenes de la hoja Lunas, a las que les he cambiado el nombre.
  • Me he basado en la columna AA de la hoja Lunas para determinar si la fecha tiene luna o no.
  • Las macros están en ThisWorkbook.
  • Las imágenes se actualizan al activar la hoja y se eliminan al desactivarla para ahorrar en el tamaño del archivo.

Calendario (1).xlsm 738.33 kB · 21 descargas

Buenos días. He vuelto a retomar el asunto del calendario. He aplicado otro formato que me sirva para imprimir, con números más grandes.  He utilizado el código vba que Vd. me hizo para copiar las imágenes de la luna al día correspondiente en su mes …. Creo que me sale bien de pura casualidad (con las fórmulas me defiendo algo, pero no se programar, intento descifrar el lenguaje; por ejemplo, a la hora de determinar el rango del mes, For X creo comprenderlo, pero For Y no lo pillo. Los datos que he corregido de su código son a base de probar, lo que no significa que sean correctos).

He hecho varios intentos para copiar igualmente la imagen de las estaciones del año, así como de los cambios horarios, pero no lo consigo. Por ej. si coincide en el mismo día luna con estación, solo me copia 1 de las 2, etc …

Verá que tengo el calendario con símbolos, que copiando y pegando a mano no tendría que molestarlo, pero el código que Vd me hizo me parece sumamente interesante para sacarle más provecho el día de mañana (por ej, poner una foto de mi nieto en el día de su cumpleaños …), por lo que ruego, cuando Vd disponga de tiempo y si tiene a bien, me lo explique un poco más detallado. Gracias.

Verá algunas de mis modificaciones en vba ThisWorkbook seguidos de apóstrofe.

Los datos de Lunas están en la hoja Lunas, columna 27.

Los datos de Estaciones (Estación) están en la hoja Lunas, columna 30.

Los datos de C/Horario (Horario) están en la hoja Lunas, columna 32.

Si necesitara el archivo inicial sobre el que me hizo el código, se lo puedo enviar.

Mi_Calendario.rar

Link to comment
Share on other sites

Una vez más me sorprende Vd por su rapidez, su altruismo ....

No lo he probado a fondo pero seguro que perfecto. Casi, casi lo tenía, efectivamente. No tengo palabras para agradecerle. 

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Hola, Observo que el planteamiento o tu formulación está mal. 1. Todos los dias deberán sumar 24:00 horas excepto el domingo que unicamente trae información hasta las 6 de la mañana. 2. Lo que observo es que esas 24:00 los componen diferentes cortes de tiempo (Columna A) 3. Creo que lo que deberás graficar son los # de casos o cuantos eventos suceden cada dia. 4. Existen algunos días que rebasan las 24 horas, por eso agregué  el formato de días. Este es el resumen. Ya me comentarás  
    • Abre un Modulo ( Alf + F11) y copia la macro, el Archivo TXT colocalo en la misma carpeta donde se encuentyre tu archivo excel. Si observas la macro, procesará el archivo 1.TXT Sub opentxt()     Application.ScreenUpdating = False     Application.DisplayAlerts = False     Range("a1:b1000").ClearContents     Dim myfile As Variant, cad As String, fila As Long     ruta = ActiveWorkbook.Path     ChDir ruta     myfile = "1.txt"     fname = Dir(myfile)     If fname = "" Then         MsgBox "No existe archivo en esta carpeta"         Exit Sub     End If          Open myfile For Input As #1     fila = 1     Cells.Clear     While Not EOF(1)         Line Input #1, cad         Cells(fila, 2) = cad         fila = fila + 1     Wend     Close #1          Application.ScreenUpdating = True     Application.DisplayAlerts = True End Sub  
    • Si me haces el favor de enviarme la macro para  intentarlo te lo agradeceré enormemente... sirve que aprendo también un poco. 
    • Buenas noches a todos los Foristas. Hola JSD, eso está PERFECTO, de hecho es más de lo que tenía pensado. Verdaderamente ustedes saben y yo trato de aprender cada día. Qué más puedo decir? Gracias mil por todo este  trabajo. Otra cosa, descuide, que si yo acudo a ustedes es porque he agotado los pocos conocimientos que tengo. Realmente sólo requiero de un ligero "empujón", un ejemplo de la duda que tengo para yo continuar con el trabajo, porque de esa manera aprendo, fijándome en el código, analizándolo y después lo desarrollo a mis necesidades. No tengo palabras para agradecerle el gesto y el trabajo realizado. Estoy en deuda con usted y porqué no, con otros miembros de este Maravilloso FORO. Doy por cerrado el tema. Un abrazo a todos y en especial a usted JSD por su paciencia y dedicación para conmigo. Nunca lo olvidaré, por eso dije en una ocasión que lo consideraba Mi Amigo, aun cuando ni siquiera nos conocemos, pero es que su comportamiento, su manera de enfocar los temas, su actitud siempre positiva y su altruismo tienen consecuencia y esa consecuencia es  decirle AMIGO. Salud y bendiciones Un abrazo. Pino
    • 1. Tu tienes forma de convertirlos a TXT? 2. Si comprimes todos los archivos RTF a RAR o ZIP  cuanto pesan Te lo pregunto porque la macro me funcion de TXT a Excel, no e podido hacerlo directamente desde RTF.  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy