< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#039135
xlnc
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
#039136
avatar
Prikladám aj vzor :)
Příloha: xlsx39136_vzor.xlsx (17kB, staženo 6x)
citovat
#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
#039139
xlnc
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
#039142
avatar
Bolo by možné poslať mi vzor? Nie som zdatný vobec vo VBA a tak :)citovat
#039144
avatar
Aaaa urobil som to :D Skúsim či by to šlo aj vo väčšom :)citovat
#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
#039158
xlnc
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 Sub
citovat
#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 16x)
citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

filtrovat data do dalšího listu

Jiří497 • 27.5. 19:00

Název listu

Stepanek100 • 27.5. 18:31

Název listu

elninoslov • 27.5. 16:09

filtrovat data do dalšího listu

Jiří497 • 27.5. 8:42

filtrovat data do dalšího listu

Kozaksonek • 26.5. 23:34

filtrovat data do dalšího listu

Jiří497 • 26.5. 23:06

Formátování vzorců

Vovka • 26.5. 21:29