Agendas

4 files

1. 

   Agenda Calendario Lunar 2023

   By pegones1

   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 reviews)

   0 comments

   Submitted January 2

2. 

   Calendario Laboral Dinámico

   By pegones1

   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 reviews)

   0 comments

   Submitted December 3, 2020

3. 

   Mis álbumes de fotos

   By Antoni

   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.
   

   76 downloads

      (0 reviews)

   0 comments

   Submitted December 29, 2018

4. 

   Agenda

   By EMIRO ERAZO

   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 reviews)

   0 comments

   Updated September 23, 2016