Příspěvky uživatele
< návrat zpět
Dobrý den,
podle hodnoty v Listu1 v Comboboxu (ListFillRange=B:B - hodnoty dle sloupce Jméno (ale nabízí mi to i záhlaví sloupce JMÉNO :(), bych rád vyhledal hodnotu a podle té, vyjmul celý řádek do listu KOŠ na konec tabulky:
P.S. jde o to, že neumím pracovat s živými daty (tabuly v listu1 i "KOŠ" se pořád můžou zvětšovat, jak směrem dolů, tak do strany)
Předem děkuji za jakoukoliv pomoc....
VZOROVÝ SOUBOR přiložen.
Private Sub CommandButton2_Click()
'Vyhledání slova ze sloupce JMÉNO
Dim rng As Range
Range("A1:C70").Select
Set rng = Selection.Find(What:=ComboBox1.Text)
If Not rng Is Nothing Then
rng.Select
'Označení celého řádku, ve kterém je HLEDANÉ slovo ve sloupci Jméno
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlToRight)).Select
'Vyjmutí celého řádku a vložení do listu "KOŠ"
Selection.Cut
Sheets("KOŠ").Select
'Určení prvního prázdného řádku v listu "KOŠ"
For prazdny = 2 To 65000
If Worksheets("KOŠ").Cells(prazdny, 1).Value = "" Then GoTo tu
Next prazdny
tu:
'Vložení dat do listu "KOŠ" do jednotlivých sloupců
'Worksheets("KOŠ").Cells(prazdny, 1) = Range(Selection, ActiveCell(1))
'Worksheets("KOŠ").Cells(prazdny, 2) = Range(Selection, ActiveCell(2))
'Worksheets("KOŠ").Cells(prazdny, 3) = Range(Selection, ActiveCell(3))
Selection.EntireRow.Insert
' Vymaže obsah ComboBox1
ComboBox1 = vbNullString
End If
End Sub
Funguje 
. Poslední přání, aby se hodnota v ComboBoxu2 objevila (E6), až ji vyberu v ComboBoxu2 a ne automaticky po výběru v ComboBoxu1.
Jsem vedle jak ta jedle. Pořád dávám kód viz níže a nefunguje to...
Private Sub ComboBox2_Change()
Worksheets("menu").ComboBox2.ListFillRange = ComboBox1.Value
End Sub
Dekuji.ruzne na netu jsem cetl o tom ze musim davat odkaz na predchozi combobox1, ale nedel jsem ze to je pres Value. Vyzkousim a zase se posunu kousek dal .
Data do rozeviraci seznamu Combobox1 jsou v listu "vstupni data" Tabulka2 nazvana "VYROBCE".
Private Sub ComboBox2_Change()
Worksheets("menu").ComboBox2.ListFillRange = "=vstupni_data!" & Worksheets("vstupni_data").Range("FORD").Address
End Sub
Jo to funguje a jsou to statické data, které se v ComboBoxu2 nemění podle obalsti VÝROBCE v Comboboxu1.
Takže, když zadám v Combo1 VW, tak v Combo2 jsou furt Fordi a žádná auta z VW.
Jó kdyby ten kód byl něco jako:
Když se v Combo1 ukáže VW, tak se v Combo2 ukážou auta z VW - Polo, Touareq (viz. list vstupní data) a když přidám do listu "vstupní data" do Tabulky4 - VW-Polo,Touareg další nové auto např Passat, tak se mi pak v Combobox2 bude aktualizovat seznam a uvidím tam nově zapsané auto Passat, to by bylo žůžo 
!
Pomůže někdo? Díky!
Jo dík. Podívám se na to. 
ještě soubor.
Rád bych, aby to fungovalo v VBA takto:
1. v Comboboxu1 vyberu "VÝROBCE" - SKODA (z listu "vstupni_data" z Tabulka2 pojmenovaná oblast VÝROBCE)
2. v Comboboxu2 vyberu ze seznamu který spadá pod SKODA nějaké auto např. Favorit (opět data z listu "vstupni_data" z Tabulka3 pojmenovaná oblast SKODA)
v přiloženém souboru je to vidět pod č.1 OVĚŘENÍ DAT - ale je to podle normálních rozevíracích SEZNAMŮ
Dík.
Dík tak funguje:). Ještě, kdyby ten další Combobox2 pomínkově vybíral vstupní data do rozevíracího menu dle ComboBox1. Normálně to dělám přes NEPŘÍMÝ.ODKAZ. viz příloha.
Dík.
Tak nevím proč, ale nejde mi poslat .xmls soubor, ale je tam v předchozím příspěvku komprimovaný v .7s.
A ještě jednou nekoprimováno.
Zkouším přiložit příklad znovu
Doplňuji příklad. Díval jsem se různě pro netu na VBA kód, který by to uměl, ale nic moc jsem nenašel.
Omluva, posílám exel soubor. 
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články