Views

Histats

Vitrine

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.


LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...