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

2024 - VBA & Macros

Post Recente por xandrinho 7 anos atrás

3 Posts

2 Usuários

0 Reactions

1,360 Visualizações

RSS

xandrinho

(@xandrinho)

Posts: 0

Estimable Member

Topic starter

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?

Pasta21.zip

Postado : 17/01/2018 4:09 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Altere a linha :

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

para :

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

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

Postado : 17/01/2018 5:49 am