Quebrar vinculos com todas as planilhas

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

4 Posts

1 Usuários

0 Reactions

4,431 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

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

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

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

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?

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

Postado : 18/12/2013 6:15 am