Hyperlynk no Combob...
 
Notifications
Clear all

Hyperlynk no Combobox ActiveX

6 Posts
1 Usuários
0 Reactions
2,240 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola Pessoal!

Criei alguns links para arquivos no servidor. Criei o combobox com o Listfillrange dos Links criados. Agora eu precisaria que ao selecionar com o mouse ou pressionar enter, acessar esse Link, tem como?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2011 2:27 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Um exemplo básico, supondo que seu ("Drop-down") ComboBox, esteja com os nomes das Abas.

Sub ItemSelecionado()
Dim sItem As Variant
'Captura o valor do item selecionado
sItem = Sheet1.Shapes("Drop-down 16").ControlFormat.List(Sheet1.Shapes("Drop-down 16").ControlFormat.ListIndex)

'Faz a comparação e seleciona a Aba
    If sItem = "Sheet2" Then
        Worksheets(sItem).Activate
    End If
End Sub

É só fazer as adaptações para a sua necessidade, não esqueça de alterar o nome do Shapes("Drop-down 16").

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2011 9:52 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa Tarde. Formatei de seguinte forma:

Sub ItemSelecionado()
Dim sItem As Variant

sItem = Links.Shapes("ComboboxSelecionar").ControlFormat.List(Links.Shapes("ComboboxSelecionar").ControlFormat.ListIndex)

If sItem = "Links" Then
Worksheets(sItem).Activate
End If
End Sub

Links = Nome do Sheet onde se encontram os meus hyperlinks.
ComboboxSelecionar = Nome da ComboBox

Deu erro em tempo de execução 424.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/01/2011 10:31 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Em sua adaptação, link é uma Worksheet (renomeada). O objeto Worksheet é um membro da coleção Worksheets e para evitar este Erro presisamos referencia-la na rotina:

Dim link As Worksheet
Set link = Worksheets("link")

E na condição IF :
If sItem = "Links" Then

Estamos comparando SE o Valor de sItem , que é o Valor Selecionado no Combobox é igual ao TEXTO "Links" uma vez que não foi atribuido nenhuma Variável ao mesmo.

Se ainda tiver dificuldades poste um exemplo de seu aplicativo.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/01/2011 4:34 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

sou torturado por uma duvida muito semelhante freqüentemente.

"vou tentar ilustrar a tabela da seguinte forma"

uma tabela com 13 abas, sendo a nº 1 a tela inicial
e as outras 12 sucessivamente fzd correspondência a um mês do ano
ex :

Inicio Janeiro Fevereiro Março Abril ....... ......... .........
plan-1 plan-2 plan-3 pla-4 ....... ......... .........

a duvida :

Como criar uma caixa de caixa de combinação (controle de formulário ou activeX)
cujo selecionado o mês, o mesmo resultara no mesmo comando obtido com o hiperlink quando aplicado o clique .

ps: sou novato aqui, na minha apresentação esqueci de deixar meu contato . [email protected] , estamos ai para trocar informações .

sem mais p/ o momento , desde já grato !

vou postar uma tabela a exemplo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/04/2011 10:13 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

http://www.4shared.com/file/btF7jQ3z/ex_online.html

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/04/2011 10:24 am