@lenasiyou Boa tarde. Um erro que pode acontecer nesse caso é o fato de você não possuir nenhuma celula preenchida a partir da sua referencia.
No seu caso se vc não possuir nenhum dado nas celulas abaixo da B6 pode dar erro.
uma correção é usar um comando "On error next" antes dessa linha ou então ao invés de usar "Range("B6").End(xlDown).Row' usar Range("B50000").End(xlUp).Row. Onde 50000 pode ser a ultima celula da planilha.
Caro amigo, era exatamente que estava precisando.. Só faltou uma coisa. No meu caso a lista está em outra planilha. O Formulário é da planilha 1 e os dados estão na planilha 2.
Desculpe testei da forma igual ao seu e tb de erro
lenasiyou 2 weeks ago
@lenasiyou Boa tarde. Um erro que pode acontecer nesse caso é o fato de você não possuir nenhuma celula preenchida a partir da sua referencia.
Se não for esse seu caso, me passe mais detalhes para que possa te ajudar.
abraços
elitontecnology 5 days ago in playlist Uploaded videos
Testei :
cbregiao.RowSource = "Bco de Dados!B6:B" & Sheets("Bco de Dados").Range("B6").End(xlDown).Row
Mas está dando erro;;;
lenasiyou 2 weeks ago
@lenasiyou Boa tarde. Um erro que pode acontecer nesse caso é o fato de você não possuir nenhuma celula preenchida a partir da sua referencia.
No seu caso se vc não possuir nenhum dado nas celulas abaixo da B6 pode dar erro.
uma correção é usar um comando "On error next" antes dessa linha ou então ao invés de usar "Range("B6").End(xlDown).Row' usar Range("B50000").End(xlUp).Row. Onde 50000 pode ser a ultima celula da planilha.
Espero ter ajudado e obrigado pela participação
elitontecnology 5 days ago in playlist Uploaded videos
Caro amigo, era exatamente que estava precisando.. Só faltou uma coisa. No meu caso a lista está em outra planilha. O Formulário é da planilha 1 e os dados estão na planilha 2.
Poderia me ajudar.
Muito grato
Levi
lenasiyou 2 weeks ago