Comando For único para limpar várias células  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Comando For único para limpar várias células

Mensagempor vonzuben » Dom Abr 14, 2019 2:04 pm

De vez de escrever 3 linhas para limpar, tem como deixar apenas uma limpando todas essas celulas usando o for ?

Range("D8:D10,D12:D13,D15,D20").SpecialCells(xlCellTypeConstants).ClearContents
Range("F8:F10,F12:F13,F15,F20").SpecialCells(xlCellTypeConstants).ClearContents
Range("H8:H10,H12:H13,H15,H20").SpecialCells(xlCellTypeConstants).ClearContents

Tentei fazer algo do tipo

Código: Selecionar todos
   Dim x As Variant
   Dim i As Long
   
    x = Array("D,F,H")
   
    For i = 8 To 20

            Range("x&8" & ":" & "x&10" & "," & "x&12" & ":" & "x&13", "x&15", "x&20").SpecialCells(xlCellTypeConstants).ClearContents
           
    Next i


Obrigado !
Editado pela última vez por wagner em Dom Abr 14, 2019 4:50 pm, em um total de 1 vez.
Razão: Os Títulos devem ser inseridos contendo um resumo da dúvida de forma a permtir ajudas a outras usuários em futuras pesquisas sobre a mesma dúvida
vonzuben
Membro
Membro
 
Mensagens: 576
Registrado em: Qua Fev 12, 2014 6:00 pm
Has thanked: 255 times
Have thanks: 0 time

{ SO_SELECT }

Re: Comando For único para limpar várias células

Mensagempor wagner » Dom Abr 14, 2019 4:53 pm

vonzuben,

Boa tarde!
O título de sua mensagem foi editado para que fique dentro dos padrões e regras do fórum. Pedimos atentar para a questão em próximas postagens.

Quanto a sua demanda, veja se é assim.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
vonzuben (Sáb Mai 25, 2019 3:31 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5349
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 94 times
Have thanks: 2277 times

Re: Comando For único para limpar várias células

Mensagempor vonzuben » Dom Abr 14, 2019 5:28 pm

Pode ver que pulo algumas células e do seu modo limpa tudo

11,14,16,17,18 e 19 não é para limpar

Desse modo não precisa nem For
Código: Selecionar todos
Sub Limpar()

Range("D8: H20").SpecialCells(xlCellTypeConstants).ClearContents

End Sub
vonzuben
Membro
Membro
 
Mensagens: 576
Registrado em: Qua Fev 12, 2014 6:00 pm
Has thanked: 255 times
Have thanks: 0 time

Re: Comando For único para limpar várias células

Mensagempor wagner » Dom Abr 14, 2019 6:56 pm

Ok.

Então... anexe seu exemplo para que possamos ver o tipo de dados que tem nas células e saber como o VBA deve trabalhar nas células que tem que apagar e nas células que não deve apagar.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
vonzuben (Sáb Mai 25, 2019 3:32 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5349
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 94 times
Have thanks: 2277 times

Re: Comando For único para limpar várias células

Mensagempor vonzuben » Dom Abr 14, 2019 7:00 pm

Então, é a mesma planilha que você colocou, apenas as células que citei que não deve limpar

Nessa mesma planilha, só limpar as células que está formatada de com a cor de fundo ( amarelo, verde e azul )
vonzuben
Membro
Membro
 
Mensagens: 576
Registrado em: Qua Fev 12, 2014 6:00 pm
Has thanked: 255 times
Have thanks: 0 time

Re: Comando For único para limpar várias células  [Resolvido]

Mensagempor vonzuben » Dom Abr 14, 2019 7:19 pm

Vou deixar várias linhas mesmo !
vonzuben
Membro
Membro
 
Mensagens: 576
Registrado em: Qua Fev 12, 2014 6:00 pm
Has thanked: 255 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: rlm e 3 visitantes