Příspěvky uživatele
< návrat zpět
Mě něco napadlo: makro
Přikládám pár výstupů pomoci kontingenční tabulky. Výhoda KT je jednoznačná. Velice rychle si mohu změnit co vlastně chci vidět, jak se to má třídit, filtrovat apod.
Pomocí maticového vzorce
To Stalker: to je chytré
třeba tak
Tak to bych asi řešil tak, že si soubory Serafin podle data. Nejnovější pak budu mít nahoře.
A nebo do názvu vložit nějaký odlišující text.
Nebo mít zvlášť Excel sešit, kde budu mít obsah adresáře. Tam by už ty názvy mohly být barevné.
Tak si vytvořte dvě kontingenční tabulky. Jednu KT s grafem a druhou bez grafu.
U KT s grafem si zobrazíte co potřebujete a v KT bez grafu necháte zobrazeno vše.
Předpokládám, že to možné je. Bez přílohy je těžko hádat, co vlastně chcete. Takhle bych doporučil youtube nebo:
https://office.lasakovi.com/excel/kontingencni-tabulka/kontingencni-graf-vytvoreni-excel/
např.: For i = 10 To 15
If Range("A" & i).Value = "" Then Rows(i).Hidden = True
Next
palop napsal/a:
.. že keď bude prázdna bunka napr. A11 a A12 tak po aktivovaní makra sa tieto riadky schovajú....
1. Co znamená "po aktivovaní makra"? Znamená to po spuštění makra? To asi ne.
2. Když bude prázdné A11 a A12, tak se schovají jen řádky 11 a 12 nebo všechny řádky 10 - 15?if Range("A11").Value ="" and Range("A12").Value = "" then
Rows("10:15").Hidden = True
end if
Jak říkáte.
Stejně jak se vkládá Base a Partner price, tak se udělá to samé, jen se tam vloží NIC - tzn. 0 nebo "".
Můžete zkusit sám, když jste se toho tolik naučil 
Já až večer.
Přidat desetinná čísla:If Len(Range("A1").NumberFormat) = 1 Then
Range("A1").NumberFormat = "0.0"
Else
Range("A1").NumberFormat = WorksheetFunction.Substitute(Range("A1").NumberFormat, ".", ".0")
End If
ubrat desetinné místo:If Len(Range("A1").NumberFormat) = 3 Then
Range("A1").NumberFormat = WorksheetFunction.Substitute(Range("A1").NumberFormat, ".0", "")
Else
Range("A1").NumberFormat = WorksheetFunction.Substitute(Range("A1").NumberFormat, ".0", ".")
End If
Otestujte.
Při spuštění se načtou Dodavatelé do comboBox1 a vybere se ten první a mohu hned vybírat Produkt.
Po uložení zadaných údajů (stisk tlačítka Insert) se data uloží do sloupců B:H a zároveň se Base price a Partner price vloží do BJ, BK.
Formulář se vymaže a v comboBox1 zůstane naposledy vybraný Dodavatel. Takže mohu hned vybrat další produkt
Nic ale nebrání tomu, abych si vybral jiného dodavatele.
Tak vyzkoušejte, jestli je potřeba ještě něco doladit.
djflyash napsal/a:
Mám potíž s tím, že ve chvíli, kdy se doplní cena a formulář se znovu načte, tak položka nezmizí z ComboBox.
Takže (snad) opraveno načítání produktů podle vybraného výrobce.
Uložení Basic price do BJ podle EAN.
Pozn. V prvním sloupci se vytváří EAN, který ve sloupci BC není. Vzhledem k tomu, že je EAN závislé na měsíci, tak to já asi neovlivním.
Pokud se Basic price vloží do sloupce BJ, tak má zelené pozadí - to pro lepší kontrolu.
Tak testujte...
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