Notifications
Clear all

Fechar Caixa de Diálogo pelo VBA

3 Posts
2 Usuários
0 Reactions
647 Visualizações
(@cezario)
Posts: 2
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: 2749
Famed 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

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 : 05/01/2016 2:05 pm
(@cezario)
Posts: 2
New Member
Topic starter
 

Caro Marcelo, muito obrigado pela ajuda!

Funcionou perfeitamente!

Abraços

 
Postado : 05/01/2016 4:37 pm