A dica enviada por: Jay Shukla
Algumas vezes temos uma situação como:
1. Site do Yahoo www.yahoo.com
2. Site do Google www.google.com
Então, como separamos o nome do site do texto restante.
Passo 1.
Selecione a coluna.
Ir para a opção Substituir em Editar
Em seguida, substitua http:
com (espaços)… .http:
(Ex .: … = Espaços)
Você verá que os nomes de nós ficam separados à distância
Passo 2
Ir para a opção Texto para coluna em Dados
e selecione a opção de largura fixa
obter o marcador para um local específico onde na coluna antes do nome do primeiro site em toda a coluna
clique em próximo para ver que o texto antes dos nomes da web estão em preto
FINALIZAR
Você encontrará seus nomes da web separados do texto.
Agora, para torná-lo um hiperlink:
Passo 1
Pressione Alt + F11
você verá que uma macro abrirá
Vá para Inserir e selecione Módulo
outra janela de novo módulo aparece
Passo 2
Copie e cole a fórmula mencionada abaixo:
------------------------------------------------------
Sub MakeHyperlinks_D ()
Dim cell como range, Rng como range
Defina Rng = Range ("A1: A" & Cells.Rows.Count). _
SpecialCells (xlConstants, xlTextValues)
Se Rng não for nada, então
MsgBox "nada no intervalo"
Sair do Sub
Fim se
Para cada célula em Rng
Se Trim (cell.Value) "" Então
ActiveSheet.Hyperlinks.Add Anchor: = cell, _
Endereço: = cell.Value, _
Dica de tela: = cell.Value, _
TextToDisplay: = cell.Value
Fim se
Próxima célula
End Sub
-----------------------------------------------------
e, em seguida, Ir para Arquivo Fechar e Sair
Passo 4
Vá para Ferramentas> Macros> Macros
você encontrará seus sites com hiperlinks.
SIMPLES E CRU, MAS EFICAZ.
Jay.
