Cargar datos a ListBox desde Calendar en un UserForm
Hola!
En un UserForm tengo un Calendar.12 y un ListBox; y en la Hoja "TURNOS" de Excel, los pacientes (col A), fecha (col B) y hora (col C).
Lo que necesito es que, al hacer click en una fecha del Calendar, me cargue el ListBox con los pacientes para ese día, con el horario.
Se me complica porque, obviamente, las fechas en la hoja están repetidos (ej.: 5/11 18:00 hs.; 5/11 18:30 hs.; 5/11 18:45 hs., etc)
Gracias!
1 Respuesta
Respuesta de Dante Amor
1
Ya recibí tu correo, voy a realizar los cambios y te contesto.
Saludo. Dam
Te anexo la macro
Private Sub Calendar1_Click()
ufila = Range("A" & Rows.Count).End(xlUp).Row
'por.dam
wfecha = Calendar1.Value
ListBox1.ColumnCount = 2
ListBox1.Clear
For i = 1 To ufila
hora = Hour(Cells(i, 3)) & ":" & Minute(Cells(i, 3))
If Cells(i, 2) = wfecha Then
If Minute(Cells(i, 3)) = 0 Then
Minuto = "00"
Else
Minuto = Minute(Cells(i, 3))
End If
hora = Hour(Cells(i, 3)) & ":" & Minuto
With Me.ListBox1
.AddItem Cells(i, 1).Value
.List(.ListCount - 1, 1) = hora
End With
End If
Next
End SubTambién te envié el archivo a tu correo.
Saludos. Dam
Si es lo que necesitas.
