DADOS SENDO SALVOS NO FIM DA PLANILHA

2024 - VBA & Macros

Post Recente por darliane7l 8 anos atrás

3 Posts

2 Usuários

0 Reactions

822 Visualizações

RSS

darliane7l

(@darliane7l)

Posts: 13

Active Member

Topic starter

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

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

darliane7l,

Boa tarde!

Não entendi bem o que você quer dizer com "criei uma macro e o botão de salvar estava funcionando normalmente". O código que você colou em seu post faz exatamente isso: Salva tudo na primeira linha em branco da planilha. Ou seja, no final da planilha. A instrução que faz isso é essa:

LastRow = Worksheets("Cadastro").Cells(Workheets("Cadastro").Rows.Count, 1).End(xlUp).Row + 1

Após definir a última linha com dados, pela coluna A, e armazenar o número dessa linha (adicionando 1) na variável LastRow, suas outras linhas de comando estão salvando os dados em LastRow. Ou seja, na primeira linha em branco.

A menos que sua coluna A não tenha dados nenhum. Aí o VBA está pegando, realmente, a última linha da planilha mesmo. Ou seja, no Excel 2007 a linha número 1.048.576.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 18/01/2017 3:25 pm