MS Excel - Deletando linhas - 06

Termo de Responsabilidade

Abaixo listo o sexto método que poderá utilizar para deletar linhas que estiverem selecionadas. Observe o primeiro tópico com comentários adicionais.

Sub DelRwWithSpecifiedData()

' Observando a coluna "D" Columns(4).EntireColumn.Insert With Range("D1:D" & ActiveSheet.UsedRange.Rows.Count) .FormulaR1C1 = "=IF(RC[1]="""","""",IF(RC[1]=""Not Needed"",NA()))" .Value = .Value On Error Resume Next .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete End With On Error GoTo 0 Columns(4).EntireColumn.Delete

End Sub

Tags: Excel, Column, Coluna, Delete, Linha, Plan, Planilhas, Report, Row,  rows,worksheet, lines

André Luiz Bernardes

A&A® - In Any Place.