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,030 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

 
Postado : 19/10/2012 12:45 pm
 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
 
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

 
Postado : 19/10/2012 1:51 pm
 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.

 
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
 
Postado : 19/10/2012 2:30 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico