Quebrar Vínculos

Como pintar uma célula, como formatar uma borda, funções básicas! Se você não sabe em que categoria postar a sua dúvida, escreva aqui que depois nós mudamos o tópico.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Quebrar Vínculos

Mensagempor Bautto » Sex Out 18, 2019 9:59 am

Colegas, bom dia.

Tenho uma planilha que buscava dados em outra e criou vínculo.
Refiz algumas fórmulas e não necessito mais dos dados da planilha referenciada para busca.
Entretanto, já fiz de tudo e não consigo quebrar o vínculo. Até já excluí a planilha que era fonte da pesquisa.
O vínculo simplesmente não "desgruda" da minha planilha.
Alguém tem o mesmo problema ou pode ajudar-me na solução?
Agradeço qualquer informação.
Grato.
Bautto
Membro
Membro
 
Mensagens: 45
Registrado em: Qua Nov 12, 2014 1:17 pm
Has thanked: 23 times
Have thanks: 0 time

{ SO_SELECT }

Re: Quebrar Vínculos

Mensagempor EJota » Sex Out 18, 2019 11:41 am

Bom dia, Bautto.

Nas versões mais recentes do Excel, tente ir em "Dados", "Consultas e Conexões". Clique lá e exclua as conexões que você não quer mais.

For this post the author EJota thanked:
rilust (Qua Out 23, 2019 5:52 pm)
EJota
Membro
Membro
 
Mensagens: 10
Registrado em: Qua Nov 07, 2018 7:50 am
Has thanked: 7 times
Have thanks: 2 times

Re: Quebrar Vínculos

Mensagempor Bautto » Sex Out 18, 2019 11:58 am

EJota, grato pela informação, mas já tentei isso e não aparece nada como consulta ou conexão.
Como não tem nenhum vínculo ativo com a planilha que era origem, silenciei a confirmação de atualização, mas o vinculo continua aparecendo na lista de fontes.
Não sei como resolver isso, mas estou pesquisando.
Abçs.
Bautto
Membro
Membro
 
Mensagens: 45
Registrado em: Qua Nov 12, 2014 1:17 pm
Has thanked: 23 times
Have thanks: 0 time

Re: Quebrar Vínculos

Mensagempor Adalberto7 » Sex Out 18, 2019 12:32 pm

Boa tarde

Tente isso:

Pressione ALT+F11
Você vai entrar no modo de programação do VBA
Pressione Ctrl + G
Na janela de Verificação imediata digite:
cells.Select e pressione ENTER
selection.hyperlinks.delete e pressione ENTER
Pressione ALT+Q para retornar a planilha.

Se foi útil, clique na mãozinha.

[]s
Antigo Patropi
Se foi útil, clique na mãozinha
Avatar do usuário
Adalberto7
Ninja do Excel
Ninja do Excel
 
Mensagens: 119
Registrado em: Qua Jun 19, 2019 9:33 pm
Has thanked: 7 times
Have thanks: 40 times

Re: Quebrar Vínculos

Mensagempor JSCOPA10 » Sex Out 18, 2019 1:24 pm

.
Adalberto7 ... por curiosidade (vai que um dia eu precise k) criei 2 arquivos testes vinculados (teste1 > A1 = teste2 A1)... depois testei isto aqui no 2007 do trabalho e não aconteceu nada, eles continuam vinculados!!
.
cells.Select e pressione ENTER
selection.hyperlinks.delete e pressione ENTER
.
Avatar do usuário
JSCOPA10
Ninja do Excel
Ninja do Excel
 
Mensagens: 204
Registrado em: Qua Jun 19, 2019 9:11 pm
Has thanked: 20 times
Have thanks: 66 times

Re: Quebrar Vínculos

Mensagempor rlm » Sex Out 18, 2019 3:45 pm

Bautto,
verifique no gerenciador de nomes, se algum nome definido faz menção/ligação com planilha externa
verifique tambem se alguma regra de validaçãonão contem esse vinculo http://www.planilhando.com.br/forum/viewtopic.php?f=20&t=18445
Reinaldo
Garça - SP / SCS - SP
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 414
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 31 times
Have thanks: 185 times

Re: Quebrar Vínculos

Mensagempor Adalberto7 » Sáb Out 19, 2019 8:43 am

JSCOPA10

Eu já usei um tempo atras, mas para relembrar dei uma pesquisada na net, mas me lembro que só usei essa parte:
Pressione Ctrl + G
Na janela de Verificação imediata digite:
selection.hyperlinks.delete e pressione ENTER
Pressione ALT+Q para retornar a planilha.

Bautto
Na net encontrei essa macro, não tive tempo de testar, se quiser experimentar:

Código: Selecionar todos
Sub ExcluiVinculos()
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
ActiveWorkbook.ChangeLink aLinks(i), ActiveWorkbook.Name, xlExcelLinks
Next i
End If
End Sub

outra opção:
https://www.exceldoseujeito.com.br/macr ... u+Jeito%29

[]s
Antigo Patropi
Se foi útil, clique na mãozinha

For this post the author Adalberto7 thanked:
JSCOPA10 (Sáb Out 19, 2019 10:22 am)
Avatar do usuário
Adalberto7
Ninja do Excel
Ninja do Excel
 
Mensagens: 119
Registrado em: Qua Jun 19, 2019 9:33 pm
Has thanked: 7 times
Have thanks: 40 times

Re: Quebrar Vínculos

Mensagempor JSCOPA10 » Sáb Out 19, 2019 10:23 am

Avatar do usuário
JSCOPA10
Ninja do Excel
Ninja do Excel
 
Mensagens: 204
Registrado em: Qua Jun 19, 2019 9:11 pm
Has thanked: 20 times
Have thanks: 66 times


Voltar para Excel - O básico

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot] e 2 visitantes