Příspěvky uživatele
< návrat zpět
Bod 1 např. takto:
Private Sub cmbTypZadosti_Change()
Dim oblast As Range, bunky As Range
Dim index1 As Integer, index2 As Integer
Dim nastavit As Boolean
Set oblast = Range("B2:B37") 'oblast Typ žádosti"
nastavit = True
index1 = 0
index2 = 0
For Each bunky In oblast 'prochází všechny buňky v oblasti
If cmbTypZadosti.Value = bunky.Value Then
If nastavit Then
index1 = bunky.Row
nastavit = False
End If
index2 = bunky.Row
End If
Next
cmbUkon.RowSource = "C" & index1 & ":C" & index2
End Sub
@elninoslov: Díky za tip. Říkal jsem si, že by to chtělo nějak ošetřit.
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.
Uživatelské menu
\nMenu
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.
RSS nejnovější články