Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Excluir a célula em...
 
Notifications
Clear all

Excluir a célula em branco e organizar os dados

 
2024 - VBA & Macros
Post Recente por xxXLSxx 12 anos atrás
4 Posts
2 Usuários
0 Reactions
1,350 Visualizações
RSS
xxXLSxx
 xxXLSxx
(@xxxlsxx)
Posts: 42
Eminent Member
Topic starter
 

Tenho uma planilha que possui um mecanismo em que vou EXCLUINDO valores das células.

Porém, depois que clicar no botão, quero que esses dados se organizem, não ficando em branco. MAS não quero que exclua a linha vazia inteira, pois vai ter dados no lado. Quero apenas que exclua a célula vazia e "suba" as outras.

Vendo o anexo vocês entenderão melhor.

 
Postado : 19/09/2012 9:06 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Sub Macro1()
i = 2
j = Range("A1048576").End(xlUp).Row

Do While i <= j
If Cells(i, 1) = "" Then
Range("A" & i).Delete Shift:=xlUp
i = i - 1
j = j - 1
End If
i = i + 1
Loop

End Sub

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

 
Postado : 19/09/2012 8:02 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite, Segue! se quiser fazer o mesmo em outras colunas muda a letra da coluna no codigo abaixo

Range("A2:A5536").Sort key1:=Range("A1")
Range("E2:E5536").Sort key1:=Range("E1")

Att MarkoSoftware

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

 
Postado : 20/09/2012 3:15 pm
xxXLSxx
 xxXLSxx
(@xxxlsxx)
Posts: 42
Eminent Member
Topic starter
 

Muito obrigado aos dois.

 
Postado : 20/09/2012 3:22 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico