Jump to content

Antoni

Members
  • Content Count

    9,966
  • Joined

  • Last visited

  • Days Won

    513

Everything posted by Antoni

  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.
  14. Los genios somos así, jajaja 😋
  15. En el evento Open de ThisWorkbook: Userform1.Show
  16. Adelantándome a tu respuesta y suponiendo que la respuesta a la pregunta de mi post anterior es SI: Sub Copia(): On Error Resume Next Dim COMIDA As Range, NOMBRE As String Application.ScreenUpdating = False Application.DisplayAlerts = False For Each COMIDA In Sheets("LISTA").Range(Sheets("LISTA").Range("B2"), _ Sheets("LISTA").Range("B2").End(xlDown)) Sheets("BASE").Copy After:=Sheets(Sheets.Count) With ActiveSheet If Len(COMIDA) > 10 Then NOMBRE = Left(COMIDA, 10) Else NOMBRE = COMIDA End If Sheets(NOMBRE).Delete .Name = NOMBRE .Range("G5") = COMIDA .Range("G6") = COMIDA.Offset(, 1) 'TIPO .Range("M21") = COMIDA.Offset(, 2) 'CALORIAS .Range("F21") = COMIDA.Offset(, 3) 'SALUDABLE .Range("F22") = COMIDA.Offset(, 4) 'VÍNCULO .Range("F22").Hyperlinks.Add _ Anchor:=.Range("F22"), _ Address:=COMIDA.Offset(, 4).Hyperlinks(1).Address End With Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
  17. A ver si nos aclaramos, vamos a ver si somos capaces de entender lo que quieres, porqué no queda nada claro Definición del procedimiento: Crear una hoja nueva con cada fila de la hoja LISTA, a imagen de la hoja BASE, con el nombre de la columna B, con un maximo de 10 caracteres, respetando el hipervinculo de la columna F. CONTESTA: SI-NO
  18. For/Next es un bucle de instrucciones, depende de ti el uso que quieras darle y que instrucciones pones dentro de él. Por ejemplo, supongamos que quieres poner "Hola" en el rango A1:F25 (25 filas x 6 columnas), tienes 2 posibilidades, con un bucle o con dos bucles: Sub Opción_1() For x = 1 To 25 'Filas For y = 1 To 6 'Columnas Cells(x, y) = "Hola" Next Next End Sub Sub Opción_2() For Each celda In Range("A1:F25") 'Celdas celda = "Hola" Next End Sub ¿Está mas claro?
  19. Y porqué no lo dejas así; Private Sub Workbook_Open() MsgBox "Es importante recordar enviar el correo de los marchamos retirados al Laboratorio!!" & vbNewLine & "Revisar el retiro de las muestras de leche en almacenes", vbExclamation, "JBalladares ---- Aviso automático" If Range("H1") = "ACTIVAR" Then Application.OnTime TimeValue("19:02:00"), "Recordar" End Sub Recuerda que esta macro solo se ejecuta al abrir el libro.
  20. Creo que ahora si. Importa el formulario Links del adjunto a tu archivo y pruébalo a ver que tal. Para importar el formulario, abre el adjunto y tu archivo y arrastra el formulario. Cambiar links.xlsm
  21. Lo mismo, pero con selección múltiple de archivos. Sub CambiarLinks() Dim Archivos As Variant ChDir "C:\Users\Carpeta1" Archivos = Application.GetOpenFilename("Archivos Excel (*.xls*), *.xls*", MultiSelect:=True) If IsArray(Archivos) Then For i = 1 To UBound(Archivos) With ActiveWorkbook .ChangeLink .FullName, Archivos(i), xlExcelLinks End With Next End If End Sub
×
×
  • Create New...

Important Information

Privacy Policy

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