Este fórum está sendo desativado

[Luciano021273]

Boa Noite!

Estava com um problema anteriormente que quando zerava a planilha meu userform trava e pedia para reiniciar ou fechar

na ajuda que pedido um dos professores me orientou a fazer tal alteração, blz funcionou perfeitamente, testei e dei como resolvido, porém identifiquei que, ele nao trava mais , mas também não carrega as informações da plan

segue abaixo as orientações que foi passado,

Experimente alterar
Dim QuantasLinhas As Long, Cont As Long
QuantasLinhas = Plan3.Range("b2").End(xldown).Row
Para:
Dim QuantasLinhas As Long, Cont As Long
QuantasLinhas = Plan3.Range("b2").End(xlUp).Row

funcionou, mas não esta carregando a combobox, segue o projeto em anexo:

att,

[Reinaldo]

Não houve alteração em seu projeto, se não está carregando agora, tb não carregava anteriormente.
Em seu "problema" anterior a "função" xlDown, remetia a ultima linha da planilha, independentemente de haver conteúdo. Assim ao executar a opção de "carregar" a rotina analisava um milhão de linhas, por isso da demora/loop.
Alterando para xlUp,passou a considerar apenas as linhas com conteúdo. Se a planilha estiver "zerada" será 1. Assim voce dever definir informar de onde virão os dados para carregar a combo, já que aparentemente não é de onde está descrito

[Luciano021273]

Boa noite!

Entendi, mas se estava carregando de baixo para cima, não entendo porque não carrega de cima para baixo, que dentro da logica o professor tem toda razão, fica muito mais coerente ser dessa forma, End(xlUp). envie a projeto em anexo, para alguém tentar identificar a razão de não carregar. Como não tenho muito conhecimento esta difícil achar o problema.

De certa forma agradeço pela atenção.

att,

[Luciano021273]

Boa noite a todos!

Ainda não consegui resolver esta situação de carregar o userform ,

Dim QuantasLinhas As Long, Cont As Long
QuantasLinhas = Plan3.Range("b2").End(xldown).Row<<<<<<<<< Não carrega userform pede para reiniciar ou fechar

Dim QuantasLinhas As Long, Cont As Long
QuantasLinhas = Plan3.Range("b2").End(xlUp).Row<<<<<<<<<<Abre o userform corretamente, mas não carrega a combobox

Alguém poderia verificar a planilha esta em anexo acima...

atenciosamente,
Luciano.

[Reinaldo]

...mas se estava carregando de baixo para cima, não entendo porque não carrega de cima para baixo...

O que disse não tem haver com a orientação de inclusão, mas sim sobre a qtde de linhas encontrada.
Se esta dando problema experimente então alterar para:
QuantasLinhas = Plan3.Cells(Cells.Rows.Count, "B").End(xlUp).Row