Jump to content

Antoni

Members
  • Content Count

    9,964
  • Joined

  • Last visited

  • Days Won

    513

Everything posted by Antoni

  1. Yo también estoy en ello, esta tarde si no pasa nada, lo subo.
  2. No se si esto te puede servir: Ejemplos de ParamArray Un ejemplo de código: Option Explicit ' función que utiliza ParamArray Private Function Calcular_Maximo(ParamArray Los_Valores() As Variant) As Variant Dim i As Integer, Maximo As Variant 'Recorre el array For i = LBound(Los_Valores) + 1 To UBound(Los_Valores) If Maximo < Los_Valores(i) Then Maximo = Los_Valores(i) End If Next Calcular_Maximo = Maximo End Function Private Sub Command1_Click() 'Le envía la lista de parámetros MsgBox Calcular_Maximo(165, 654, 6897, 265, 6598, 999999), vbInformation End Sub
  3. Lo siento Juan, pero el control WindowsmediaPlayer no hace más que darme problemas, he intentado crear el archivo desde cero, he intentado pasarlo a un formulario y nada, si no es por una cosa es por otra, o se bloquea, o se autorecupera el archivo, o se queda pajarito. Esperemos si alguien nos da luz sobre el tema, pero me da que se trata de un mal funcionamiento del control. Subo el último intento, sale un mensaje de advertencia sobre los controles ActiveX en la barra de mensajes al abrir el archivo, a pesar que en la configuración del centro de confianza y controles Activex pone que debe ignorar este tipo de mensajes. Pruebas de vídeo -2-.xlsm
  4. El valor entero de la celda va a la celda C5 de la hoja nueva. Corrijo, donde dije celda C5 debió decir celda A5. 🙂
  5. Con el valor de cada celda de la columna A de la hoja activa, crea una hoja a imagen de la hoja "Molde" con el nombre de las primeras 31 posiciones del valor de la celda. El valor entero de la celda va a la celda C5 de la hoja nueva. Por cierto, hay un error en la macro, déjala así: Sub Copia() Dim C As Range '-- Application.ScreenUpdating = False For Each C In Range("A2", Range("A" & Rows.Count).End(xlUp)) Sheets("Molde").Copy , Sheets(Sheets.Count) With ActiveSheet .Range("A5") = C If Len(.Name) > 31 Then .Name = Left(C.Offset(, 1), 31) Else .Name = C End If End With Next C Application.ScreenUpdating = True End Sub
  6. 1º el programa que me hicistes de "Pasapalabra" lo estuve modificando (espero no te sepa mal) para aprender, y funciona perfectamente. 2 el programa que me has hecho de ver vídeos lo he insertado con el de Pasapalabra, para que al fallar una respuesta se pueda ver los cuadros de los pintores (en el temario Arte y literatura que hice) y poder ver los vídeos con el programa tuyo. A ver si nos aclaramos, si tu problema se reduce a mostrar un vídeo en un determinado momento, sube el archivo tal como lo tienes en el punto 1º y explica en que momento exacto debe mostrarse el vídeo o si debe ser una opción por medio de un botón, si los vídeos están relacionados con cada pregunta y si son obligatorios u opcionales o deben ser escogidos a voluntad de una lista preestablecida. Si el archivo pesa más de 100 KB, elimina las imágenes y comprímelo y si todo y así, supera el tamaño máximo, súbelo a la nube (Dropbox, Google drive,...) y adjunta el enlace público.
  7. Lo más probable es que en la celda E16 de la hoja Hoja1 no haya un valor correcto.
  8. no entiendo lo de los tres "botones" si ya funciona con la macro. Primero, por culturilla, para que veas que se puede interactuar con el control con una macro y segundo por si estás visualizando un vídeo y sales de pantalla completa, la macro te lleva a la hoja principal y desde ahí, puedes reproducir otro vídeo o pausar/reanudar/parar el vídeo actual.
  9. Revisa las macros de la hoja VIDEO y del Módulo1. Si tienes 10 o 12 vídeos, vale, pero para más, el sistema de "botones" no es el más práctico. Prueba video.xlsm
  10. ¿Porqué utilizar 2 hojas?, se puede hacer con una sola. ¿Te interesa?
  11. ¿A que botón? Ya que no has subido ningún archivo. Sube un archivo con un ejemplo de lo que quieres hacer.
  12. Gracias a todos por vuestro interés, se puede dar por cerrado el tema. 🙂
  13. Vamos a intentar simplificar el problema, supongamos una recta D5:F13, supongamos también que las celdas tienen 1 de alto por 1 de ancho. Averiguar que celdas serán cortadas por la recta.
  14. Hola a todos: Se trata de un problema teórico surgido a raíz de una consulta en otro foro. Como determinar si el extremo superior izquierdo de una celda se encuentra dentro de un cuadrilátero delimitado por 4 celdas. ¡Ale! a estrujarse las neuronas. Gracias de antemano. 🙂🙂 Problema.xlsm
  15. Modifica: ... proximo = Sheets("Data").Range("A" & Sheets("Data").Rows.Count).End(xlUp).Row + 1 With Sheets("DATA") .Cells(proximo, 1).Value = CDbl(Me.TextBox1) .Cells(proximo, 2).Value = Me.Label42.Caption For i = 3 To 39 ...
  16. Trabajo en una Institución educativa que desea apropiarse mi trabajo realizado en vba Si recibes remuneración por tu trabajo, el trabajo no es tuyo, es de la Institución. 😐
  17. Revisa el adjunto. He añadido las líneas resaltadas en rojo en el botón Guardar. ... End Select If IsNumeric(.Cells(proximo, i).Value) Then .Cells(proximo, i).Value = CDbl(.Cells(proximo, i).Value) End If Next ... Variables.xlsm
  18. Abre el adjunto y pulsa sobre el icono. Las pruebas las he hecho con el archivo: texto a ser importado.txt ImportatTXT.xlsm
  19. Prueba a ver. Pasa palabra full II.xlsm
  20. ¿O sea, que dentro de un formulario quieres mostrar otro formulario en lugar de un MsgBox? En cualquier caso, debes subir un archivo con un ejemplo de lo que quieres hacer.
  21. Estoy echándole un vistazo en profundidad, a ver que sale.
×
×
  • Create New...

Important Information

Privacy Policy

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