SOCORRO ! Preciso de Ajuda com um botão VBA

[VGustavo]

Amigos, Preciso muito da ajuda de vocês.

Tenho uma planilha com a seguinte configuracao:

A B C D E F G H I J

1 ITEM A 000 000 000 000 000 000 001 000 000

2 ITEM B 000 000 000 000 000 000 001 000 000

3 ITEM C 000 000 000 000 000 000 001 000 000

4 ITEM A 000 000 000 000 000 000 002 000 000

5 ITEM B 000 000 000 000 000 000 002 000 000

6 ITEM C 000 000 000 000 000 000 003 000 000

A coluna H recebe um numero de pedido que vem do ERP e é incremental. A quantidade de registros de cada pedido está de acordo com os itens que constam no pedido.

Preciso montar um botão VBA que ao varrer a coluna H e verificar que mudou o número do pedido, insira um linha.

Com isso, a planilha depois de aplicada a macro ficaria assim:

A B C D E F G H I J

1 ITEM A 000 000 000 000 000 000 001 000 000

2 ITEM B 000 000 000 000 000 000 001 000 000

3 ITEM C 000 000 000 000 000 000 001 000 000

4

5 ITEM A 000 000 000 000 000 000 002 000 000

6 ITEM B 000 000 000 000 000 000 002 000 000

7

8 ITEM C 000 000 000 000 000 000 003 000 000

Quebrei minha cabeça o final de semana inteiro. estou entrando em parafuso.

alguém pode me ajudar ???

VGustavo

[Leandro_Amm]

Amigos, Preciso muito da ajuda de vocês.

Tenho uma planilha com a seguinte configuracao:

A B C D E F G H I J

1 ITEM A 000 000 000 000 000 000 001 000 000

2 ITEM B 000 000 000 000 000 000 001 000 000

3 ITEM C 000 000 000 000 000 000 001 000 000

4 ITEM A 000 000 000 000 000 000 002 000 000

5 ITEM B 000 000 000 000 000 000 002 000 000

6 ITEM C 000 000 000 000 000 000 003 000 000

A coluna H recebe um numero de pedido que vem do ERP e é incremental. A quantidade de registros de cada pedido está de acordo com os itens que constam no pedido.

Preciso montar um botão VBA que ao varrer a coluna H e verificar que mudou o número do pedido, insira um linha.

Com isso, a planilha depois de aplicada a macro ficaria assim:

A B C D E F G H I J

1 ITEM A 000 000 000 000 000 000 001 000 000

2 ITEM B 000 000 000 000 000 000 001 000 000

3 ITEM C 000 000 000 000 000 000 001 000 000

4

5 ITEM A 000 000 000 000 000 000 002 000 000

6 ITEM B 000 000 000 000 000 000 002 000 000

7

8 ITEM C 000 000 000 000 000 000 003 000 000

Quebrei minha cabeça o final de semana inteiro. estou entrando em parafuso.

alguém pode me ajudar ???

VGustavo

Olá amigo!

Veja se assim te ajuda.

Sub separar_dados()

Range("h1").Select

Do

If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then

ActiveCell.Offset(1, 0).Select

Else

ActiveCell.Offset(1, 0).Select

Selection.EntireRow.Insert

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell.Offset(0, 1).Value) = True

End Sub

Valeu!

[VGustavo]

Valeu mesmo Leandro !

Vou testar na minha aplicação e dou retorno depois !!!

Obrigado.