Boa tarde!!

Qual o critério para transferir os dados ?

As células das colunas de A até H devem ser preenchidas?

Att

anacletotranstusa,

Boa Tarde!

Veja se é assim.

Para testar, clique no botão Cadastrar. Para testar novamente, apague os dados copiados na aba Dados e clique no botão Cadastrar de novo na aba Cadastro.

Wagner Boa tarde, primeiramente muito obrigado!
Seria isso mesmo!
poderia me ajudar a melhorar o código, ao clicar no botão cadastrar, faz a transferência para a aba Dados e limpa todo o conteúdo das colunas E;F;G;H da aba Cadastro, deixando preenchido as informações do Carro e classifico. Na aba Dados, preciso colocar bordas nas células preenchidas...
Desde já agradeço sua atenção.

Bom dia,
Teria como padronizar a formatação das informações quanto transferida para a aba Dados, exemplo fonte em maiúscula.
Desde já agradeço sua atenção.

Bom dia,
Estou quebrando cabeça para tentar encontrar uma logica para não permitir finalizar o cadastro faltando informações necessárias.
Tentei montar essa estrutura, mas está ocorrendo erro. Minha lógica seria: Se na coluna "I" contiver o numero 1, faz a transferência das informações da linha entre "A","B","C","D","E","F","G" e "H", caso contiver o texto "Erro", será apresentado uma mensagem "Está faltando informações necessárias para finalizar o cadastro"
Sub Cadastrar()
Dim i As Long
Dim UltimaLinhaCadastro As Long
Dim UltimaLinhaDados As Long

UltimaLinhaCadastro = Sheets("Cadastro").Cells(Cells.Rows.Count, 1).End(xlUp).Row
UltimaLinhaDados = Sheets("Dados").Cells(Cells.Rows.Count, 1).End(xlUp).Row
If UltimaLinhaDados = 1 Then
Sheets("Dados").Range("A2").Value = 1
End If

If Sheets("Dados").Range("I").Value = "Erro" Then

MsgBox "Está faltando informações necessárias para finalizar o cadastro", vbCritical, "Atenção"
End If

For i = 2 To UltimaLinhaCadastro

If Range("I" & i).Value = 1 Then

If UltimaLinhaDados <> 1 Then
Sheets("Dados").Range("A" & UltimaLinhaDados + 1).Value = Sheets("Dados").Range("A" & UltimaLinhaDados).Value + 1
End If
Sheets("Dados").Range("B" & UltimaLinhaDados + 1).Value = Range("B" & i).Value
Sheets("Dados").Range("C" & UltimaLinhaDados + 1).Value = Range("C" & i).Value
Sheets("Dados").Range("D" & UltimaLinhaDados + 1).Value = Range("D" & i).Value
Sheets("Dados").Range("E" & UltimaLinhaDados + 1).Value = Range("E" & i).Value
Sheets("Dados").Range("F" & UltimaLinhaDados + 1).Value = Range("F" & i).Value
Sheets("Dados").Range("G" & UltimaLinhaDados + 1).Value = Range("G" & i).Value
Sheets("Dados").Range("H" & UltimaLinhaDados + 1).Value = Range("H" & i).Value
UltimaLinhaDados = Sheets("Dados").Cells(Cells.Rows.Count, 1).End(xlUp).Row
End If
Next
Call Limpar

Boa Tarde Pessoal,
Consegui chegar até essa planilha através de alguns postagens em fóruns.
Estou quase chegando ao objetivo.
Venho aqui postar mais uma vez minha dificuldade. No modelo anexo, na aba Cadastro, se caso o usuário que alimenta a planilha não informar nenhum cadastro e clicar no botão cadastro a macro dá um erro de execução, preciso criar uma rotina que não ocorra este erro. Outro detalhe: Na aba cadastro possui algumas formulas, exemplo dos campos Data e Classificação, quando transferidos para a aba Dados é transferido a formula, preciso que seja transferido somente os valores.
Desde já agradeço atenção.

Boa tarde!!

Creio que esta´sendo respondido em:
http://gurudoexcel.com/forum/viewtopic.php?f=12&t=729

Att