Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

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

Olá pessoal!

Alguns perguntaram como fazer para deletar as linhas que estão em branco na planilha, logo que a 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: Bernardes, MS, Microsoft, Office, Excel, Rows, Lines, blank, removing, EntireRow, automatically

André Luiz Bernardes
A&A® - Work smart, not hard.
Skype: inanyplace 


eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine