Příspěvky uživatele
< návrat zpět
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?
Mohlo by to být takhle?
Je to jen na rychlo.
Bohužel jsem pracovně vytížený a nemám čas. 
Tak?
Poradit ti někdo může, ale bez přílohy těžko.
Já se omlouvám, ale vůbec teď nemám čas. Elnino klidně do toho mluv, to co jsem se naučil, tak je od tebe. 
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