Jump to content

Cesar Manuel

Members
  • Posts

    5
  • Joined

  • Last visited

  • Country

    Spain

About Cesar Manuel

Recent Profile Visitors

50 profile views

Cesar Manuel's Achievements

  1. No era tan difícil, trasteando en otros foros encontré la solución. Gracias compañeros, Tema Cerrado
  2. ¡Hola amigos ! En otro Libro tengo el siguiente código que me funciona perfectamente: Private Sub worksheet_change(ByVal Target As Range) If Not Intersect(Range("Ak14:As18"), Target) Is Nothing Then For Each celda In Range("w25:W34") If celda.Value <> "" Then datos = datos + 1 Next If datos > 0 Then Iniciar Else Parar End If End If 'a partir de aquí quiero modificar el código para que, en lugar de ejecutar el WebBrowser4 y reproducir un GIF animado que tengo en una carpeta , dependiendo del contenido del rango W25:W34, me ejecute el control Windows Media Player que tengo insertado en el rango S2:AE12 y reproduzca un video corto guardado en una carpeta. Es decir, en lugar de ' WebBrowser4.Navigate "C:\fuegosartificiales.GIF"' Hacer un código parecido a ' Windows Media Player1.Navigate "C:\videos\pulgoso.mp4"' Lo he intentado pero no consigo que funcione. ¡¡Muchas gracias por ayudarme!! Este es el código que quiero modificar para que reproduzca el video en lugar del GIF Set Target = Range("W25") If Target.Value = "Lunes llegué tarde" Then WebBrowser4.Navigate "C:\GIF,s ANIMADOS\fuegosartificiales.GIF" Set Target = Range("W25") If Target.Value = "Viernes no computa antes de las 7:00 h" Then WebBrowser4.Navigate "C:\GIF,s ANIMADOS\monito.GIF" End If End Sub Reproducir videos en EXCEL con WMP.xlsm
  3. Antoni, gracias por tu ayuda, te envío el fichero. No sé si existe otra manera de enviar los macros. He copiado y pegado el código en el propio archivo. Un saludo Ir a URL 2.xlsm
  4. Hola Foreros!! Tengo un macro que hace parpadear el fondo de un rango de celdas si en una determinada celda hay cualquier valor numérico. Pero sólo me funciona cuando introduzco directamente el valor en la celda; cuando el valor proviene de una fórmula no se ejecuta el macro. Además me gustaría que no solo reconociera el valor numérico sino cualquier texto en general. He probado con Private Sub Worksheet_Calculate() pero no me funciona El código que me funciona es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("AR5:BB19"), Target) Is Nothing Then If WorksheetFunction.Count(Range("AR5:BB19")) > 0 Then Iniciarparpadeo Else Pararparpadeo End If End If End Sub
×
×
  • Create New...

Important Information

Privacy Policy