Jump to content

Antoni

Members
  • Content Count

    9,966
  • Joined

  • Last visited

  • Days Won

    513

About Antoni

  • Rank
    Antoni

Profile information

  • Gender Array
  • Localización: Array

Converted

  • Campos Array

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. No me acaba de salir, pero seguiré intentándolo, déjame el fin de semana.
  2. 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. 😂😘
  3. Esto vale para todas las fechas. descomponer_fech (1).xlsm
  4. 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
  5. Prueba a ver si lo he entendido. Generar DC.xlsm
  6. Prueba así: Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet, Range("A1")
  7. Pon la propiedad ShowModal=False en el formulario o muéstralo así: UserForm1.Show vbModeless
  8. Última oferta. Parking control II.xlsm
  9. 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
  10. 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 .
  11. No me odies a mi que "so mu majo". 😂😂😂
  12. ¡¡¡ Por fin lo has visto !!!👏👏👏👏
  13. Sube tu archivo y explicate mejor.
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5