MS Excel

Zdravím Vás, potreboval by som vždy v stĺpci D v tabuľke pridať ComboBox s tým, že po kliknutí na tlačidlo nový záznam sa pridá tento prvok. Následne sa z tohto prvku daná hodnota prekopíruje do nového Stĺpca D (toto viem urobiť) ale netuším ako spraviť to tlačidlo aby sa vždy na nový riadok pridal tento combobox nový nezávislí od toho predtým.

Princíp ako to myslím:
1. Nájde sa posledný riadok, ktorý je prázdny (Prepdokladám, že asi takto Cells(Rows.Count, 1).End(xlUp).Row + 1)
2. Na tento riadok sa pridá tento Combobox so zoznamom z inejého listu v danom zošite
3. Následne hodnota vybraná v tomto comboboxe bude preklopená do stĺpca E aby bolo možné jednpoduchšie filtrovať dáta.

Ďakujem veľmi pekne

Zaslat odpověď >

xlnc(19.1.2018 8:37)#039135

Nejdřív si potvrďte, že funkci ComboBoxu nedokáže zastoupit Data / Ověření. Tuna Comboboxů na listu je zkrátka čuňárna, špatně uřídíte umístění a hlavně tisk.

Jinak také můžete mít jediný ComboBox a dokonce pro více sloupců na listu s proměnným obsahem.

https://proexcel.cz/univerzalni-combobox/citovat

PetoColor(19.1.2018 8:41)#039136

Prikladám aj vzor :)

Příloha: xlsx

39136_vzor.xlsx (17kB, staženo 24x)

citovat

PetoColor(19.1.2018 8:43)#039137

xlnc, To by bolo zn. IDEAL ak by som mal jeden a ten sa vyplnál vždy do inej bunky :) Priložil som vzor ako to myslím aj. Ono v tom comboboxu bude 2000 firiem totizto preto som potreboval nieco co dokaze písal a zaroven dopisovat danu firmu. Ak to ide aj inak bolo by super ale Data overenie tam pisat nejde a hladat v 2000 zaznamoch je ...citovat

xlnc(19.1.2018 9:02)#039139

Ono by nejspíš úplně stačilo mít někde nahoře jeden jediný ComboBox, pod něj hodit příčky, nastavit

Match Entry: fmMatchEntryComplete
MatchRequired: True
Style: fmStyleDropDownList

a zkrátka používat:

Private Sub ComboBox1_Change()
ActiveCell = ComboBox1.Value
End Sub

Dobře, pokud se nechcete seknout, pak s testem, jestli je aktivní buňka ve správném sloupci / zadávací oblasti.citovat

PetoColor(19.1.2018 9:49)#039142

Bolo by možné poslať mi vzor? Nie som zdatný vobec vo VBA a tak :)citovat

PetoColor(19.1.2018 9:53)#039144

Aaaa urobil som to :D Skúsim či by to šlo aj vo väčšom :)citovat

PetoColor(19.1.2018 10:09)#039145

A šlo by nejako urobiť, že keď sa mi vyplní bunka tou firmou tak mi skočí v comboboxe defaultny text typu "Vyber firmu" ?citovat

xlnc(19.1.2018 19:59)#039158

Mno, je to na pytel...
Uvědomte si, že změnou obsahu ComboBoxu znovu vyvoláte událost Change, což nechcete. Normálně bychom vypnuli události přes EnableEvents, jenže to se nevztahuje na ActiveX prvky. Takže musíme použít vlastní Boolean proměnnou.

Trochu splácanina:

Private Sub ComboBox1_Change()

Static blnReset As Boolean

With ComboBox1

If .Text <> "Vyberte firmu..." Then

If blnReset = False Then
ActiveCell = .Value
End If

blnReset = True

.Value = .List(0)

blnReset = False

End If

End With

End Subcitovat

elninoslov(20.1.2018 11:18)#039165