Página 1 de 1

Desativar macro mediante uma condição

Enviado: 20 Jan 2018 às 07:33
por Domingsp
Bom dia,
tenho a planilha A, que depende dos valores de outra planilha. Na planilha A é executada a macro 1.
Para evitar erros, gostaria de desativar a macro 1 mediante uma condição: enquanto a celula B10 tiver a letra R, a macro 1 estará desativada.
Quando for mudado o conteudo de B10 de R para P, a macro 1 volta é ativada automaticamente.
Código: Selecionar todos
Sub Macro1()
Application.ScreenUpdating = False
   Sheets("Plan A").Select
    Range("AM1:AQ10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Plan E").Select
    Range("D1").Select
    ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub

Re: Desativar macro mediante uma condição

Enviado: 20 Jan 2018 às 08:11
por babdallas
Código: Selecionar todos
sub Teste()
     If sheets("PlanA").range("B10"). value2 = "R" then
               Colocar o código da sua macro aqui
     End if
End sub

Re: Desativar macro mediante uma condição

Enviado: 20 Jan 2018 às 08:42
por osvaldomp
Código: Selecionar todos
Sub Macro1()
 If Sheets("Plan A").[B10] <> "P" Then Exit Sub
  Sheets("Plan A").[AM1:AQ10].Copy Sheets("Plan E").[D1]
End Sub