Tema: Excel VBA
Autorius: CurrentUser
Data: 2012-05-29 14:58:28
Sveiki,
Reikia userformos ComboBox'-ui paduoti RowSource is kito Sheet'-o.
Jei is to pacio failio, tai jokiu bedu:
Me.Combo1.RowSource = "Sheet1!A1:B5"

O reikia paduoti source'-a is kito failo, darau taip:
---------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Dim wb As Excel.Workbook

Set wb = GetObject("\\SERVER\TEST\aaa.xls")

Me.Combo1.RowSource = wb.Sheets("Sheet1").Range("A1:B5").Address

'Set wb = Nothing 'close the workbook
End Sub
--------------------------------------------------------------------------
rezultatas: jis jama source'-a ne is nurodyto failo, o is to, kuriame yra 
forma.
Bandziau ir ivairiausius kitokius variantus, bet nelabai excelyje su 
syntax'e draugauju, matyt

Gal kas mato cia kode prblm iskart?
Aciu