VBA Excel - Deletando linhas com informações.

header-16.jpg


Você provavelmente precisa vez ou outra, deletar todas as linhas utilizadas na sua planilha, ou talvez deseja disponibilizar este código na planilha caso alguém a abra sem a sua autorização.


Sub Prepare()
Dim CR As Long
Dim LR As Long
Let Application.ScreenUpdating = False
Let Application.Calculation = xlCalculationManual
Let LR = ActiveSheet.Range("B65536").End(xlUp).Row
For CR = LR To 3 Step -1
If ActiveSheet.Cells(CR, "A") = "" Then
Let ActiveSheet.Cells(CR - 1, "B") = Cells(CR - 1, "B") & " " & Cells(CR, "B")
ActiveSheet.Cells(CR, "A").EntireRow.Delete
End If
Next CR
Let Application.ScreenUpdating = True
Let Application.Calculation = xlCalculationAutomatic
Application.Calculate
End Sub

Tags: Excel, delete, line, row




André Luiz Bernardes
A&A® - In Any Place.



Nenhum comentário:

Postar um comentário

diHITT - Notícias