MS Excel

Potřebuji načíst i Sloupec B do comboboxu jak na to?

Private Sub UserForm_Initialize()
'Me.kodoperace.AddItem Workbooks(promkodvyrobku).Sheets(kodvyrobkupol).Range("A3:B3")

Dim ListItems As Variant, i As Integer
Dim SourceWB As Workbook
With Me.kodoperace
.Clear ' remove existing entries from the listbox

ListItems = Workbooks(promkodvyrobku).Sheets(kodvyrobkupol).Range("A2:A100").Value

ListItems = Application.WorksheetFunction.Transpose(ListItems)
' convert values to a vertical array
For i = 1 To UBound(ListItems)
.AddItem ListItems(i) ' populate the listbox
Next i
.ListIndex = -1 ' no items selected, set to 0 to select the first item
End With

End Sub

Předem díky

Uzamčeno - nelze přidávat nové příspěvky.

Palooo(22.4.2014 8:40)#018988

musite najprv otvorit subor a az potom naplnat:
Private xl As Excel.Application
Private W As Workbook

sub test()
Set xl = CreateObject("Excel.Application")
Set W = xl.Workbooks.Open("Cesta k suboru")

With W.Sheets(1)
'tu naplnite combobox
End With

W.Close
Set xl = Nothing
end subcitovat

carifuk(22.4.2014 9:46)#018991

Soubor mám otevřený nevím jak načíst Sloupec A+Bcitovat

Palooo(22.4.2014 9:50)#018992

nepostaci vam ten uvedeny priklad?citovat

eLCHa(22.4.2014 11:54)#018999

@Palooo
opět zbytečně otevíráte druhou instanci excelu

@carifuk
já to vidím na obyčejný odkaz na pojmenovanou oblast (takže by ten soubor ani nebylo potřeba otevírat), ale bez přílohy (resp. v tomto případě příloh) to nepůjde.citovat

Palooo(22.4.2014 12:18)#019000

eLCHa:
nova instancia podla mna nieje az tak zla:
- da sa zadefinovat aby nebol viditelny otvoreny subor
- moze sa otvorit ten isty subor kde sa nachadza makro
- instancia da sa vypnut ... zapnutcitovat

carifuk1(22.4.2014 17:08)#019009

Tady je příloha viz navod.txt

http://uloz.to/xcf51hP3/erp-rarcitovat

eLCHa(23.4.2014 7:43)#019020

@Palooo
- k tomu, aby soubor nebyl vidět není potřeba nové instance.
- buď jsem nepochopil nebo mně nenapadá, proč ještě jednou otevírat soubor s tím samým kódem

Možná je ještě nějaký důvod otevírat nové instance - já znám pouze 2:
- soubor se kterým pracuji má tolik výpočtů, že mi zpomaluje práci v dalších. Proto si tyto soubory otevřu v jiné instanci.
- soubor, který upravuji si otevřu ještě jednou ve druhé instanci (pro čtení), abych věděl jak vypadal před úpravami - tohoto jsem začal využívat při práci se dvěma monitory ;)

Jinak přicházíme o spoustu možností, které nám nabízí jedna instance excelu. Toto vše platí pro excel 2007 a asi i 10. S 2013 jsem ještě nedělal, tam jsou okna řešena jinak (stejně jako ve wordu) a tak nevím, jak je to s instancemi.

@carifuk
Ulozto mám blokovanécitovat

Palooo(23.4.2014 11:06)#019038

elCHa:
- mam taku skusenost ze uzivatelia maju radsej ked to je v novom zosite ako v tom istom
- ake to ma nevyhody? podla mna to je len 1s navyse

carifuk:
ja ze mate problem s otvorenim dokumentu :) moja chyba tu je makro na zaplnenie comboboxu s dvoma stlpcami

Dim ListItems As Variant, i As Integer
Dim SourceWB As Workbook

With Me.kodoperace
.Clear ' remove existing entries from the listbox
.ColumnCount = 2
.BoundColumn = 2
.ColumnWidths = "2.5 in; 2.5 in"
.List = Workbooks(promkodvyrobku).Sheets(kodvyrobkupol).Range("A2:B100").Value
End Withcitovat

carifuk(23.4.2014 12:46)#019042

Díky moc Palooo

citovat

Téma: načtení hodnot do comboboxu z jiného sešitu vba

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje