Jump to content

Antoni

Members
  • Content Count

    10,116
  • Joined

  • Last visited

  • Days Won

    548

Posts posted by Antoni


  1. Hace 20 horas, Rodrigo_MR dijo:

    Hola, la forma en que queda agrupado es lo buscado pero si cambio el orden en que aparecen en la columna, en la celda agrupada quedan con el nuevo orden, la idea es que el orden en que aparecen en la celda esté definido por la "categoría" es decir un proceso de categoría 1 debería aparecer en primer lugar, seguido del proceso de categoría 2, luego el proceso de categoría 3, etc.

    Gracias!

    Con ordenar previamente los datos por Elemento/Componente/Categoría, tema resuelto.


  2. Hola foreros:

    Como esto está demasiado tranquilo últimamente, he decidido haceros la pregunta del enunciado de este post.

    Como miembro habitual del foro de macros he observado que este se está convirtiendo en un desfile de media docena de consultantes que preguntan y repreguntan lo mismo una y otra vez, todos sabemos quienes son, pero no dudamos en seguir contestándoles a pesar de ver que solo persiguen que resolvamos sus problemas con una herramienta que desconocen y, que según parece, no tienen el más mínimo interés en esforzarse en conocerla. 

    Los cinco últimos consultantes acumulan la friolera de 1.470 respuestas en su historial de consultas. Esto va más allá de alguna consulta puntual sobre dudas que puedan surgir en el desarrollo de un proyecto.

    Propongo a la dirección del foro que de alguna forma se ponga punto final a esta práctica,  ¿como?, quizás impidiéndoles nuevas consultas por un tiempo, o cobrándoles por ello, o limitando el número de respuestas de sus consultas, no se, pero algo hay que hacer.

    Repito, ¿Vale la pena seguir en el foro para esto?. Ahí lo dejo.

    Saludos


  3. El adjunto, se adapta en un 90% a lo que estás buscando, o eso es lo que yo he entendido.

    Permite cualquier número de TEMAS (1 hoja por tema), cualquier número de PREGUNTAS (1 fila por pregunta) por tema y cualquier número de RESPUESTAS (1 columna por respuesta) por pregunta, además permite definir las respuestas como OPCIÓN o CASILLA, o sea, una repuesta por pregunta o varias.

    Solo faltaría habilitar una opción para elegir cuantas preguntas ha de tener el TEST y generarlas de forma aleatoria.

    Abre el adjunto y pulsa sobre el botón CREAR TEST.

     

    TEST.xlsm


  4. Estoy en ello, déjame que busque en el "cuarto de los trastos", si subieras un ejemplo concreto del tipo de test.

    ¿De donde salen las preguntas y las repuestas?, ¿Están por temas? ¿Las opciones de respuestas son fijas?¿Solo admiten 1 respuesta válida?¿De cuantas preguntas constaría cada examen?, en fin concreta un poco más lo que quieres, y en contra de la opinión de Luis, no creo que necesites Access para esto. 


  5. Hace 7 horas, Marcos14 dijo:

    pero yo lo que necesito es que se redimensione automaticamente

     

    El archivo que he subido a Mega, hace lo que has pedido, al hacer doble-click en el textbox se muestra el combobox y se visualiza el segundo textbox, al hacer doble-click en el combobox se oculta este, se visualiza de nuevo el textbox y se oculta de nuevo el segundo textbox, de acuerdo con las imágenes que has adjuntado.

    A ver si te aclaras. 🙁


  6. Te dejo esta UDF:

    Function PROMEDIAR(Número As Range) As Long
    Dim Desde As Long, x As Long
    Dim Veces As Long, Total As Long
    '--
    Desde = 0
    For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
       If Range("A" & x) = Número Then
          If Desde > 0 Then
             Veces = Veces + 1
             Total = Total + x - Desde
          End If
          Desde = x
       End If
    Next
    If Veces > 0 Then PROMEDIAR = Int(Total / Veces)
    End Function

    Pon la macro en un módulo y aplícala como una fórmula:

    =PROMEDIAR(Celda

     

    .


  7. Sube el archivo con el formulario, con imágenes no hacemos nada.

    Al escribir/contestar una consulta, en la parte inferior del cuerpo del mensaje está la opción de adjuntar archivos

    • Arrastra los ficheros aquí para adjuntarlos, o escoger ficheros...
      Tamaño total máximo 0,1MB
    • Si tu archivo es superior a 100Kb súbelo a un servidor de intercambio (Dropbox, Mega, Google drive,......) y adjunta el enlace público.
       

  8. Hace 8 minutos , Antoni dijo:

    Una imagen no proporciona la información necesaria para evaluar tu consulta.

    Para milagros hay que ir a Lourdes, sin el userform no hay nada que hacer.

    Esta macro envía un correo a partir de la fila 1 de la hoja columnas A:E, a ver si te vale:

    Sub EnviarEmail(): On Error Resume Next
    Set OutlApp = GetObject(, "Outlook.Application")
    If Err Then Set OutlApp = CreateObject("Outlook.Application")
    '--
    Destinatario = Range("A1")
    Copia = Range("B1")
    Asunto = Range("C1")
    Cuerpo = Range("D1")
    Adjunto = Range("E1")
    '--
    With OutlApp.CreateItem(0)
       .To = Destinatario
       .Subject = Asunto
       .CC = Copia
       .Body = Cuerpo
       .Attachments.Add Adjunto
       .Display '.Send para enviar de forma automática
    End With
    End Sub

     

×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png