Guru do Excel e Power BI

Enviado: **03 Jun 2021 às 08:46**

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

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

Enviado: **03 Jun 2021 às 09:31**

#
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

Enviado: **03 Jun 2021 às 09:51**

osvaldomp escreveu: ↑03 Jun 2021 às 09:31 #
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)

Enviado: **03 Jun 2021 às 09:57**

Verdade, agora percebi o erro. Vou refazer.

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

Enviado: **03 Jun 2021 às 10:10**

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.

Enviado: **03 Jun 2021 às 10:19**

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

Guru do Excel e Power BI

Ajuda funçao Error Goto

Ajuda funçao Error Goto

Re: Ajuda funçao Error Goto

Re: Ajuda funçao Error Goto

Re: Ajuda funçao Error Goto

Re: Ajuda funçao Error Goto

Re: Ajuda funçao Error Goto