Buscar en hoja lista de cumpleaños
Dante Amor :
En Userform1 de Excel tengo lo sgte.
1 label1 (hoy), textbox1 (fecha hoy), botón cmd1 (busca), listbox1 con 2 col nombres y fecha cumple.
En hoja1 de excel tengo :
A B
Nombres fecha nacimiento
Juan 15/10/1990
Carlos 28/11/1956
Ana 13/10/1985
Lo que deseo es el código del botón buscar al presionar busque con la fecha del textbox1 (fecha de hoy) y me liste los cumpleañeros del día de mañana comparando con su fecha de cumpleaños de la hoja1.
Ejm sí hoy es 12/10/2016 al dar click en botón buscar en el listbox me aparecería Ana con su fecha de nac. 13/10/2016
1 respuesta
¡Gracias! Por supuesto
estoy esperando la macro
H o l a:
Te lo preparo y te aviso
H o l a:
Te paso la macro
Private Sub Busca_Click()
ListBox1.Clear
If IsDate(TextBox1) = True Then
fecha = Format(TextBox1, "dd/mm")
fecha1 = Format(Mid(fecha, 1, 2) + 1, "00") & "/" & Mid(fecha, 4, 5)
Set h = Sheets("Hoja3")
For i = 3 To h.Range("B" & Rows.Count).End(xlUp).Row
If Format(h.Cells(i, "B"), "dd/mm") = fecha1 Then Call agregar(ListBox1, h, i)
Next
Else
MsgBox "fecha no válida"
End If
End Sub
'
Sub agregar(LBox As MSForms.ListBox, h, i)
LBox.AddItem h.Cells(i, "A")
LBox.List(LBox.ListCount - 1, 1) = h.Cells(i, "B")
End SubCambiar la valoración de la respuesta para finalizar saludos!
