Excel Erro em Caixa de Combinação VBA

[Isabele Vasconcelos]

Estou tentando  incluir uma listagem em três caixas de combinação no meu Userform, sendo uma coletando dados de uma aba e as outras duas em outra. Porém, o código não aceita uma das abas, sempre apresenta mensagem de erro. Não estou conseguindo identificar o problema. O primeiro comando não aceita, mas se eu apagar esse e fazer com os dois de baixo roda normal.

 

linha = Sheets("RELAÇÃO DE FUNCIONÁRIOS").Range("b9").End(xlDown).Row
cxtexto_funcionario.RowSource = "RELAÇÃO DE FUNCIONÁRIOS!b9:b" & linha

linha = Sheets("Planilha2").Range("K1").End(xlDown).Row
cxtexto_medida.RowSource = "Planilha2!K2:K" & linha

linha = Sheets("Planilha2").Range("C1").End(xlDown).Row
cxtexto_motivo.RowSource = "Planilha2!C2:C" & linha

 

 

 

[Basole]

@Isabele Vasconcelos eu não gosto de usar a propriedade RowSource, sempre gera erros.

 

Experimente a propriedade List. Veja o exemplo a baixo:

 

Private Sub UserForm_Initialize()
Dim myArray  As Variant
Dim linha    As Long

With ThisWorkbook

  With .Sheets("RELAÇÃO DE FUNCIONÁRIOS")
      linha = .Cells(Rows.Count, "B").End(xlUp).Row
      myArray = .Range("B9:B" & linha).Value2
      Me.cxtexto_funcionario.List = myArray
  End With
  
  With .Sheets("Planilha2")
      linha = .Cells(Rows.Count, "K").End(xlUp).Row
      myArray = .Range("K1:K" & linha).Value2
      Me.cxtexto_medida.List = myArray
  
     linha = .Cells(Rows.Count, "C").End(xlUp).Row
     myArray = .Range("C2:C" & linha).Value2
     Me.cxtexto_motivo.List = myArray
  End With
  
End With

End Sub