Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Quebrar vinculos co...
 
Notifications
Clear all

Quebrar vinculos com todas as planilhas

 
2024 - VBA & Macros
4 Posts
1 Usuários
0 Reactions
4,417 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde colegas,

Gostaria de saber se há algum comando que eu possa dar na Macro onde o Excel quebre todos os vinculos existentes?

O problema ocorre porque o excel ao criar uma planilha nova ele traz "Pasta1"; "Pasta2"; "Pasta3"... etc, e da forma que foi feita a Macro, ela primeiro separa a base dos PROCV's do arquivo e depois quebra o vinculo para não deixar o mesmo muito grande, problema é que a macro só funciona se for "Pasta1", pois no momento da gravação da Macro essa era a nova pasta disponivel. Se estiver na Pasta2 em diante ele já dá erro na macro.

Desta forma, gostaria de saber se há algum comando que quebre vinculos com todas as planilhas independentemente do nome ou uma forma de resolver este problema.

Segue parte do comando que dá erro:
ActiveWorkbook.BreakLink Name:="Pasta1", Type:=xlExcelLinks

Desde já agradeço ajuda,
Att
Leandro

 
Postado : 12/12/2013 11:09 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Já tenteou?

Sub NaGuia_Ativa()
ActiveSheet.Hyperlinks.Delete
End Sub
Sub noArquivo()
Dim Ws      As Worksheet
Dim RngH    As Range
Dim RngHD   As Range
 
For Each Ws In ThisWorkbook.Worksheets
    Ws.Select
    Set RngH = Ws.Range("B2:B" & Range("B65536").End(xlUp).Row)
    For Each RngHD In RngH
        RngHD.Hyperlinks.Delete
    Next RngHD
Next Ws
End Sub

Att

 
Postado : 12/12/2013 11:25 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado pela sua ajuda Alexandre.

Mas infelizmente não funcionou, acredito que tenha haver pelo fato de que estou querendo quebrar vinculos (breaklines), acredito que não tenha relação com hyperlinks, estou falando besteira?

 
Postado : 18/12/2013 6:15 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!

Leia:
http://dicasdeexcel.com.br/2009/03/23/q ... -vinculos/
http://blogdokazu.blogspot.com.br/2007/ ... as-no.html
http://guiadoexcel.com.br/editar-links-excel
http://office.microsoft.com/pt-br/excel ... 17691.aspx
http://office.microsoft.com/pt-br/excel ... 65606.aspx

Att

 
Postado : 18/12/2013 6:50 am
Forum Jump:
  Tópico Anterior
Próximo Tópico