Excel (VBA) - Combo Box - vložení hodnot do tabulky Vyřešeno

[tomajk]

Dobrý den. Potřebuji poradit jak vložit data vybraná pomocí ComboBox v UserForm do tabulky.
Vytvořil jsem formulář (viz. přiloha) kde pomocí ComboBoxu vybírám data z tabulky na jiném listu který má čtyři sloupce. Ve výběru ComboBoxu jsou vidět všechny čtyři, ale nemůžu si poradit s tím, aby se mi do tabulky vložili všechny čtyři.
Předem děkuji za radu.

[Reklama]

[Mirdad69]

Dobrý den,

zkuste opravit kód takto:

Kód: Vybrat vše

   'vlozeni dat do listu
  LCll.Value = ComboBox1.Value 
  LCll.Offset(0, 1).Value = WorksheetFunction.Index(Sheets("Seznam_klíčů").Range("A4:D180"), ComboBox1.ListIndex, 2)
  LCll.Offset(0, 2).Value = WorksheetFunction.Index(Sheets("Seznam_klíčů").Range("A4:D180"), ComboBox1.ListIndex, 3)
  LCll.Offset(0, 3).Value = WorksheetFunction.Index(Sheets("Seznam_klíčů").Range("A4:D180"), ComboBox1.ListIndex, 4)
  LCll.Offset(0, 4).Value = TextBox1.Value
  LCll.Offset(0, 5).Value = ComboBox2.Value
  LCll.Offset(0, 6).Value = TextBox2.Value
  LCll.Offset(0, 7).Value = TextBox3.Value


Pro Sheets("Seznam_klíčů").Range("A4:D180") doporučuji použít název a velikost nadefinovat na skutečný počet obsazených buněk. Pak bych ten název můžete používat v RowSource formuláře, v makrech apod. Takhle když se vám ten rozsah zvětší, musíte to opravovat na x místech. Při použití názvu jen opravíte rozsah v definici názvu.
To samé bych udělal s tím druhým comboboxem pro uživatele.

[tomajk]

Děkuji, to je přesně ono :-)