Notifications
Clear all

Deletar células em branco e mover para direita

7 Posts
3 Usuários
0 Reactions
1,137 Visualizações
(@sevla00)
Posts: 3
New Member
Topic starter
 

Olá, alguém tem uma macro para deletar as células que estiverem em branco e movimenta as demais para a direita até o fim da seleção?

 
Postado : 05/04/2017 3:21 pm
(@osvaldomp)
Posts: 859
Prominent Member
 

... alguém tem uma macro para deletar as células que estiverem em branco e movimenta as demais para a direita até o fim da seleção?

Tenho uma aqui que, por acaso, me parece que serve para o seu caso. 8-) :roll: :!:

Sub InsereVazias()
 Dim c As Long, a As Long, k As Long
  a = [A1].CurrentRegion.Columns.Count
   For c = 1 To Cells(Rows.Count, 1).End(3).Row
    On Error Resume Next
    k = 0: k = Range(Cells(c, 1), Cells(c, a)).SpecialCells(xlBlanks).Cells.Count
    Cells(c, 1).Resize(, k).Insert Shift:=xlToRight
   Next c
End Sub

Osvaldo

 
Postado : 05/04/2017 5:40 pm
(@sevla00)
Posts: 3
New Member
Topic starter
 

Olá Osvaldo, para usar o seu macro é só copiar e coloca o código e então já vai funcionar? por que quando coloco para executar nada se altera, ps sei pouco sobre macros, ate hoje só usei uns dois ou três xd

 
Postado : 05/04/2017 8:56 pm
(@osvaldomp)
Posts: 859
Prominent Member
 

Instale o código em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).

Se após rodar o código o resultado não for o esperado, então disponibilize uma amostra do seu arquivo (arquivo Excel, não print da planilha) com alguns dados e com o resultado desejado.

Osvaldo

 
Postado : 06/04/2017 5:01 am
(@sevla00)
Posts: 3
New Member
Topic starter
 

Osvaldomp

Não estava funcionando porque eu estava usando o botão para selecionar todas as células de uma vez, quando fiz a seleção usando ctrl e shift para pegar só as células com dados deu certo, muito grato pela ajuda! abraços

 
Postado : 06/04/2017 1:37 pm
(@osvaldomp)
Posts: 859
Prominent Member
 

... não estava funcionando porque eu estava usando o botão para selecionar todas as células de uma vez,
Que botão é esse :?: :?: :?:

quando fiz a seleção usando ctrl e shift para pegar só as células com dados deu certo, ...
Não há qualquer relação entre a seleção de células e o funcionamento do código. :!: O código não trata células selecionadas, e funciona independente de quantas e quais células estejam selecionadas, me parece que você tá meio perdido aí ;)

Osvaldo

 
Postado : 06/04/2017 2:26 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde sevlla00

Bem-vindo ao fórum!

Como você é novato, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Acesse os links acima, assim você irá aprender a usar a ferramenta para agradecer aos colaboradores, regras do fórum e outras instruções.

[]s

Patropi _ Moderador

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

 
Postado : 06/04/2017 2:55 pm