Anónimo
Excel vba - dar la información de una celda teniendo en cuenta dos variables
Soy nueva por aquí, espero que puedan ayudarme
Estoy aprendiendo poco a poco vba y quería crear un excel que teniendo en una hoja estos datos:
Necesito que teniendo en mi userform un textbox que genera la fecha del día de hoy con la formula today() busque en la fila el día y cuando encuentre eso, creando una variable buscando la palabra libre y me de el nombre del empleado.
En este ejemplo que planteo sería empleado1 teniendo en cuenta el día de hoy
Dim fila As Integer
Dim columna As Integer
Dim horario As Integer
horario = "libre"
Range(M1) = Date
For fila = 2 To 200
If range(m1) = Hoja1.Cells(fila, 1) Then
For columna = 2 To 4
If Hoja1.Cells(fila, columna) = horario Then
Me.TextBox1 = Hoja1.Cells(1, columna)
La fecha la encuentra pero no recorre las columnas
muvhas gracias
No me quedo muy claro lo que necesita, pero con una pequeña modificación al código realice la prueba y al día de hoy me da como resultado "empleado3"
Cualquier cosa me comenta. Saludos.
El código:
Private Sub cmdBuscar_Click()
Dim Fecha As String
Dim fila As Integer
Dim columna As Integer
Dim horario As Integer
horario = libre
Range("M1") = Date
For fila = 2 To 200
If Range("M1") = Hoja1.Cells(fila, 1) Then
For columna = 2 To 4
If Hoja1.Cells(fila, columna) = horario Then
Else
Me.TextBox1 = Hoja1.Cells(1, columna)
End If
Next columna
End If
Next fila
End Sub