Antoni

Bueno, creo que ya está. Original.xlsm

Sube tu archivo y concreta la consulta.

No me acaba de salir, pero seguiré intentándolo, déjame el fin de semana.

Con el paso del tiempo me olvido de las consultas, con lo que no me afecta si el consultante agradece o no la respuesta, allá el con su conciencia. 😂😘

Esto vale para todas las fechas. descomponer_fech (1).xlsm

Se toma como base el año de la celda A2. Sub Descomponer() Application.ScreenUpdating = False Range("C2:N" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents For x = 2 To Range("A" & Rows.Count).End(xlUp).Row fecha = Range("A" & x) For fecha = fecha To Range("B" & x) If Year(fecha) = Year(Range("A2")) Then Cells(x, Month(fecha) + 2) = Cells(x, Month(fecha) + 2) + 1 End If Next Next End Sub

Prueba a ver si lo he entendido. Generar DC.xlsm

Prueba así: Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet, Range("A1")

Pon la propiedad ShowModal=False en el formulario o muéstralo así: UserForm1.Show vbModeless

Última oferta. Parking control II.xlsm

Se parte de la premisa que el procedimiento de entrada y salida de vehículos es manual. A la entrada del vehículo, introducir el Nº de Boleto y pulsar ENTRADA A la salida del vehículo, seleccionar el Nº de Boleto de la lista, seleccionar la tarifa, cobrar 🙂 y pulsar REGISTRAR. Esto no es una solución personalizada. No se admiten modificaciones, salvo mal funcionamiento. Parking control.xlsm

Tienes un error de concepto, por eso no consigues hacer lo que quieres. Los formularios no son formas que están en una hoja, de hecho son objetos independientes de Excel que se muestran por encima de este. Por lo tanto cuando se muestran verás la hoja activada en ese momento detrás del formulario. Si tu muestras el formulario al abrir el archivo (Evento Workbook_Open de Workbook en Thisworkbook) verás el formulario por encima de la hoja activa en el momento de guardar por última vez el archivo. Si quieres que el formulario aparezca por encima de una hoja en concreto, actívala antes de mostrarlo. Sheets("Nombre de la hoja").Activate Userform1.Show 'O Mensaje.Show o el nombre del formulario a mostrar .

No me odies a mi que "so mu majo". 😂😂😂

¡¡¡ Por fin lo has visto !!!👏👏👏👏

Sube tu archivo y explicate mejor.