Jump to content
Fórum Script Brasil
  • 0

Fechar Caixa de Diálogo pelo VBA


Cezario

Question

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!

Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Amigos, já consegui a resposta em outro fórum. Vou postar abaixo a solução apontada pelo colega André Santo. Funcionou perfeitamente:


Experimente inserir o trecho de código abaixo no início da sua função para evitar que sejam abertas quaisquer caixas de diálogo.

Application.DisplayAlerts = False

Ao final do código, você deve voltar com os alertas

Application.DisplayAlerts = True
Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148886
    • Total Posts
      644943
×
×
  • Create New...