Notifications
Clear all

Hiperlink + função INDIRETO

6 Posts
3 Usuários
0 Reactions
2,074 Visualizações
(@alexzr)
Posts: 19
Active Member
Topic starter
 

Bom dia,

Estou com uma dúvida, em uma planilha que estou usando o nome da planilha base se chama "1" e em cima desse valores trabalho com várias funções indireto para sua própria planilha. Irei necessitar de 500 cópias dessa mesma planilha nessa mesma pasta de trabalho do EXCEL, então sei que existe como apertar ctrl e arrastar a planilha e ela copia e vira 1(1), 1(2) e assim respectivamente porém eu teria de nomear uma a uma o que tornaria extremamente trabalhoso...

Gostaria de saber se tem como eu copiar de uma forma mais rápida e já poder ter cada uma com seu respectivo nome sem terque mudar todos também 1,2,3,4.... 499,500

Agradeço desde já pela atenção

 
Postado : 10/09/2015 7:57 am
(@alexzr)
Posts: 19
Active Member
Topic starter
 

Bom dia,

Andei pesquisando no fórum porém não achei nenhum caso que eu conseguisse aproveitar a solução para meu problema.

Tenho uma planilha com várias planilhas numeradas em números, 1,2,3... 499,500 então, tenho em uma planilha chamada MENU INICIAL uma tabela com o nome de cada uma dessas planilhas e gostaria de aproveitar esses números da tabela para fazer um hiperlink de cada uma com seu respectivo valor, porém não consigo fazer nada que seja automático.

Convenhamos se eu vir a fazer uma a uma irei demorar alguns dias.. kkk

Agradeço desde já

 
Postado : 10/09/2015 8:01 am
Issamu
(@issamu)
Posts: 605
Honorable Member
 

Minha sugestão é você adicionar o seguinte código no módulo da planilha onde está a tabela com os valores:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plan As Worksheet
For Each plan In ActiveWorkbook.Sheets
If plan.Name = ActiveCell.Value Then
    plan.Activate
End If
Next plan
End Sub

Para fazer isso, é só pressionar ALT+F11 para abrir o VBA e localizar o módulo com o nome da planilha que você vai usar de índice, dar duplo clique para abrir o módulo dela, copiar e colar o código acima, fechar o VBA e teste clicando na célula que contem um nome de planilha válido. Dessa forma você nem vai ter trabalho de ficar elaborando fórmula, pois o código vê se existe uma planilha com o nome da célula clicada, e se tiver já ativa a planilha. Para manter o código você deve salvar o arquivo como arquivo habilitado para macro do Excel (.xlsm).

Qualque dúvida pergunte.

Abraços!

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 10/09/2015 8:44 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

ALEXZR

Para manter a organização do fórum, fundi teus 2 tópicos sobre o mesmo assunto.
Conforme as regras do fórum, não é permitido criar mais de um tópico sobre o mesmo assunto. (Leia as regras do fórum)

[]s

Patropi - Moderador

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

 
Postado : 10/09/2015 10:24 am
(@alexzr)
Posts: 19
Active Member
Topic starter
 

Minha sugestão é você adicionar o seguinte código no módulo da planilha onde está a tabela com os valores:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plan As Worksheet
For Each plan In ActiveWorkbook.Sheets
If plan.Name = ActiveCell.Value Then
    plan.Activate
End If
Next plan
End Sub

Para fazer isso, é só pressionar ALT+F11 para abrir o VBA e localizar o módulo com o nome da planilha que você vai usar de índice, dar duplo clique para abrir o módulo dela, copiar e colar o código acima, fechar o VBA e teste clicando na célula que contem um nome de planilha válido. Dessa forma você nem vai ter trabalho de ficar elaborando fórmula, pois o código vê se existe uma planilha com o nome da célula clicada, e se tiver já ativa a planilha. Para manter o código você deve salvar o arquivo como arquivo habilitado para macro do Excel (.xlsm).

Qualque dúvida pergunte.

Abraços!

Boa tarde amigo,

Valeu pela ajuda porém não poderei utilizar ela uma vez que irei hospedar minha planilha no Google Drive e esse não suporta Macros...

Estou realizando alguns testes tentando juntar função indireto+hiperlink!

Valeu brother

 
Postado : 16/09/2015 1:02 pm
(@alexzr)
Posts: 19
Active Member
Topic starter
 

Galera, consegui resolver esse problema de um jeito bem fácil porém eu desconhecia...

Segue a solução para ajudar alguém que possa vir a ter a mesma dúvida que eu tive.

=HIPERLINK("#'"&A1&"'!D5";A1)

Sendo A1 a célula contendo o nome da planilha que será buscado o valor D5 do exemplo, o último A1 é o valor que irá aparecer na célula!

Abraços valeu

 
Postado : 24/09/2015 10:10 am