Macro excel [excluir colunas/ linhas]

alanvsp · 3 de julho de 2013

Boa tarde !

Estou com um problema e gostaria da ajuda de todos.

Tenho que excluir diariamente e varias vezes ao dias as linhas 1 a 9 , as colunas

B C D E F G H I K L M P R S T U Y Z AA AB AC AD AE , alem das linhas em branco que intercala os dados uteis da minhas planilha. Qual seria a macro ideal para realizar esse processo para mim ?

OBS: todas as planilhas contem quantidas diferente de linhas uteis para min, o que tambem nunca chegou a passar de 50 linha uteis, logo então a macro que exclua linhas vazias deve ser aplicadas alem do que está sendo apresentado nessa planilha de exemplo.

Segue abaixo a imagem da planilha onde apenas o que esta de azul me interessa o restante e descartavel.

Gostaria que apos rodada minha planilha ficasse assim :

Agradeço desde ja a ajuda de todos que se protificarem a me ajudar !

zinhovba · 3 de julho de 2013

Boa noite!!

Tente

Sub Test2()

    On Error Resume Next
    Intersect(ActiveSheet.UsedRange, Columns("A")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

Ou

Sub DeletarLinha() 
    Dim r As Long 
    Application.ScreenUpdating = False 
    For r = 100 To 55 Step -1 
        If WorksheetFunction.CountA(Range(Cells(r, 1), Cells(r, Columns.Count))) = 0 Then 
            Rows(r).Delete 
        End If 
    Next r 
    Application.ScreenUpdating = True 
End Sub

alanvsp · 8 de julho de 2013

Boa noite!!

Tente

Sub Test2()

    On Error Resume Next
    Intersect(ActiveSheet.UsedRange, Columns("A")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

Ou

Sub DeletarLinha() 
    Dim r As Long 
    Application.ScreenUpdating = False 
    For r = 100 To 55 Step -1 
        If WorksheetFunction.CountA(Range(Cells(r, 1), Cells(r, Columns.Count))) = 0 Then 
            Rows(r).Delete 
        End If 
    Next r 
    Application.ScreenUpdating = True 
End Sub

Opa !

Boa noite ...

Caro zinhovba suas dicas me ajudaram, o 1° codigo serviu muito bem , ja o 2° tive que adpta-lo para exluir varias linha que não estavam sendo excluidas, como não sei muita coisa ou melhor dizendo nada de VBA, gravei a macro e fui excluindo comandos desnecessários para chegar no resultado que eu quera ,no final ficou assim :

Sub Separação()

On Error Resume Next

Intersect(ActiveSheet.UsedRange, Columns("A")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Dim r As Long

Application.ScreenUpdating = False

For r = 300 To 1 Step -1

If WorksheetFunction.CountA(Range(Cells(r, 1), Cells(r, Columns.Count))) = 0 Then

Rows®.Delete

End If

Next r

Application.ScreenUpdating = True

Range("B:I,K:K,L:M,P:P,R:U,Y:AE").Select