Excel Editado: Como localizar células com erro em coluna e deixar em branco

ewpreis · 3 de setembro de 2018

Bom dia meu amigos,

Estou montando uma planilha para organizar alguns dados de um relatório, estou utilizando da coluna A a I. Sendo que na coluna I ficam os comentários e nem sempre possui comentários, por isso preciso de um código que conte todas as células preenchidas na coluna A e selecione a mesma quantidade células na coluna I. Para quando eu copiar e colar na outra pasta de trabalho os comentários fiquem na posição certa. A coluna "A" será sempre data.

Desde já agradeço.

Abraço.

EDIT: Problema acima resolvido desse jeito:

'Copiar Coluna I e Colar na Coluna L

Sheets("RECEBE").Select

Dim k As Integer

k = Application.CountA(Range("A:A"))

Range(Cells(k, 9), Cells(2, 9)).Activate
Selection.Copy
Sheets("DADOS").Select
Range("L2").Select
Range("L1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False

'Copiando dados Inseridos e Duplicando Fórmulas

Sheets("DADOS").Select
Dim i As Integer
i = Application.CountA(Range("D:D"))
Range(Cells(i, 4), Cells(i, 6)).Activate
Selection.Copy
i = i + 1
Range(Cells(i, 4), Cells(k, 6)).Activate
ActiveSheet.Paste
Application.CutCopyMode = False

Dim j As Integer
j = Application.CountA(Range("K:K"))
Range(Cells(j, 11), Cells(j, 11)).Activate
Selection.Copy
j = j + 1
Range(Cells(j, 11), Cells(k, 11)).Activate
ActiveSheet.Paste
Application.CutCopyMode = False

Amigos depois de muitas tentativas consegui resolver o problema acima, agora caí na seguinte situação: Preciso substituir todas as células da coluna k que deu erro na fórmula por uma célula em branco.

Desde já agradeço.