PESSOAL,
É seguinte criei uma macro e o botão de salvar estava funcionando normalmente mas não sei que eu fiz que agora está salvando no final da planilha
Dim LastRow As Long
LastRow = Worksheets("Cadastro").Cells(Workheets("Cadastro").Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Cadastro").Cells(LastRow, 1).Value = Me.Cod_
Worksheets("Cadastro").Cells(LastRow, 2).Value = Me.Nome_
Worksheets("Cadastro").Cells(LastRow, 3).Value = Me.Curso_
Worksheets("Cadastro").Cells(LastRow, 4).Value = Me.Empresa_
Worksheets("Cadastro").Cells(LastRow, 5).Value = Me.Bolsa_
Worksheets("Cadastro").Cells(LastRow, 6).Value = Me.Valor_
Worksheets("Cadastro").Cells(LastRow, 7).Value = Me.Funcoes_
Worksheets("Cadastro").Cells(LastRow, 8).Value = Me.Periodo_
Worksheets("Cadastro").Cells(LastRow, 9).Value = Me.Prorrogacoes_1
Worksheets("Cadastro").Cells(LastRow, 10).Value = Me.Prorrogacoes_2
Worksheets("Cadastro").Cells(LastRow, 11).Value = Me.Prorrogacoes_3
Worksheets("Cadastro").Cells(LastRow, 12).Value = Me.Declaracao_
Worksheets("Cadastro").Cells(LastRow, 13).Value = Me.Status_
Postado : 18/01/2017 2:36 pm