Saltar al contenido

Agendas / Directorios

Aportes relacionados con agendas, diarios, calendarios, dietarios y gestión del tiempo.

5 files

  1. Agenda Calendario Lunar 2024

    Para comenzar bien el año comparto con todo el mundo la mejor:
    🗒️ Agenda de 366 días y 24 horas al día.
    📅 Calendario del año bisiesto 2024.
    🌛 Lunar con las 4 fases de la Luna.
    🏎️ hecha con fórmulas de Excel.
    Que además es:
    🕝 un Diario de 24 horas.
    🔍 un Buscador de cualquier texto de la agenda.
    🏖️ un aviso de Festivos.
    ☀️ un recordatorio de Aniversarios.
    ⛅ un Calendario que funciona en la nube OneDrive.
    Más datos aquí: https://pedrowave.blogspot.com/2024/01/agenda-calendario-lunar-2024.html
    ¡¡¡ Feliz Año Nuevo 2024 !!! 🥂🍾
    Salu2,
    Pedro Wave
     

    5 downloads

       (0 revisiones )

    0 comentarios

    Enviado

  2. Agenda Calendario Lunar 2023

    Como felicitación de Año Nuevo adjunto una Agenda Calendario Lunar 2023.

    Las explicaciones en mi blog:
    https://pedrowave.blogspot.com/2023/01/agenda-calendario-lunar-2023.html
    Salu2,
    Pedro Wave
     

    3 downloads

       (0 revisiones )

    0 comentarios

    Enviado

  3. Calendario Laboral Dinámico

    Nuevo calendario laboral con la plantilla descargable y explicaciones en texto y en vídeo de cómo lo he hecho. Espero que te guste y me lo digas...
    ¡Ya puedes pedir las vacaciones del 2021!

    Edita la tabla de la hoja de Eventos para poner los días festivos de tu localidad.
    El calendario se puede imprimir.
    Está basado en un calendario hecho con una tabla dinámica.
    Puedes leer más sobre este calendario en este enlace:
    https://pedrowave.blogspot.com/2020/12/calendario-laboral-dinamico-en-excel.html

    40 downloads

       (0 revisiones )

    0 comentarios

    Enviado

  4. Mis álbumes de fotos

    Hola a todos:
    Os dejo un formulario para crear y visualizar álbumes de fotografías.
    Cada álbum va en una hoja.
    Puede haber cualquier número de álbumes.
    Cada álbum puede contener cualquier número de imágenes.
    En el formulario:
    Se pueden añadir múltiples imágenes a la vez. Al pulsar sobre la miniatura cambia la resolución de la imagen. El resto os lo dejo para que lo descubrais vosotros.
    Paz y amor.

    77 downloads

       (0 revisiones )

    0 comentarios

    Enviado

  5. Agenda

    Mi Agenda se concentra en Buscar: Técnicos, Choferes y Coteros.
    Cambien los nombres de acuerdo a lo que ustedes Buscan con frecuencia 
    Los datos se agregan en Hoja Registro, y se visualizan en Hoja Buscador
    Para colocar Imagen a la Carpeta: Clic  con botón derecho a la Carpeta/ Propiedades/Personalizar/Cambiar Icono/Escoger la Imagen: Icono e la Carpeta 8es e extensión  “ico”)

    Código UserForm1
     
    Private Sub Label1_Click()
    End Sub
    Private Sub ComboBox1_Change()
    End Sub
    Private Sub CommandButton1_Click()
    Valor = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Sheets("Registro").Range("A:C"), 3, 0)
    Me.Label1.Caption = Valor
    End Sub
    Private Sub Label2_Click()
    End Sub
    Private Sub Label4_Click()
    End Sub
    Private Sub CommandButton2_Click()
    Valor = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Sheets("Registro").Range("A:C"), 2, 0)
    Me.Label4.Caption = Valor
    End Sub
    Private Sub CommandButton3_Click()
    Unload Me
    End Sub
    Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Sheets("Registro").Range("A2:A300").Value
    End Sub
    Código UserForm2
     
    Private Sub Label6_Click()
    End Sub
    Private Sub ComboBox2_Change()
    End Sub
    Private Sub CommandButton3_Click()
    Valor = Application.WorksheetFunction.VLookup(Me.ComboBox2.Value, Sheets("Registro").Range("D:E"), 2, 0)
    Me.Label6.Caption = Valor
    End Sub
    Private Sub Label7_Click()
    End Sub
    Private Sub CommandButton4_Click()
    Unload Me
    End Sub
    Private Sub UserForm_Initialize()
    Me.ComboBox2.List = Sheets("Registro").Range("D2:D300").Value
    End Sub
     
     
    Código UserForm3
     
    Private Sub Label7_Click()
    End Sub
    Private Sub ComboBox3_Change()
    End Sub
    Private Sub CommandButton6_Click()
    Valor = Application.WorksheetFunction.VLookup(Me.ComboBox3.Value, Sheets("Registro").Range("F:H"), 3, 0)
    Me.Label8.Caption = Valor
    End Sub
     
     
    Private Sub Label10_Click()
    End Sub
     
     
    Private Sub Label8_Click()
    End Sub
    Private Sub Label9_Click()
    End Sub
    Private Sub CommandButton7_Click()
    Valor = Application.WorksheetFunction.VLookup(Me.ComboBox3.Value, Sheets("Registro").Range("F:H"), 2, 0)
    Me.Label9.Caption = Valor
    End Sub
    Private Sub CommandButton8_Click()
    Unload Me
    End Sub
    Private Sub UserForm_Initialize()
    Me.ComboBox3.List = Sheets("Registro").Range("F2:F300").Value
    End Sub
     
     
     
     
    Código Hoja 1 (Registro)
     
    Private Sub CommandButton2_Click()
    UserForm1.Show
    End Sub
     
     
    Private Sub CommandButton3_Click()
    UserForm2.Show
    End Sub
     
     
    Private Sub CommandButton4_Click()
    UserForm3.Show
    End Sub

    78 downloads

       (0 revisiones )

    0 comentarios

    Actualizado

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.