Excel VBA - Erro no form_initialize

[diego_janjao]

Pessoal, boa noite.

 

Estou tentando popular essa combobox para depois gerar os demais dados do form mas não estão aparecendo os dados.

 

Private Sub form_gerar_Initialize()

    Application.ScreenUpdating = False

        Sheets("GESTÃO NÃO CONFORMIDADES 2019").Select
        Range("AM6").Select
        Selection.End(xlDown).Select
        linForm = ActiveCell.Row
        rnc_txt.RowSource = "GESTÃO NÃO CONFORMIDADES 2019!AM6:AM" & linForm

End Sub

Segue o arquivo para melhor entendimento:

 

Gestão de Não Conformidades Internas 2019.zip

[Visitante]

 

Experimente:

 

Private Sub userform_Initialize()
 Dim LR As Long
  LR = [match(2,1/(AM:AM<>""))]
  rnc_txt.RowSource = "AM6:AM" & LR
End Sub

 

[diego_janjao]

@osvaldomp funcionou perfeitamente mas por algum motivo, quando seleciono o valor da combobox ele não encontra na coluna especificada, mesmo contendo o valor nela.

Caso puder dar uma olhada:

 

GESTÃO_NÃO_CONFORMIDADES_INTERNAS_2019_rev03.zip

[Visitante]

No código Private Sub rnc_cb_Change() adicione a parte em vermelho (, , xlValues) conforme abaixo.

Set EmpFound = .Find(Me.rnc_cb.Text, , xlValues)

 

obs.

1. no código referido acima você colocou duas vezes o comando Application.ScreenUpdating = False. Se necessário/conveniente o uso desse comando, basta uma vez. Ainda, tal como no código que você postou na inicial você não resetou o comando para True ao final do código. Sempre que usá-lo,  ao final do código deve ser resetado para True ~~~> Application.ScreenUpdating = True.

2. ao final do código você colocou o comando ~~~> Sheets("GESTÃO_NÃO_CONFORMIDADES_2019").Select ~~~> esse comando é desnecessário pois a planilha ativa é essa, então não faz sentido ativar a planilha ativa.