Saltar al contenido

Mensajes con duración determinada


Antoni

Recommended Posts

Hola:

He encontrado en Daily Dose of Excel esta curiosidad que, yo particularmente, desconocía: Mensajes que solo están visibles cierto tiempo.

Sub MensjeConTiempo()
Tiempo = 3 'Segundos
x = CreateObject("WScript.Shell").PopUp("Este mensaje solo durará " & _
Tiempo & " segundos", Tiempo, "Mensaje de duración determinada")
End Sub
[/CODE]

Saludos. Antoni.

PD: Por poco inglés que sepais, os recomiendo seguir los foros de "Feeds de otras Webs", hay autenticas maravillas.

Enlace a comentario
Compartir con otras webs

Re: Mensajes con duración de determinada

Que tal Antoni!

Yo lo vi aqui en el foro (si mal no recuerdo fue Never... quien lo proporciono), es muy bueno porque .Popup le da un aspecto visual como ventana emergente

Saludos y gracias por darlo a conocer, mi estiamado

Enlace a comentario
Compartir con otras webs

Hola a todos

Bueno este mensaje temporal me ha hecho falta en muchisimos casos cuando he querido mostrar un output y que luego el programa siguiera corriendo, tema que di por imposible y que ahora podre hacer en futuros programas.

Muchas gracias a los dos, Antoni por redescubrir el tema y Abraham por su aporte inicial.

Un saludo!

Enlace a comentario
Compartir con otras webs

  • 1 month later...
Hola:

He encontrado en Daily Dose of Excel esta curiosidad que, yo particularmente, desconocía: Mensajes que solo están visibles cierto tiempo.

Sub MensjeConTiempo()
Tiempo = 3 'Segundos
x = CreateObject("WScript.Shell").PopUp("Este mensaje solo durará " & _
Tiempo & " segundos", Tiempo, "Mensaje de duración determinada")
End Sub
[/CODE]

Saludos. Antoni.

PD: Por poco inglés que sepais, os recomiendo seguir los foros de "Feeds de otras Webs", hay autenticas maravillas.

Hola por acá nuevo en esto del foro y con muchas dudas...

Esto es una MACRO? si es así como la incerto como una nueva Macro? que mensaje da? desde ya gracias Slds Jackpvs

Enlace a comentario
Compartir con otras webs

Buenas esto es un macro que lo que realiza es provocar un Popup emergente con un mensaje de aviso y con una duración determinada de tiempo en pantalla

la descripción de cada linea es la siguiente

Sub MensjeConTiempo() 'nombre de la macro e inicio de la macro

Tiempo = 3 'Segundos ' variable que indica el tiempo que debe de permanecer en pantalla el mensaje

x = CreateObject("WScript.Shell").PopUp("Este mensaje solo durará " & Tiempo & " segundos", Tiempo, "Mensaje de duración _ determinada") 'linea que crea el mensaje Popup con el siguiente mensaje (Este mensaje durara 3 segundos ) tipo de Popup, Titulo del mensaje (Mensaje de duración determinada)

End Sub 'Linea que indica la finalización de la macro

para colocar la macro debes de presionar las teclas Alt y F11 a la vez se te abrira una ventana de VBa donde a la izquierda tienes la lista de las hojas hay presiona botonderecho e indica insertar un modulo y pegas el codigo luego en la hoja que desees le colocas un boton o figura y le asignas la macro con boton derecho asignar macro

un saludo

Enlace a comentario
Compartir con otras webs

Crear una cuenta o conéctate para comentar

Necesitas ser usuario para poder dejar un comentario

Crear una cuenta

Registrarse para una nueva cuenta en nuestra comunidad. ¡Es fácil!

Registrar una nueva cuenta

Conectarse

¿Ya tienes una cuenta? Conéctate aquí.

Conéctate ahora
  • 96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Buenas noches quisiera hacer esta formula auto incremental    =SI(INDIRECTO("'Casos de Prueba'!I1")="Resultados Ciclo 1"; SI(CONTAR.SI(INDIRECTO("'Casos de Prueba'!I:I"); "OK")=0; 0; CONTAR.SI(INDIRECTO("'Casos de Prueba'!I:I"); "OK")); 0)      para que cada vez que copiase y pegase la celda con la formula  se incrementara la letra en este caso la I pasara a J ,como el numero perteneciente a Resultados Ciclo pasando en este caso del 1 al 2.   Tengo también esta formula =CONCATENAR("CP";TEXTO(MAX((SI((ESNUMERO(HALLAR("CP";A$1:A1)))*(A$1:A1<>"");VALOR(EXTRAE(A$1:A1;3;3));0))+1);"000")&" - "&B2) quisiera que no tuviera los 3 ceros si no que fuera por ejemplo CP1 y se fuera incrementando. Gracias un saludo.
    • Con el diseño así como lo tiene en su libro, una fórmula de BUSCARV con COINCIDIR debería ser de utilidad =C5*BUSCARV($C$1,Tabla1[#Todo],COINCIDIR($D5,Tabla1[#Encabezados],0)) Es con lo que participaría en su consulta. Lo que resta es definir que hacer si no encuentra la OT porque así como esta le devolvería error en ese caso, o si tiene condiciones que haya podido omitir también le afectarían el resultado.
    • He cambiado mi macro a este: Sub repetir() Set a = Sheets(ActiveSheet.Name) uf = a.Range("C" & Rows.Count).End(xlUp).Row 'ultima fila con datos ActiveCell.Select ActiveCell.Offset(1, 0).Select   'Application.OnTime Now + TimeValue("00:00:10"), "repetir", , True End If End Sub   Lo que no se es como detenerlo al llegar a la ultima fila con datos de la columna C. Muchas gracias
    • Buenas tardes a todos. Tengo un problema que preciso de vuestra ayuda.  Tengo que controlar los gastos de la oficina que trabajo y he de repartir unos gastos a % según una OT y unos tipos de gastos. Envío un archivo adjunto. Lo que necesito es que lo que aparece en la columna en amarillo lo haga automáticamente, teniendo en cuenta los datos de la tabla a la derecha. Por ejemplo, el primer gasto tiene una cuota de 1477 euros y teniendo en cuenta que es un gasto de tipo Común y que la OT es la 12810234, le corresponde un gasto de 605,57 euros ya que según la tabla de la derecha su % a imputar es de un 41%. ¿alguien me puede ayudar con la formula? He de añadir muchas más líneas y más hojas con el resto de OT y en el futuro cambiar más datos, así que necesito automatizarlo con una formula Excel. Gracias. Control de gastos.xlsx
    • Hola buenas tardes: Por favor me pueden ayudar a realizar lo siguiente. ejecutar una macro después de un tiempo, que recorra una columna a partir de la celda activa hacia abajo. Es una lista extensa, que filtro desde la columna B. y solo me muestra las filas que me interesan. ejemplo: Si mi celda activa es la C23 ejecutar la macro y baje una celda y repite la macro después de 20 segundos y lo vuelve hacer(Simpre bajando una celda), y que este se detenga hasta la ultima fila que este visible en el filtro. Ya que puedo tener muchos datos mas.   Gracias   Prueba filtro y avance.xlsm
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.