- 05 Abr 2018 às 13:20
#31765
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:

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.
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:
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.