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