< návrat zpět

MS Excel

Téma: Pridanie prvku ActiveX do nového riadku VBA rss

Zaslal/a PetoColor 19.1.2018 8:12

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
avatar
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
avatar
Prikladám aj vzor :)
Příloha: xlsx39136_vzor.xlsx (17kB, staženo 24x)
citovat
PetoColor(19.1.2018 8:43)#039137
avatar
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
avatar
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
avatar
Bolo by možné poslať mi vzor? Nie som zdatný vobec vo VBA a tak :)citovat
PetoColor(19.1.2018 9:53)#039144
avatar
Aaaa urobil som to :D Skúsim či by to šlo aj vo väčšom :)citovat
PetoColor(19.1.2018 10:09)#039145
avatar
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
avatar
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
elninoslov
Hmmm, no ja by som sa s tým aj pohral ... ale nechce sa mi ... no dobre teda ... tak len trošku ... 5
Příloha: zip39165_vyhladavanie-a-doplnenie-firmy.zip (41kB, staženo 35x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje