• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Fórum

Příspěvky uživatele

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.

A nešla by využít cesta k souboru?

CESTA = ThisWorkbook.Path

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje