Este fórum está sendo desativado

[Zoe]

Olá pessoal, preciso de uma ajuda com a função error go to (Acredito que seja esta a solução).


Tenho um macro para abrir,salvar e fechar os arquivos dos links.
Porém como mostra a imagem tenho linhas em branco nesta planilha, preciso que o macro ignore estas linhas ou o erro, e siga abrindo, salvando e fechando as outras planilhas linkadas.

Meu macro atual é

Sub Abrir_salvar_fechar()
'
'
'
Range("A3:A289").Select
For Each Cell In Selection
Cell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
ActiveWindow.Close
Next Cell

End Sub

[osvaldomp]

#
Veja se atende.

Código: Selecionar todos

Sub Abrir_salvar_fechar()
 Dim c As Range
  For Each c In Range("A3:A" & Cells(Rows.Count, 1).End(3).Row)
   On Error Resume Next
   Cell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
   ActiveWorkbook.RefreshAll
   ActiveWorkbook.Save
   ActiveWindow.Close
   On Error GoTo 0
  Next c
End Sub

[Zoe]

#
Veja se atende.

Código: Selecionar todos

Sub Abrir_salvar_fechar()
 Dim c As Range
  For Each c In Range("A3:A" & Cells(Rows.Count, 1).End(3).Row)
   On Error Resume Next
   Cell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
   ActiveWorkbook.RefreshAll
   ActiveWorkbook.Save
   ActiveWindow.Close
   On Error GoTo 0
  Next c
End Sub

Valeu Osvaldo, mas não funcionou.
Quando eu executo o macro ele fecha a planilha principal (Onde estão os links)

[osvaldomp]

Verdade, agora percebi o erro. Vou refazer.

Aproveitando, as células vazias são realmente vazias ou têm fórmulas que retornam vazio?

[osvaldomp]

Experimente este código.

Código: Selecionar todos

Sub Abrir_salvar_fechar()
 Dim c As Range
  For Each c In Range("A3:A" & Cells(Rows.Count, 1).End(3).Row)
   On Error GoTo fds
   c.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
   ActiveWorkbook.RefreshAll
   ActiveWorkbook.Save
   ActiveWindow.Close
fds:
   On Error GoTo -1
  Next c
End Sub

#
dica - para responder clique em +Resposta, localizado abaixo da última postagem, só clique em Responder com citação se necessário.

[Zoe]

Consegui com este código.
Mesmo assim obrigado pela ajuda!

Sub Abrir_salvar_fechar()
'
'
'
Range("A3:A289").Select
For Each Cell In Selection
If Not IsEmpty(Cell.Value) Then
Cell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
ActiveWindow.Close
End If
Next Cell

End Sub