Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Otimiza codigo.
 
Notifications
Clear all

Otimiza codigo.

 
2024 - VBA & Macros
Post Recente por jonasjtg 9 anos atrás
4 Posts
2 Usuários
0 Reactions
959 Visualizações
RSS
 jonasjtg
(@jonasjtg)
Posts: 0
New Member
Topic starter
 

Ai pessoal blz!
Eu não sei se tem como ou precisa de um modelo para agilizar este código!

Range("E4").Select
    Selection.ClearContents
    Range("E5").Select
    Selection.ClearContents
    Range("E7").Select
    Selection.ClearContents
    Range("E8").Select
    Selection.ClearContents
    Range("H8").Select
    Selection.ClearContents
    Range("H7").Select
    Selection.ClearContents
    Range("H5").Select
    Selection.ClearContents
    Range("H4").Select
    Selection.ClearContents
    Range("K4").Select
    Selection.ClearContents
    Range("K5").Select
    Selection.ClearContents
    Range("K7").Select
    Selection.ClearContents
    Range("K8").Select
    Selection.ClearContents
 
Postado : 12/04/2016 8:14 am
 jonasjtg
(@jonasjtg)
Posts: 0
New Member
Topic starter
 

Acabei descobrindo!
NICE!
Mas não sei se tem como fazer melhor!

Range("E4,E5,E7,E8,H8,H7,H5,H4,K4,K5,K7,K8").Select
Selection.ClearContents

Obs. Deixarei aberto para ver as opiniões de quem quiser da mais tarde fecho tropico!

 
Postado : 12/04/2016 8:23 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde

Experimente:

[E4,E5,E7,E8,H8,H7,H5,H4,K4,K5,K7,K8].ClearContents

Se foi útil, clique na mãozinha.

[]s

 
Postado : 12/04/2016 9:07 am
 jonasjtg
(@jonasjtg)
Posts: 0
New Member
Topic starter
 

Deu certo tb!

Muito obrigado!

 
Postado : 12/04/2016 5:01 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico