Antoni

Algo no encaja, porque el código que te he pasado funciona, si o si. Sube tu archivo y explica con un ejemplo de que es lo que quieres hacer.

Tu código evalúa siempre la fila 3, prueba con el código adjunto. Suponiendo que la variable Fila contiene el número de fila a evaluar: UltCol = Datos.Cells(Fila, Columns.Count).End(xlToLeft).Column

Revisa las normas del foro, es obligatorio subir un archivo con un ejemplo de lo que pretendes hacer. Sube tu archivo y explícate.

Creo que modificando esta línea, funcionaría: arch = ruta & Cells(r, 1) & ".xlsx" Y de paso añadiría al principio de la macro: Application.ScreenUpdating = False Y por último, dado que va a ser un proceso lento, poner un mensaje en la barra de estado cada vez que se abra un archivo y así poder ver el avance del proceso.

Por tercera y última vez, sube un Excel con un ejemplo de lo que quieres hacer.

Yo creo que el tema va de formato condicional, a ver si nos pones un ejemplo de lo que quieres.

Insisto, los valores no tienen formato, lo tienen las celdas. Si se puedehacer que un botón ejecute una macro que ponga en negrita la celda seleccionada, pero eso ya lo tienes en la pestaña Inicicio\Fuenta\ Botón negrita. Sube un archivo EXCEL y pon un ejemplo de lo que necesitas, pero lo de la UDF, olvídalo.

Tienes un error de concepto, los valores no tienen formato, los tienen las celdas, por esa razón una UDF no te puede devolver un dato formateado. Explica cual es tu problema y seguro que encontraremos una solución.

El dato que intentas mostrar no corresponde a una hora en la base de datos, vista VistaMov_Historial, columna total_hab.

Debes poner las fechas en formato americano (mm/dd/aaaa): sql = "select * from vistamov_historial where codsunat='" & Me.cmbmoneda.Text & _ "' and fecha_reg between #" & Format(Txtfecha_ini, "mm/dd/yyyy") & _ "# and #" & Format(txtfecha_fin, "mm/dd/yyyy") & "# order by id asc"

Revisa el adjunto, al pasar el cursor por encima de la asignatura, aparecerá el nombre del alumno. Horario (1).xlsm

Planta.xlsm

Prueba el adjunto. Planta.xlsm

Function UnirCorreos(C As String, D As String, E As String) As String If Not C = "" Then UnirCorreos = ";" & C If Not D = "" Then UnirCorreos = UnirCorreos & ";" & D If Not E = "" Then UnirCorreos = UnirCorreos & ";" & E UnirCorreos = Mid(UnirCorreos, 2) End Function Otra opción parecida a la de Janlui, pon la función en un módulo y esta formula en F2: =UnirCorreos(C2;D2;E2)

Range("A2").Formula = Range("A1").Formula