Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Deletar células esp...
 
Notifications
Clear all

Deletar células específicas em várias abas com botão

 
2024 - VBA & Macros
Post Recente por kurtmei 10 anos atrás
8 Posts
2 Usuários
0 Reactions
1,270 Visualizações
RSS
 kurtmei
(@kurtmei)
Posts: 11
Active Member
Topic starter
 

Olá, tentei na pesquisa mas não achei nada que pudesse adaptar facilmente.
Tenho uma pasta com 13 abas, a primeira tem dados e as outras são os 12 meses.
Preciso que um botão que esta na aba Dados, apague os dados de todos os meses da celula B4 até a célula H35 e também da celula J4 até M35.
Desde já agradeço pela atenção.

 
Postado : 28/10/2014 6:57 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Sheets(Array("jan", "dez")).Select
Range("B4:H35").Select
Selection.ClearContents
Range("J4:M35").Select
Selection.ClearContents
Sheets("Dados").Activate

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

 
Postado : 28/10/2014 9:29 am
 kurtmei
(@kurtmei)
Posts: 11
Active Member
Topic starter
 

Obrigado pela dica.
Posso perguntar como ficaria se as abas tivessem nomes diversos? E qual a funçaõ da ultima linha?
grato

 
Postado : 28/10/2014 12:11 pm
 kurtmei
(@kurtmei)
Posts: 11
Active Member
Topic starter
 

Em meu teste só apagou jan e dez, outros meses não.
Grato

 
Postado : 28/10/2014 12:21 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Porque não foi posto as outras guais!!!

Sheets(Array("jan", "dez")).Select

Att

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

 
Postado : 28/10/2014 1:59 pm
 kurtmei
(@kurtmei)
Posts: 11
Active Member
Topic starter
 

Estou com todas as guias, jan ,fev ,......dez.
Também tentei colocando "." após meses (jan.)nas abas e no código, e tbém não foi.
Funcionou digitando todos os meses no código, será isto?
grato

 
Postado : 28/10/2014 2:35 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Verifique antes se os nomes das abas correspondem aos nomes colocados no Array, se os nomes estão todos da forma que colocou acima, a linha deverá ser assim:
Sheets(Array("Jan", "Fev", "Mar", "Abr", "Mai", "Jun", "Jul", "Ago", "Set", "Out", "Nov", "Dez")).Select

[]s

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

 
Postado : 28/10/2014 3:52 pm
 kurtmei
(@kurtmei)
Posts: 11
Active Member
Topic starter
 

É isso mesmo Mauro, só desta forma funcionou.
grato

 
Postado : 28/10/2014 5:38 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico