Jump to content

Agendas

Sign in to follow this  

2 files

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

    38 downloads

       (0 reviews)

    0 comments

    Submitted

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

    48 downloads

       (0 reviews)

    0 comments

    Updated

Sign in to follow this  
×
×
  • Create New...

Important Information

Privacy Policy