Ir ao conteúdo
  • Cadastre-se
SuperBond

RESOLVIDO Proteção para planilha

Recommended Posts

Bom dia, gostaria de evitar o risco de executar uma macro na planilha errada e alterar dados importantes dessa planilha. Por exemplo, a macro a seguir deve ser somente executada na planilha 1, de nome "começo", pois essa planilha já contem os dados certos nas células certas. Essa macro é só um exemplo, não é para funcionar.

Se por engano ela for executada na planilha 2 ou 3, irá apagar dados das coluna A, B e C e retornar o resultado tambem na coluna indevida.

Gostaria de garantir que a macro seja executada somente na planilha 1. 

'ESTA MACRO FORNCE O COMEÇO
'****** USAR NA PLANILHA "começo" ******
Sub produto_começo()
Dim u As Long, m As Long, j As Long, n As Long, r As Long, t As Long
[A:A].ClearContents
[B:B].ClearContents
[C:C].ClearContents
For m = 1 To Cells(1, 2) 'qt M
 For j = 1 To Cells(2, 2) 'qt N
  For n = 1 To Cells(3, 2) 'qt H
  If Cells(m, 13) = Cells(j, 14) Then
    Cells(u + 2, 16) = FIN: u = u + 1  'coluna J
  End If
  Next n
 Next j
Next m
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

Faça com que a macro  selecione a aba em questao. Exemplo:

 Sheets("começo").activate

'ESTA MACRO FORNCE O COMEÇO
'****** USAR NA PLANILHA "começo" ******
Sub produto_começo()
Dim u As Long, m As Long, j As Long, n As Long, r As Long, t As Long
Sheets("começo").activate
[A:A].ClearContents
[B:B].ClearContents
[C:C].ClearContents
For m = 1 To Cells(1, 2) 'qt M
 For j = 1 To Cells(2, 2) 'qt N
  For n = 1 To Cells(3, 2) 'qt H
  If Cells(m, 13) = Cells(j, 14) Then
    Cells(u + 2, 16) = FIN: u = u + 1  'coluna J
  End If
  Next n
 Next j
Next m
End Sub

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×