Utilizo este codigo para hacerlo solo que siempre me toma el ultimo registro y yo quiero que me tome solo el primero que cumpla con la condición alguna sugerencia.
Código:
Espero su valiosa ayuda por lo pronto gracias y espero respuestas. For Fila = 1 To GrillaPeriodosFiniquitos.Rows - 1 If GrillaPeriodosFiniquitos.TextMatrix(Fila, 3) >= FHoy Or _ GrillaPeriodosFiniquitos.TextMatrix(Fila, 4) <= FHoy Then TxtSemana.Text = "SEMANA No. " & GrillaPeriodosFiniquitos.TextMatrix(Fila, 1) & _ " (DEL " & Day(GrillaPeriodosFiniquitos.TextMatrix(Fila, 3)) & _ " AL " & Day(GrillaPeriodosFiniquitos.TextMatrix(Fila, 4)) & _ " DE " & sacames(Month(GrillaPeriodosFiniquitos.TextMatrix(Fila, 4))) & _ " DEL " & Year(GrillaPeriodosFiniquitos.TextMatrix(Fila, 4)) & ")" End If Next Fila