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.

Views

Histats

Vitrine

VBA Excel - Deletando linhas - 08 - Deletando linhas com informações.





Você provavelmente precisa vez ou outra deletar as linhas utilizadas da 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


TagsExcel, Column, Coluna, Delete, Linha, Plan, Planilhas, Report, Row,  rows,worksheet, lines



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

Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias