Página 1 de 1

EXCLUIR LINHAS VAZIAS COM BASE EM UM CRITERIO

Enviado: 02 Ago 2018 às 15:22
por RafaelVasconcelos
Amigos, tenho o seguinte caso:

Preciso de um código VBA que faça o seguinte:
EXCLUIR AS LINHAS da coluna "V" que contiverem algum destes valores:
"V" = ""
"V" = "0"
"V" = "(Vazias)"
Na coluna "V" o código vai encontrar células vazias e outras preenchidas. Pode ocorrer de dentre as linhas preenchidas existir uma sequência seguida de linhas vazias de até 19 linhas.
Após o código percorrer 20 linhas vazias seguidas, ele deve parar de executar, pois significa que chegou o fim, que dali em diante só vai encontrar linhas vazias.

Podem me ajudar?
Desde já agradeço.

Re: EXCLUIR LINHAS VAZIAS COM BASE EM UM CRITERIO

Enviado: 03 Ago 2018 às 09:21
por gfranco
Bom dia.
Veja se o seguinte pode te ajudar:
Código: Selecionar todos
Sub main()
    
    Dim ul As Long
    Dim i As Long
    Dim w As Worksheet
    
    Set w = ActiveSheet
    
    
    ul = w.Cells(w.Rows.Count, "v").End(3).Row + 20
    
    
        For i = 2 To ul
        
            If w.Cells(i, "V") = "" Or w.Cells(i, "V") = 0 Then
            
                w.Cells(i, "V").FormulaLocal = "=""a"""
            
            
            End If
        
        
        Next i
    
    
    On Error Resume Next
    
    w.Range(Cells(2, "V"), Cells(ul, "V")).SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete
    
    On Error GoTo 0
    
    
    Set w = Nothing

End Sub