Zllatkaa Ano tak som to myslela. Mam 2003.
Otvor si môj zošit, stlač ALT+F11.
Potom klikni na
Modules a nastav sa na
Module1
Stlač CTRL+E a daj si to uložiť na disk
Potom si otvor svoj zošit a stlač ALT+F11
Stlač CTRL+M a importuj súbor, čo si si uložila.
Potom sa nastav v mojom súbore zase ALT+F11 na hárok1 (klikni naň) zobrazí sa ti kod VBA. Skopíruj si ho do schránky CTRL+C
Otvor si yase svoj zošit ALT+F11, nastav sa na hárok v ktorom budeš pracovať s touto funkciou a vlož tam ten kód.
Potom už tá funkcia vyber bude fungovať( je to funkcia definovaná užívateľom) je tam trochu problém s rozoznávaním veľkých a malých písmen.
Treba v kóde vymeniť ten prvý riadok za druhý.
' If (bunka.Offset(i, 0).Value = a(j)) Then GoTo von
If (UCase(bunka.Offset(i, 0).Value) = UCase(a(j))) Then GoTo von
Ak sa ti to zdá veľmi zložité, tak si jednoducho skopíruj celý tvoj hárok do toho môjho zošita do hárku1.