Este fórum está sendo desativado

[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

[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

[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