Usando Do e IF Excel

[joaomaracci 0]

Bom dia,

Não sou programados VB mas preciso fazer um trabalho e consegui parcialmente, porém tem parte que não consegui estou enviando a estrutura se puderem me ajudar agradeço.

|J050|01012014|01|S|1|01||1 ATIVO|#N/D|

|J050|01012014|01|S|3|25|7|111 DISPONIBILIDADES||J050|01012014|01|S|2|7|01|11 ATIVO CIRCULANTE|#N/D|

|J050|01012014|01|S|4|52|25|111.01 NUMERÁRIO DISPONÍVEL|#N/D|

|J050|01012014|01|S|5|76|52|111.01.1 Caixa|#N/D|

|J050|28091999|01|A|6|1110110000|76|Caixa|1.01.01.02.01|

|J050|01012014|01|S|5|77|52|111.01.2 Contas Bancárias à Vista|#N/D|

|J050|01012014|01|S|6|79|77|111.01.2.1 Banco do Brasil S.A.|#N/D|

 

|J050|28091999|01|A|7|1110121010|79|B.Brasil - Cta 78031-6 ag 3064-3 GERAL|1.01.01.02.02|

 

Preciso fazer se a quarta coluna é A, inserir uma linha em branco, grava na primeira coluna da linha em branco "J051" e copia para coluna 4 da linha em branco o conteúdo da linha 7 da linha anterior.

Se o conteúdo da linha anterior é igual a "#N/D" copia o ultimo que é diferente de "#N/D".

Não estou conseguindo fazer o controle para fazer somente se a quarta coluna é "A".

 

Criei este código

 

 

Sub Macro1()

Dim x As Integer, y As Integer

x = 1

y = 2

 

Do While x < 10

Rows(y).Insert

Rows(y).Select

ActiveCell.FormulaR1C1 = "J051"

ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 4).Select

ActiveCell.Value = ActiveCell.Value + 1

ActiveCell.FormulaR1C1 = "=R[-1]C[12]"

x = x + 1

y = y + 2

Loop

 

End Sub

 

agradeço

joaomaracci

[KhaosDoctor 242]

E qual é o problema?

[joaomaracci 0]

Não executa o que preciso se a quarta coluna é "A" ele tem que fazer:

-Inserir abaixo linha em branco

- copiar na nova linha na primeira coluna o texto "J051" e na terceira coluna o conteúdo da setima coluna da linha anterior.

 

mas somente se a quarta for ="A"

 

isto não consegui.

abraço