Pra variar, não sei se entendi sua demanda (aqui bem como no Tomas http://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=4661 e Guru http://gurudoexcel.com/forum/viewtopic.php?f=12&t=2514), e como não obteve retorno, provavelmente ficou confuso para os demais tambem.
Assim vamos por parte:
Evite a navegação entre planilhas desnecessariamente (na inicialização do form seleciona Plan10, logo depois seleciona plan2,
assim pode se perder na hora de trazer os dados.
Evite utilizar o USEDRANGE, para detrerminação de linhas preenchidas. UsedRange e toda a área utilizada independentemente da coluna objeto, inclusive se houveram dados excluídos/limpos ainda permanece a info nesse controle.
No formulário em questão, rotina de inicialização, altere conforme abaixo:
Private Sub UserForm_Initialize()
Dim QuantasLinhas As Long, Cont As Long
'Seleciona a Plan10 -- Dados_do_Contrato
Plan10.Select
'Determina quantas linhas estão com conteudo na coluna C da planilhaselecionada
QuantasLinhas = Plan10.Cells(Cells.Rows.Count, "c").End(xlUp).Row
'Carrega a Combo PÇesquisa, com base nos registros da coluna C da planilha selecionada
For Cont = 2 To QuantasLinhas
If Range("DA" & Cont).Value = "" Then cbPesquisaCliente.AddItem Range("c" & Cont)
Next Cont
'Determina quantas linhas estão com conteudo na planilha "Cadastro_de_Produtos" coluna L
totaldelinhas = Worksheets("Cadastro_de_Produtos").Cells(Cells.Rows.Count, "L").End(xlUp).Row
'Determina oRowSourde das Combo
cmbMpux1.RowSource = "Cadastro_de_Produtos!L3:L" & totaldelinhas
cmbMpux2.RowSource = "Cadastro_de_Produtos!L3:L" & totaldelinhas
cmbMpux3.RowSource = "Cadastro_de_Produtos!L3:L" & totaldelinhas
cmbMpux4.RowSource = "Cadastro_de_Produtos!L3:L" & totaldelinhas
cmbMpux5.RowSource = "Cadastro_de_Produtos!L3:L" & totaldelinhas
cmbMpux6.RowSource = "Cadastro_de_Produtos!L3:L" & totaldelinhas
cmbMpux7.RowSource = "Cadastro_de_Produtos!L3:L" & totaldelinhas
cmbMpux8.RowSource = "Cadastro_de_Produtos!L3:L" & totaldelinhas
cmbMpux9.RowSource = "Cadastro_de_Produtos!L3:L" & totaldelinhas
cmbMpux10.RowSource = "Cadastro_de_Produtos!L3:L" & totaldelinhas
cmbMpux11.RowSource = "Cadastro_de_Produtos!L3:L" & totaldelinhas
'Determina quantas linhas estão com conteudo na planilha "Cadastro_de_Produtos" coluna U
totaldelinhas = Worksheets("Cadastro_de_Produtos").Cells(Cells.Rows.Count, "U").End(xlUp).Row
'Determina oRowSourde das Combo
cmbMdob1.RowSource = "Cadastro_de_Produtos!U3:U" & totaldelinhas
cmbMdob2.RowSource = "Cadastro_de_Produtos!U3:U" & totaldelinhas
cmbMdob3.RowSource = "Cadastro_de_Produtos!u3:u" & totaldelinhas
cmbMdob4.RowSource = "Cadastro_de_Produtos!u3:u" & totaldelinhas
cmbMdob5.RowSource = "Cadastro_de_Produtos!u3:u" & totaldelinhas
cmbMdob6.RowSource = "Cadastro_de_Produtos!u3:u" & totaldelinhas
cmbMdob7.RowSource = "Cadastro_de_Produtos!u3:u" & totaldelinhas
cmbMdob8.RowSource = "Cadastro_de_Produtos!u3:u" & totaldelinhas
cmbMdob9.RowSource = "Cadastro_de_Produtos!u3:u" & totaldelinhas
cmbMdob10.RowSource = "Cadastro_de_Produtos!u3:u" & totaldelinhas
cmbMdob11.RowSource = "Cadastro_de_Produtos!u3:u" & totaldelinhas
'''''###### Carrega acombo Materia Prima ############
cbmMat1.AddItem "MDF"
cbmMat1.AddItem "MDP"
cbmMat1.AddItem "MDF/MDP"
cbmMat2.AddItem "MDF"
cbmMat2.AddItem "MDP"
cbmMat2.AddItem "MDF/MDP"
cbmMat3.AddItem "MDF"
cbmMat3.AddItem "MDP"
cbmMat3.AddItem "MDF/MDP"
cbmMat4.AddItem "MDF"
cbmMat4.AddItem "MDP"
cbmMat4.AddItem "MDF/MDP"
cbmMat5.AddItem "MDF"
cbmMat5.AddItem "MDP"
cbmMat5.AddItem "MDF/MDP"
cbmMat6.AddItem "MDF"
cbmMat6.AddItem "MDP"
cbmMat6.AddItem "MDF/MDP"
cbmMat7.AddItem "MDF"
cbmMat7.AddItem "MDP"
cbmMat7.AddItem "MDF/MDP"
cbmMat8.AddItem "MDF"
cbmMat8.AddItem "MDP"
cbmMat8.AddItem "MDF/MDP"
cbmMat9.AddItem "MDF"
cbmMat9.AddItem "MDP"
cbmMat9.AddItem "MDF/MDP"
cbmMat10.AddItem "MDF"
cbmMat10.AddItem "MDP"
cbmMat10.AddItem "MDF/MDP"
cbmMat11.AddItem "MDF"
cbmMat11.AddItem "MDP"
cbmMat11.AddItem "MDF/MDP"
'''''###########################################################################
End Sub
Veja se avança, insere corretamente e se corrige o "intervalo grande".
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 12/07/2016 8:14 am