Macro que lança informações na sequência.

[Daniel Alipio]

Eae Galera  

 

 

Eu preciso criar uma macro, onde após clicar no botão ok, alimenta uma outra planilha (plan2) com as informações na sequência, uma após a outra, porém, está lançando a informação para a mesma linha.

 

 

Informação: I6:O6 ok

Lança na plan2 A6:G6 e assim por sequencia.

 

Range("I6:O6").Select

    Selection.Copy

    Sheets("Plan7").Select

    ActiveCell.Cells.Select

    Application.Goto Reference:="R1000C1"

    ActiveCell.Range("A6:g6").Select

    ActiveSheet.Paste

    Sheets("Plan6").Select

    Range("I6:O6").Select

    Application.CutCopyMode = False

    Selection.ClearContents

    Range("P4:P6").Select

     Dim LR As Long 'retorna o número da última linha com conteúdo na coluna'

    LR = Sheets("Plan7").Cells(0, 1).End(xlUp).Row

  Sheets("Plan6").Range("I6:O6").Copy Sheets("Plan7").Range("A" & LR + 1)

End Sub

 

[minoso]

Pode nos dar um arquivo como exemplo?

[Daniel Alipio]

MInoso,

 

 

 

 Os dados da imagem 1, lançados em sequencia na imagem 2

Excel

[minoso]

Ah, entendi.

 

Você quer criar uma espécie de formulário de cadastro em um banco de dados.

 

A macro é bem diferente dessa que você postou e não é só acertar algumas linhas. Existe toda uma estrutura por trás disso.

 

Anexa o arquivo compactado aqui no post e eu faço as alterações pra você, depois devolvo e aí discutimos o que você tiver dúvida. Pode ser?

[Daniel Alipio]

Ok

Pasta1.zip

[minoso]

Apenas uma observação @Daniel Alipio

 

Aquele campo "DATA" refere-se a uma data específica ou a data exata em que o usuário estiver cadastrando a linha na planilha?

[Daniel Alipio]

Boa tarde Minoso,

 

O campo é editado quando estiver cadastrando a linha. A data é de acordo com o dia em que eu cadastro o item

[minoso]

A terceira máquina, depois do VF6, o que é ela? Tem nome?

[Daniel Alipio]

Torno cnc com alimentador

[minoso]

Desculpe, mais uma dúvida.

 

E a máquina do item 14 e 15 (as duas últimas imagens). Qual o nome?

[Daniel Alipio]

Boa noite Munido,

CNC RFM RC com alimemtador

Boa noite Munido,

CNC RFM RC com alimemtador