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.

Código: Selecionar todos

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

[Mikel Silveira Fraga]

Isabele, boa noite e seja bem vinda ao fórum.

O erro na primeira linha, esta ocorrendo devido os espaços em branco existentes em RELAÇÃO DE FUNCIONÁRIOS.

A propriedade RowSource não aceita esses espaços em branco. Como nas outras combos, o nome da planilha é Planilha2 (sem espaços em branco), o mesmo erro não ocorre.

Sugestão: substitua o nome RELAÇÃO DE FUNCIONÁRIOS por RELAÇÃO_DE_FUNCIONÁRIOS. Assim você não vai precisar mudar muita coisa em outras partes de seu projeto.

Espero que essa dica seja suficiente para resolver seu problema.

Tenha uma excelente semana e bons estudos.