VBA - Macro para rodar a ultima linha de uma coluna preenchida

[Philipe de Souza]

Boa tarde,

o seguinte código abaixo é para retornar o numero da ultima linha de uma coluna preenchida e esta dando erro no debug. Podem me ajudar?

Grato.

Function Ult_Line(RefPlan As Object, Col As String) As Long

Ult_Line = RefPlan.Range(Col & 65520).End(xlUp).Row

End Function

[jeffsilveira]

Tente substituir

Ult_Line = RefPlan.Range(Col & 65520).End(xlUp).Row

por

Ult_Line = RefPlan.Cells(Rows.Count, Col).End(xlUp).Row

[Philipe de Souza]

Prezados, o problema persiste. É difícil de explicar o que realmente está acontecendo.

Nas máquinas onde eu trabalho utilizam Windows XP, e estava apresentando erro no método descrito neste tópico, assim que cheguei em casa (no meu computador pessoal windows 7 com office 2003) fiz o que o jeffsilveira recomendou e o método não apresentou mais erro, então estava acusando que uma progressbar (barra de carregamento) não existia. Pois então, no dia seguinte volto ao meu trabalho com o mesmo arquivo modificado no Windows XP onde trabalho e o método que aparentemente havia resolvido apresentou problema novamente... e quando vou clicar no botão da macro aparece escrito "Não é possível sair do modo de criação porque control "html1hidden1" não pode ser encontrado".

Desculpe o texto longo mas eu realmente preciso da sua ajuda.

[jeffsilveira]

Quando ocorre erro de macro em pcs diferentes, pode ser segurança de macro ou falta de referências.

Tente isso, uma vez aconteceu algo parecido comigo e resolveu:

Na máquina onde está dando o erro, na janela do vba, clique no menu Ferramentas e em Referências. Desmarque a que estiver como Ausente, se houver.

Se não der certo, infelizmente não sei o que pode ser...

Abraços e boa sorte!

[Philipe de Souza]

Bom meu prezado, enfim consegui corrigir o problema do botão criando outro... mas o método ainda está incorreto.

Quando o atributo QtdLinhas recebe o valor do método Ult_Line, ele ainda apresenta o mesmo erro de debug.

Lembrando: Já substitui o método pelo valor fornecido pelo jeffsilveira.

[Douglas]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.