Página 1 de 1

ERRO 380 no combobox

Enviado: 05 Abr 2018 às 13:20
por FRF
Pessoal, boa tarde.

Estou tendo dificuldades no seguinte procedimento.
Fiz uma macro simples para quando iniciar o useform, conforme abaixo.




Private Sub UserForm_Initialize()


ultimo = Sheets("CADASTRO DE ENTREGAS").Cells(Rows.Count, 8).End(xlUp).Row

Me.cboEst.RowSource = "CADASTRO DE ENTREGAS!h3:h" & ultimo


End Sub


Porém, quando executo esta macro aparece este erro abaixo:


Imagem



Mas quando mudo a macro dessa forma, tirando o CADASTRO DE ENTREGAS! do código a macro da certo:


Private Sub UserForm_Initialize()


ultimo = Sheets("CADASTRO DE ENTREGAS").Cells(Rows.Count, 8).End(xlUp).Row

Me.cboEst.RowSource = "h3:h" & ultimo


End Sub




Sinceramente não faço a menor idéia de onde pode estar o erro.

Se alguem souber, agradeço muito.

Re: ERRO 380 no combobox

Enviado: 05 Abr 2018 às 17:24
por osvaldomp
Experimente acrescentar aspas simples ao nome da planilha, conforme em vermelho abaixo.

"'CADASTRO DE ENTREGAS'!H3:H" & ultimo

Re: ERRO 380 no combobox

Enviado: 05 Abr 2018 às 20:55
por FRF
Resolvidissimo!!

Obrigado!