Notifications
Clear all

Ultima linha ativa - Não encontra

3 Posts
2 Usuários
0 Reactions
416 Visualizações
(@plan-rl)
Posts: 2
New Member
Topic starter
 

Olá!

Estou com um problema ao executar uma macro que localiza a última linha ativa de uma tabela e insere novos dados. Os dados são inseridos sempre na linha 2 da aba "Lista Placas". Os dados são inseridos através da aba "Placas" ao clicar no botão "Salvar".

Não consigo encontrar o problema.

Segue o arquivo em anexo.

Desde já, obrigado!

 
Postado : 01/09/2015 7:28 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Na Sub IncluiPlacas altere
lUltimaLinhaAtiva = Worksheets("Lista Placas").Cells(Worksheets("Lista Placas").Rows.Count, 8).End(xlUp).Row + 1
Para
lUltimaLinhaAtiva = Worksheets("Lista Placas").Cells(Worksheets("Lista Placas").Rows.Count, 2).End(xlUp).Row + 1

Deverá funcionar OK,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/09/2015 7:54 am
(@plan-rl)
Posts: 2
New Member
Topic starter
 

Olá Reinaldo!

Muito obrigado pela atenção!

Me ajudou muito com um problema que era simples de resolver, mas me fez queimar muitos neurônios, pois estava a focar em outras possibilidades.

Abraço!

 
Postado : 01/09/2015 8:05 am