Notifications
Clear all

Salvar como sem vinculos

3 Posts
2 Usuários
0 Reactions
766 Visualizações
(@sergio2016)
Posts: 6
Active Member
Topic starter
 

Tenho o arquivo Relatório Diário de Vendas1 que possui vínculo com o Relatório Diário de Vendas2.
Quero salvar o arquivo sem vínculo de nome Relatório Diário de Vendas3.
Tentei o código abaixo mas o problema é que quando salvo como Relatório Diário de Vendas3 sem vínculo também acabo salvando o Relatório Diário de Vendas1 sem vínculos.
Preciso que o Relatório Diário de Vendas1 continue com vínculos e só o Relatório Diário de Vendas3 fique sem.
Obs. o código está escrito em EstaPasta_de_trabalho.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

On Error Resume Next

Plan1.Range("F10").Value = Date & " - " & Time

With ThisWorkbook

.BreakLink Name:="C:MatrizRelatório Diário de Vendas2.xlsm", Type:=xlExcelLinks
.SaveCopyAs Filename:="C:FilialRelatório Diário de Vendas3.xlsm"

End With
    
End Sub

Obrigado pela atenção,
Sérgio.
 
Postado : 18/11/2016 1:34 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Se é o mesmo relatorio, e so copiar e colar valores.

Use o gravador de macros para criar a macro executando as tarefas manualmente.

Depois da pra limpar o codigo com o que for desnecessario.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 18/11/2016 4:08 pm
(@sergio2016)
Posts: 6
Active Member
Topic starter
 

Boa tarde Prudencio, obrigado pela dica.
Sergio.

 
Postado : 20/11/2016 1:54 pm