Jump to content

Antoni

Members
  • Content Count

    9,966
  • Joined

  • Last visited

  • Days Won

    513

Posts posted by Antoni


  1. Hace 52 minutos , Silvia dijo:

    hola Tauet..

    Si te das cuenta, las personas que participan en uno y otros foros, son casi todas, las mismas..

    entonces, por ejemplo en TODOEXCEL abriste un post con el mismo título, recibiste ayuda y al final dijiste Muchas Gracias, voy a ver que tal.. y no apareciste mas, con lo que se supone que todas tus dudas fueron solucionadas......

    no @Antoni  , @Leopoldo Blancas

    saludos,,

    Silvia

     

     

    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. 😂😘


  2. 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

     


  3. 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


  4. 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

     

    .

     


  5. 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

     


  6. 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


  7. 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?


  8. 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.


  9. 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