Foro Excel

Hola TODOS !! SOY NUEVO EN ESTE FORO Y ENCONTRE QUE ME APACIONA EL TEMA "MACROS"
ME SURGIO UN PROBLEMITA, PASO A COMENTAR
EN MI TRABAJO ME PIDIERON UN CATALOGO DE BOTONES DE MUCHAS MARCAS Y QUE EN CASA HOJA DEL ARCHIVO ESTE UNA IMAGEN DE CADA BOTON DE SU RESEPCTIVA MARCA.
A CADA MARCA LE AGREGUE UN HIPERVINCULO ASI ES MAS RAPIDO IR HASTA LA IMAGEN.PERO SE ME QUEJAN DE QUE DEMORAN MUCHO TIEMPO BUSCANDO EL NOMBRE DE LA MARCA EN LA LISTA.
AGREGUE UN BUSCADOR PERO DESDE ESTE YA NO PUEDO TENER LOS HIPERVINCULOS.
PORFAVOR SI ALGUIEN ME PUEDE AYUDAR, QUIESIERA TENER EL HIPERVINCULO EN EL BUSCADOR TAMBIEN.

Hola:

¿Te refieres a esto?

Código: Seleccionar todo

Private Sub CommanButton1_Click()
ActiveWorkbook.FollowHyperlink "http://www. .............. .html"
End Sub


Saludos

Antoni

Si no, no voy a entender esto jamas jajajaj.

Hola Antoni, ese codigo es para poder acceder a los hipervinculos creados dentro del mismo libro desde el buscador ?

Hola:

Te entendí mal, creía que querías conectar con una página web.

En este caso, tu utilizas los hipervínculos solamente para activar la hoja donde esta la marca elegida, añade el siguiente código al "Buscador", y cada vez que seleccionen una línea del listbox, se activará de forma automática la hoja correspondiente al elemento elegido.

Código: Seleccionar todo

Private Sub ListBox1_Click()
On Error Resume Next

Dim MARCA As Variant
MARCA = ListBox1.Text
ThisWorkbook.Worksheets(MARCA).Activate

End Sub


Te recomiendo poner la propiedad .ShowModal=False en el formulario para que el usuario, pueda interactuar con la hoja teniéndolo activado.

Ya contarás que tal te va.

Saludos

Antoni

PD: A título de comentario, la sentencia del buscador:

Código: Seleccionar todo

Me.ListBox1.Selected(i) = True

puede ser sustituida por;

Código: Seleccionar todo

ListBox1.Listindex = i    '(Me. no es necesario)

en este caso, ambas son equivalentes.

Muchas gracias Antoni el primer codigo funciono ala perfeccion !!!
Pero no entiendo el POST DATA : ( , donde debo colocar esa linea exactamente ?
La propiedad .ShowModal=False en el formulario para que el usuario pueda interactuar con la hoja teniéndolo activado, no logro que funcione.
Podras anexar una imagen para ver donde exactamente debo colocar estas lineas ?
Desde ya muchas gracias, eres un herudito en la materia !!!

Problema solucionado Antoni, muchas gracias !!!
Pero para que quede perfecto me gustaria solucionar una ultima cosa, para buscar otro nombre hay que borrar el anterior y el formulario pasa por tooooooooooooooooda la lista de nombre.
No se puede obviar esto y que sea solo un salto ?
Porque en la fila 21 y 22 esas dos marcas no las reconoce el macro con el hipervinculo y las demas si ?
Si puedes ayudarme con estas dos ultimas preguntas, juro que no te molesto mas ...

Te anexo el archivo para que veas como quedó.

Hola:

Vamos por partes.

El problema del recorrido de todo el listbox, viene dado por los elementos en blanco que se cargan al principio. Por otro lado la línea de código que controla si el textbox está vacío en el evento change, no funciona correctamente.

Esto queda solucionado de la siguiente manera, sustituye:

Código: Seleccionar todo

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "70 pt;20 pt"
ListBox1.RowSource = "A4:B183"
End Sub


por:

Código: Seleccionar todo

Private Sub UserForm_Initialize()
Dim x As Integer  '<========
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "70 pt;20 pt"
x = 4  '<========
While ActiveSheet.Cells(x, 1) <> "": x = x + 1: Wend  '<=======
ListBox1.RowSource = "A4:B" & x - 1  '<=========
End Sub


con esto conseguimos que solo se incluyan en el listbox las marcas ionformadas (A1-A61).

Por otro lado debemos controlar si el textbox está vacio, cambia:

Código: Seleccionar todo


For i = Me.ListBox1.ListCount - 1 To 0 Step -1
    If Not IsEmpty(Trim(Me.TextBox1)) Then


por:

Código: Seleccionar todo


For i = Me.ListBox1.ListCount - 1 To 0 Step -1
   If NotTextBox1 = "" Then <================


Siguiente tema, las marcas de las líneas 21 y 22 no se muestran porqué el nombre de la marca no es exactamente igual al nombre de la hoja, en la línea 21 hay problemas con la comilla(') y en la línea 22 hay espacios entre los dos nombres en el nombre de la hoja y en la celda no.

Y por último:

La propiedad Me.ShowModal=False, puede ponerse por código, en la 1ª línea de UserForm_Initialize o en el formulario en tiempo de diseño dentro del editor de VB, selecciona el formulario con un click, y pulsa la tecla de función F4, a mano izquierda, te aparecerán las propiedades, una de ellas es la propiedad ShowModal. En cualquier caso, tu formulario ya tiene esa propiedad en false.

Saludos cordiales

Antoni

Hola Antoni, todo esta de maravilla solo que no puedo agregar esta linea:

If NotTextBox1 = "" Then <================

sale este error " ERROR DE COMPILACION""ERROR DE SINTAXIS"
ya probe todo lo poco que se sobre este tipo de errores y nada...

Prueba con:

Código: Seleccionar todo

If Not TextBox1 = "" Then '<================

Le faltaba la comilla(') de inicio de comentario a <===============

Hasta la próxima

Salu2

Antoni

excelente trabajo, quisiera a daptarlo a cierto archivo que estoy usando solo que las imagenes las tengo en el C:\Imagenes\ ya que pesan mucho y necesito mostrarlas en la hoja de excel pero en un formulario. tendran algun ejemplo al respecto.


mientras tanto intentare adaptar algo del codigo a mi archivo.

gracias.

salu2.

Hola:

Haz tu mismo la siguiente prueba:

1.-Inserta un formulario, dentro del formulario:
2.-Inserta un control Image
3.-Inserta un control CommandButton
4.-Doble-Click sobre el CommandButton
5.-Inserta el código adjunto
6.-Sustituye "MiImagen.jpg" por la imagen que quieras
7.-F5

Código: Seleccionar todo

Image1.Picture = LoadPicture("C:\Imagenes\MiImagen.jpg")

Salu2

Antoni