VBA Excel - Excluir linhas em branco logo ao abrir a Planilha - Removing Blank Rows Automatically

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

Acesse: http://goo.gl/0v6AO   

Sim pessoal. sempre perguntam como deletar linhas em branco da planilha, assim que esta for aberta. Segue um código, simples, honesto, rápido e limpinho:

Private Sub Worksheet_Change (ByVal Target As Range)

'Deleta todas as linhas que estiverem em branco que existirem.  

'Previne loops infinitos  Let Application.EnableEvents = False   

'Caso haja mais de uma célula selecionada. 

If Target.Cells.Count > 1 Then

GoTo SelectionCode  

If WorksheetFunction.CountA(Target.EntireRow) = 0 Then 

Target.EntireRow.Delete 

End If  

Let Application.EnableEvents = True  

Exit Sub  

SelectionCode: 

If WorksheetFunction.CountA(Selection.EntireRow) = 0 Then 

Selection.EntireRow.Delete 

End If  

Let Application.EnableEvents = True

End Sub

Tags: VBA, Excel, deletar, apagar, excluir, rows, blank, lines, linha, range, removing, EntireRow, automatically, delete