Agendas
4 files
-
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 comments
Submitted
-
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 comments
Submitted
-
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.
77 downloads
0 comments
Submitted
-
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 comments
Updated