Jump to content

3 files

  1. 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

    29 downloads

       (0 reviews)

    0 comments

    Submitted

  2. 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.

    72 downloads

       (0 reviews)

    0 comments

    Submitted

  3. 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

    72 downloads

       (0 reviews)

    0 comments

    Updated

×
×
  • Create New...

Important Information

Privacy Policy