Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Reset de plan1 para...
 
Notifications
Clear all

Reset de plan1 para plan2

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
1,476 Visualizações
RSS
 dimorais
(@dimorais)
Posts: 431
Honorable Member
Topic starter
 

Botão reset da plan Dados para agir no intervalo B31:AF45, da plan Estoque protegida. Sem a proteção, 100% de aproveitamento, com a proteção "erro em tempo de execução 1004". :evil: Se o botão reset tá na Plan Estoque, 100% aproveitamento. Onde estou errando? :roll: :roll:

Sub Reset_Bloco_1()
ActiveSheet.Unprotect "1"
Sheets("Estoque").Select
Range("B31:AF45").ClearContents
Sheets("Dados").Select
ActiveSheet.Protect "1"
End Sub

 
Postado : 03/10/2014 11:38 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Poste o arquivo!!
Considerando que você precise fazer referencia...

Sub MinhaSub

Sheets("Monthly NomedaGuia").Protect Password:="senha"
'Código aqui....
Sheets("NomedaGuia").Unprotect Password:="senha"

End sub

Att

 
Postado : 03/10/2014 11:39 am
 dimorais
(@dimorais)
Posts: 431
Honorable Member
Topic starter
 

Opa

Estoque.rar
 
Postado : 03/10/2014 11:49 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja se é isso...

Sub Reset_Bloco_1()
Worksheets("Estoque").Activate
ActiveSheet.Unprotect "1"
    Worksheets("Estoque").Range("C4:G7").ClearContents
ActiveSheet.Protect "1"
Worksheets("Dados").Select

End Sub

Vai bloquear após limpar os dados!!

Att

 
Postado : 03/10/2014 11:55 am
 dimorais
(@dimorais)
Posts: 431
Honorable Member
Topic starter
 

:oops: "Maki burru, dah zeru pa êli fessor". :lol: :lol: :lol:

 
Postado : 03/10/2014 11:59 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu fico feliz, que você resolveu, obrigado pelo retorno!!

Att

 
Postado : 03/10/2014 12:00 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico