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,277 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

(@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

(@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

(@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