error al buscar dato
Publicado por Albert (204 intervenciones) el 18/11/2020 09:22:42
Buenos días foreros, necesito hacer un form para llenar una hoja, hasta aquí todo va bien, el problema esta en que pretendo que al poner la fecha en el textbox1 al salir busque en la lista de los días de fiesta si esa fecha es fiesta y me lo avise escribiendo en el Label4 una nota, os adjunto el código que he puesto y no funciona, he tenido que borrar casi todo de la aplicación para poder cargarlo espero que sirva para que veáis el error.
Gracias de antemano por vuestro tiempo
PD: acabo de ver que he borrado el acceso al for de la pagina tareas
Gracias de antemano por vuestro tiempo
PD: acabo de ver que he borrado el acceso al for de la pagina tareas
1
2
3
Private Sub CommandButton1_Click()
TAREAS.ShowEnd Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim festa As Range
Set festa = Sheets("festa").Range("b5,b111")
If TextBox1.Value = festa.Value Then
With TAREAS.Label4.Caption = "Este dia es fiesta" 'nota
.Font.Bold = True 'poner en negrita
.ForeColor = RGB(255, 0, 0) 'poner rojo las letras
.BackColor = RGB(0, 0, 0) 'poner fondo negro
End With
End If
End Sub
- Prueba-2.rar(26,5 KB)
Valora esta pregunta
0
