Antoni

Ahora que me doy cuenta, he confundido los like con los posts, ya que estos últimos han dejado de salir. El foro vuelve a hacer tonterías.

Dado que es tu primera consulta, te echaremos una mano. UDF-Cifras a letras .xls

Sir Gran Cacho: Ya ha visto que presuponer es la mejor forma de equivocarse. Salut i força al canut

Efectivamente.

Siempre tan "corrosivo", por cierto la consultante no ha solicitado ordenar los resultados.

Abre el adjunto y pulsa sobre la flecha azul. Nota: La hoja SIMPLE tenía un espacio en blanco al final del nombre, se lo he quitado. Dejo la macro para la posteridad, ya que elimino los archivos de la nube a los 30 días. Sub ConsolidarCORTO() Application.ScreenUpdating = False Set simple = Sheets("SIMPLE") Set corto = Sheets("CORTO") '-- corto.Columns("A").ClearContents corto.Range("A1") = "CORTOS" columna = [AC1].Column filacorto = 1 '-- Do Until Not UCase(Trim(simple.Cells(1, columna))) = "CORTO" For fila = 2 To simple.Range("A" & Rows.Count).End(xlUp).Row If Not Trim(simple.Cells(fila, columna)) = "" Then filacorto = filacorto + 1 corto.Range("A" & filacorto) = simple.Cells(fila, columna) End If Next columna = columna + 1 Loop '-- corto.Columns("A").RemoveDuplicates Columns:=1 '-- End Sub Consolidar CORTO

Hola a todos, yo iba por el mismo camino que @Riddle , pero se me ha adelantado. Entonces, he optado por una solución sin formulario, Click en el cruce de las celdas para asignar el coche. Doble-click en A1 para borrar las asignaciones. MINIBOLIDOS_GENERAR_CARRERA_V04 Antoni.xlsm

Si subes el archivo tal como lo tienes, a lo mejor, se podría hacer algo.

Hay una macro en la hoja Registro de vacaciones: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$4" Then Range("D:ND").EntireColumn.Hidden = True With Sheets("Auxiliar") Set mes = .Columns("A").Find(Target) inicio = CDate("1/" & mes.Row & "/" & [A4]) Set día = Rows(7).Find(inicio) If Not día Is Nothing Then día.Resize(1, .Range("C" & mes.Row)).EntireColumn.Hidden = False día.Offset(2, 0).Select End If End With End If End Sub No tengo los conocimientos necesarios sobre fórmulas como para poder ayudarte.

Pues es verdad, pero la consultante no nos ha ayudado mucho.

Eso requeriría que guardase los valores en una hoja antes de cerrar Excel y luego cargar los valores en el formulario a partir de esa hoja. Si por aplicación, entiendes el formulario, debes inhabilitar la cruz roja del formulario.

Hay varias formas de eliminar duplicados de un combobox/listbox, he usado una, quizás no es la mas ortodoxa, pero se entiende fácilmente. También he dado una solución a la vista preliminar del botón Imprimir, hay que ocultar los formularios. Te dejo otra forma de eliminar duplicados esta macro elimina duplicados y ordena la lista, usa la columna H de la hoja Menús. Private Sub cmbEncabezado_Change() With Sheets("Menús") Columns(cmbEncabezado.ListIndex + 1).Copy .Columns("H") .Columns("H").Sort Key1:=.Columns("H") .Columns("H").RemoveDuplicates Columns:=1 ComboBox1.RowSource = .Name & "!H1:H" & .Range("H" & Rows.Count).End(xlUp).Row End With Perfil de puesto formulario 30.xlsm

Prueba el adjunto. Vacaciones Antoni II.xlsm

Revisa el adjunto. Opciones con etiquetas.xlsm

Revisa el adjunto. Verás que he añadido una columna más al listbox, en ella añadimos el número de fila filtrado. Te adjunto este link para que sigas aprendiendo. Curso de macros Perfil de puesto formulario 21.xlsm .