Olá wfranca

Tente isto;
Private Sub UserForm_Initialize()

Dim BancoWF As String

BancoWF = "H:Forum VBANov-14Banco wfranca.xlsx" 'Aqui vc insere o caminho do banco

Workbooks.Open (BancoWF)

'A partir daqui continua normal
For Each c In Worksheets("Plan1").Range("A2", Range("A65000").End(xlUp))
Me.cmbop.AddItem c.Value
Next c

Veja se é por aí!!!

Márcio

Marcio, legal a dica, da até pra ter um raciocínio da lógica mas ainda não consegui..

me deu um erro ao iniciar o form..

Boa tarde!!

Só da minha parte há algumas postagens desse tipo, além disso tem algumas fontes que são sempre citadas com abaixo.
http://www.rondebruin.nl/win/s3/win001.htm

Att

Legal Alexandre, mas esse exemplo é para usar o banco de dados na mesma planilha...

preciso de um para usar o banco de dados separados.. no anexo q coloquei eu desejo gravar as informações em outra planilha que me servirá como banco de dados.

Boa Tarde,

Veja se o modelo em anexo te atende.

Boa noite!!!

Pelo visto você não leu atentamente!!
Onde diz
What if the Database sheet is in another workbook

Sub Copy_To_Another_Workbook()
    Dim SourceRange As Range
    Dim DestRange As Range
    Dim DestWB As Workbook
    Dim DestSh As Worksheet
    Dim Lr As Long

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    'Change the file name (2*) and the path/file name to your file
    If bIsBookOpen_RB("Backup.xls") Then
        Set DestWB = Workbooks("Backup.xls")
    Else
        Set DestWB = Workbooks.Open("C:UsersRontestBackup.xls")
    End If

    'Change the Source Sheet and range
    Set SourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:K1")
    'Change the sheet name of the database workbook
    Set DestSh = DestWB.Worksheets("Sheet1")


    Lr = LastRow(DestSh)
    Set DestRange = DestSh.Range("A" & Lr + 1)

    'We make DestRange the same size as SourceRange and use the Value
    'property to give DestRange the same values
    With SourceRange
        Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
    End With
    DestRange.Value = SourceRange.Value

    DestWB.Close savechanges:=True

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

Bom dia!!

Veja um modelo de rotina.
http://usuariosdoexcel.forumeiros.com/t ... do-vba#527

Att

Guima Show de bolaa.. simples e objetivo...

para o banco de dados ficar oculto eu aplico o código no Banco de dados né?