Příspěvky uživatele

Děkuji.

Dobrý den,

prosím o pomoc s automatizací pro přetočení celé tabulky a výsledek, aby byl ve čtyřech sloupcích.

Aktuální stav:
Mám standartní tabulku v prvním levém sloupci jsou čísla materiálů a v dalších jsou v prvním řádku datumy a pod těmi jsou čísla, které v řádku patří k jednotlivým materiálům.
Vzor:
Materil numb. / Material text / 14.4./ 15.4 / 16.4 / 17.4/
16A.01 A 1 2 0 8

Nový stav:
udělat 4 sloupce
Materil numb. / Material text / Datum / Qty /
16A.01 A 14.4 1
16A.01 A 15.4 2
16A.01 A 16.4 0
16A.01 A 17.4 8

Vzorový příklad dávám do přílohy.

Děkuji za pomoc.

S pozdravem,
OB

elninoslov - Děkuji za pomoc. Vše funguje dle představ.

SUPER!Ano děkuji. Takto to funguje. Ještě prosím o info, jak to udělat, aby se mi dynamicky přepsala informace:
Set LOsource = ListObjects("Tabulka1")

když budu kopírovat List1 a vytvořím List1(2) tak se mi tam ukáže tabulka pojmenovaná "Tabulka14".

Když budu znovu kopírovat ten samý List1 a vytvořím další List1 (3) tak je tam opět tabulka s jiným názvem, tentokrát "Tabulka15" a opět jak tento název dostat v rámci aktivního listu do:

Set LOsource = ListObjects("Tabulka15")?

Děkuji za radu.

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.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje