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

Otimiza codigo.

 
2024 - VBA & Macros
Post Recente por jonasjtg 8 anos atrás
4 Posts
2 Usuários
0 Reactions
963 Visualizações
RSS
 jonasjtg
(@jonasjtg)
Posts: 43
Eminent 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: 43
Eminent 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
 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Deu certo tb!

Muito obrigado!

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