Notifications
Clear all

Macro para limpar células

2 Posts
2 Usuários
0 Reactions
1,092 Visualizações
(@edvaldo123)
Posts: 14
Active Member
Topic starter
 

Olá para todos, estou utilizando uma macro que limpa células em várias planilhas ao mesmo tempo. Algo muito simples, porém quando o código é executado, acontece uma mudança rápida de uma planilha para outra, ou seja, a tela do PC da uma rápida piscada, deixando nítido que foi executado algum comando que fez alternar de uma planilha para outra e no final retornar para a planilha inicial onde a macro foi executada.
Vou deixar abaixo o código que estou usando, se alguém puder implementar esse comando para retirar essa piscada na tela, ou desenvolver um comando novo que possa resolver meu problema, desde ja agradeço muito.

Sub Limpar6()
Range("K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K15,K17,K18,I27:I30").ClearContents
Plan26.Select
Range("D7:D15").ClearContents
Plan22.Select
End Sub
 
Postado : 22/04/2018 6:02 pm
(@klarc28)
Posts: 971
Prominent Member
 
Sub Limpar6()
application.screenupdating= false
Range("K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K15,K17,K18,I27:I30").ClearContents
Plan26.Select
Range("D7:D15").ClearContents
Plan22.Select
application.screenupdating= true
End Sub

ou

Sub Limpar6()

Plan22.Range("K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K15,K17,K18,I27:I30").ClearContents
Plan26.Range("D7:D15").ClearContents


End Sub
 
Postado : 22/04/2018 6:22 pm