Realizar funcion segun el resultado en boton

herbesi01 · el 17 de julio

Buen día Gente,

Primero que nada agradecer a todos por la ayuda que me han prestado en este foro, ya que he encontrado mucha información valiosa para mi, MUCHAS GRACIAS GENTE POR SU TIEMPO Y COLABORACIÓN!!!!

Bueno, necesito una ayuda con un tema, tengo un botón con el cual abro un archivo mediante un hipervinculo a este que se carga a un label, el tema es que no se como colocar que si el label esta sin informacion me salga un mensaje como "La imagen no esta cargada" y no me genere el error.

Este el codigo del boton

Dim url As String

'para abrir una pagina

url = Label28

ActiveWorkbook.FollowHyperlink url

[/CODE]

AlexanderS · el 17 de julio

Hola intenta así:

Dim url As String

'para abrir una pagina

url = Label28

If url = "" Then MsgBox "La imagen no esta cargada": Exit Sub


ActiveWorkbook.FollowHyperlink url[/CODE]

Salu2

herbesi01 · el 17 de julio

[uSER=143023]@Riddle[/uSER] gracias por la info, pero no me funciono...

AlexanderS · el 17 de julio

Si te da un error es porque no estas capturando de forma correcta la información del label, intenta así:

Dim url As String

'para abrir una pagina

url = Label28.caption

If url = "" Then MsgBox "La imagen no esta cargada": Exit Sub


ActiveWorkbook.FollowHyperlink url[/CODE]

herbesi01 · el 17 de julio

[uSER=143023]@Riddle[/uSER] nope, no funciona me envia a depurar en la linea de

ActiveWorkbook.FollowHyperlink url

AlexanderS · el 17 de julio

Adjunta un ejemplo Normas del Foro

Visor · el 17 de julio

No te sera mejor abrir el libro con:

Workbooks.Open Filename:="X\Nombre_Archivo.xlsx"[/CODE]

x=la ruta que copias del explorador

en lugar de tu...?

ActiveWorkbook.FollowHyperlink url

Espero tu comentario

herbesi01 · el 17 de julio

[uSER=143023]@Riddle[/uSER] gracias, apenas pueda subire un ejemplo.

[uSER=202070]@Visor[/uSER], gracias por tu comentario, no me serviría ya que no es para abrir otro excel, es para abrir otros formatos de archivos .pdf y .tif

Visor · el 17 de julio

Me uno al mensaje de Riddle.

Adjunta un ejemplo Normas del Foro

herbesi01 · el 21 de julio

[uSER=143023]@Riddle[/uSER] y [uSER=202070]@Visor[/uSER], Chicos que pena la demora, adjunto esta el archivo, os explico como es el tema:

1. En la Hoja 2 se encuentra una macro que abre un buscador y el cual es el inicial, dar en el boton de cargar para que en el listbox cargue la información.

2. Una vez cargada seleccionar y en el boton de consultar modificar para que te abra el formulario de cambio o modificacion de información.

3. Dar click en cualquier textbox para que cargue la información.

4. En el boton de VER IMAGEN para que abra el archivo (.pdf o .tif), aqui lo que hace es cargar un hipervinculo a dicho archivo, pero si no hay hipervinculo este genera el error.

Otra cosilla, si me pueden ayudar es que los formatos de fechas no pasan en dicho formato al excel, por lo cual al sacar información de la base es como si quedara en formato general y no fecha.

Gracias Chicos, estare atento por si algo.

BASE_PRUEBA.zip