Chamar formulário através do ComandoButton - Erro de Execuçã [Resolvido]

[xandrinho]

Bom Dia, Galera!!!
Preciso de um auxilio, vejam se podem, por favor, me ajudar?
A planilha anexa, tem um comando button no qual chama um formulário (FRMorientacao.Show). .. mas tem um conflito que não consigo tratar, na qual aparece a seguinte mensagem: “Erro em tempo de Execução ‘6’ – Estouro”.
Conseguem por favor, me ajudarem?

[Mauro Coutinho]

Altere a linha :

Código: Selecionar todos

intLastRow = Sheets("cadastroORI").Range("A1").End(xlDown).Row + 1

para :

Código: Selecionar todos

intLastRow = Sheets("cadastroORI").Range("A1048576").End(xlUp).Row + 1

o Erro se dá quando utilizamos End(xlDown).Row que captura a ultima linha da planilha de cima para baixo sendo a última linha "A1048576" e soma mais 1 extrapolando a qde de linhas, ela só funcionara se já tiver alguma informação em "A2".

Utilizando End(xlUp).Row verificamos de baixo para cima, assim se A2 estiver em branco não teremos erro.

[]s

[xandrinho]

Muito Obrigado Mauro.

Funcionou perfeito.

Valeu Mesmo, Obrigado!!!