Příspěvky uživatele
< návrat zpět
Tý jo, takhle naštvat elnina, to jsem ještě neviděl. 
Je to stále stejná písnička.
DÁVEJTE TY PŘÍLOHY!!!
Mě ale funkce SUMIFS v příloze funguje. Dívala jste se na to? Problém jste měla se sloučenými buňkami. Proto jsem to celé předělal!
Tak?
Makro jsem upravil, ale nezkoušel. Taky jsem udělal pár úprav v tabulce, snad to navadí.
Kdyby si sem hodila vzor, tak ti to nastavíme bačkůrko. 
Trochu jsem si hrál.
A nešlo by to jen takhle jednoduše?
Private Sub ComboBox1_Change()
Dim POCET As String
Dim RADEK As String
Dim wsDATA As Worksheet
Set wsDATA = Worksheets("data")
On Error Resume Next
POCET = Cells(Rows.Count, "A").End(xlUp).Row
RADEK = WorksheetFunction.Match(ComboBox1.Value, wsDATA.Range("A4:A" & POCET), 0) + 3
If ComboBox1.Value = "" Then wsDATA.Range("A1").Resize(POCET, 6).Interior.ColorIndex = xlNone: Exit Sub
wsDATA.Range("A1").Resize(POCET, 6).Interior.ColorIndex = xlNone
wsDATA.Range("A" & RADEK).Resize(1, 6).Interior.ColorIndex = 6
End Sub
To je ale široký pojem. Dá se ledasco, ale takhle naslepo, těžko říct.
Něco jsem našel v PC, to jsem dělal před lety, třeba to pomůže.
Ty píšeš o dovolených, ale poslala jsi nám stravenky. 
Pokud chceš poslat tabulku s makrem, musíš ji dát do ZIP nebo RAR.
Tak to jedině, že by sis překopíroval tabulku na jiný list jako zdrojová data.
Ach jo, tak si to zase vyplodím sám no. 
Jde to, chceš to do toho obrázku dokreslit?
Třeba takhle?
Třeba takhle?
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