outra macro

[Tiagoro]

Obrigado dofall.

Aproveitando, precisava de uma outra automatização:

- localiza na coluna Z os valores "#N/D";

- copia as células de A:L correspondentes ao #N/D;

- cola na sheet2 (outra planilha) depois da última célula cheia da coluna A.

Tem como fazer isso?

[dofall]

Vai demorar um pouco na execução porque o For vai pegar a coluna Z inteira.

On Error Resume Next

Dim c As Range

For Each c In Worksheets(1).[Z:Z]

If c <> CVErr(xlErrNA) Then

ElseIf c = CVErr(xlErrNA) Then

Sheets(1).Range(Cells(c.Row, "A"), Cells(c.Row, "L")).Copy

Sheets(2).Activate

If Range("A1").End(xlToLeft).Value = "" Then

Sheets(2).Paste [A1]

ElseIf Range("A1").End(xlDown).Value = "" Then

Sheets(2).Paste [A2]

Else

Sheets(2).Paste [A1].End(xlDown).Cells(2, 1)

End If

End If

Next