Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Desabilitar Chamada...
 
Notifications
Clear all

Desabilitar Chamada de Função

 
2024 - VBA & Macros
Post Recente por wilmarleal 12 anos atrás
5 Posts
2 Usuários
0 Reactions
1,033 Visualizações
RSS
 wilmarleal
(@wilmarleal)
Posts: 186
Estimable Member
Topic starter
 

Pessoal, tenho uma macro que é chamada pela planilha 

Private Sub Worksheet_Change(ByVal Target As Range)
   Call Exibir
End Sub

qualquer alteração feita, ela atualiza dos dados, funcionado 100%
preciso de um botão na planilha que comente essa macro, ou seja desabilite-a temporariamente, coloque apenas o apostrofo no começo da chamada Call assim:

Private Sub Worksheet_Change(ByVal Target As Range)
   ' Call Exibir
End Sub

porque ?

quando eu quiser mexer na planilha eu nao preciso ir em alt-f11 comentar usar etc...

entendeu ?

só isso

*** Espero ter Ajudado ***
Se a mensagem foi útil Favor Clicar na [MÃOZINHA].
Se Finalizou, lembre se de marcar o tópico como [RESOLVIDO].

Wilmar Borges Leal Junior
http://wilmarborges.com

 
Postado : 19/10/2012 12:45 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom, não sei se é possivel.
Uma alternativa: Utilize uma celula em outra planilha, por exemplo G1="X", e altere a função conforme abaixo

Private Sub Worksheet_Change(ByVal Target As Range)
    If Sheets("Plan2").Range("G1") = "X" Then
        Call Exibir
    End If
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/10/2012 1:17 pm
 wilmarleal
(@wilmarleal)
Posts: 186
Estimable Member
Topic starter
 

interessante a proposta, porem nao funciona por esta dentro do Worksheet e nao dentro de um modulo, é atualizavel ao mudar qulquer coisa dentro da planilha, testei aqui fiz outro tipo de if mais nao deu não, mais sua proposta foi bem pensada, valeu, vou continuar pensando aqui em uma forma,

valeu

*** Espero ter Ajudado ***
Se a mensagem foi útil Favor Clicar na [MÃOZINHA].
Se Finalizou, lembre se de marcar o tópico como [RESOLVIDO].

Wilmar Borges Leal Junior
http://wilmarborges.com

 
Postado : 19/10/2012 1:51 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi, testei aqui e funciona.Dentro da worksheet, porem o "X' tem que estar em outra sheet, não pode estar na que contem o envento change.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/10/2012 2:26 pm
 wilmarleal
(@wilmarleal)
Posts: 186
Estimable Member
Topic starter
 

CARA 100% tava colocando na mesma planilha, valeu meus agradecimentos pela ideia brilhante,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Sheets("Plan2").Range("G1") = "X" Then
        Call Exibir
    End If
End Sub

*** Espero ter Ajudado ***
Se a mensagem foi útil Favor Clicar na [MÃOZINHA].
Se Finalizou, lembre se de marcar o tópico como [RESOLVIDO].

Wilmar Borges Leal Junior
http://wilmarborges.com

 
Postado : 19/10/2012 2:30 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico