Notifications
Clear all

Fechar Caixa de Diálogo pelo VBA

3 Posts
2 Usuários
0 Reactions
642 Visualizações
(@cezario)
Posts: 0
New Member
Topic starter
 

Pessoal, estou desenvolvendo um código que copia fórmulas de uma planilha (CONSOLIDADO) para outra (VÍNCULOS), dentro de uma mesma pasta de trabalho. Essas fórmulas, na verdade, são vínculos à células de uma outra pasta de trabalho.

Consegui criar tudo. Porém, durante a execução do código, a cada colagem de vínculo, abre-se a caixa de diálogo para que seja escolhida a pasta de trabalho a que se refere aquele vínculo.

Preciso que essa caixa de diálogo seja fechada automaticamente a cada vez que ela é aberta ou, ainda melhor, que ela nunca seja aberta. É possível? Segue o código:

Sub CopiarVínculos()

For Coluna = 5 To 150
For Linha = 6 To 500

Sheets("VÍNCULOS").Cells(Linha, Coluna).Value = Sheets("CONSOLIDADO").Cells(Linha, Coluna).Formula

Next
Next

End Sub

Desculpem se for uma pergunta simples, mas estou trabalhando com VBA há apenas 2 semanas.

Obrigado, abraços!

 
Postado : 05/01/2016 7:40 am
(@mprudencio)
Posts: 0
New Member
 

Nao sei se entendi mas

Sub CopiarVínculos()

application.displayalerts = false

For Coluna = 5 To 150
For Linha = 6 To 500

Sheets("VÍNCULOS").Cells(Linha, Coluna).Value = Sheets("CONSOLIDADO").Cells(Linha, Coluna).Formula

Next
Next

application.displayalerts = true

End Sub

 
Postado : 05/01/2016 2:05 pm
(@cezario)
Posts: 0
New Member
Topic starter
 

Caro Marcelo, muito obrigado pela ajuda!

Funcionou perfeitamente!

Abraços

 
Postado : 05/01/2016 4:37 pm