• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

A keby ste do listu Aux pridal totok ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Cells(7, 2), Target) Is Nothing Then Sheet1.Activate
End Sub

OT: S tým súhlasím. No keď môžem/viem, pomôžem, aj keď si to adresáti nezaslúžia. Všeobecne, nielen v Exceli. Som raz taký, ale nebojte, žiaden dobrý skutok nikdy nezostal bez trestu

EDIT: Jáj a ešte som k tej prílohe chcel... Doplnenie prílohy je požadované snáď v každom druhom vlákne, neustále častejšie, a začínam mať pocit, akoby pýtajúci sa čakali, kedy začnú mať riešitelia pocit viny, že dopytujúcich vlastne otravujú a obťažujú.

Kristepane to sú zadania, a bez prílohy. Tu som Vám niečo pripravil.

Úprava na požiadanie...

V 1.liste máte ten dynamický rozsah. Treba si dať pozor na to na ktorom riadku dáta začínajú, podľa toho upraviť.
Makro v 2. liste prosím berte len ako moje odreagovanie po 16 hod. pracovnej tortúre ... idem si dať konečne pivo od jedu a idem spať.

Asi to ide aj inak, ale keď si dáte vložiť počítané pole, a jeho vzorec napíšete ako obyčajné "=poleB+PoleC+PoleD+..." tak Vám súčty dá.

Super, lebo vlastná iniciatíva niečo vyskúšať sa vidí tak v 50% prípadoch.

OT: V Tykaní nieje žiaden problém. Teda ak si na to za čas spomeniem :)

Sranda je, že nemám ani páru o tom, čo sa tam počíta a čo hrajú, ja som pozrel iba na kód

Skupina pomenovaných prepínačov, a je to:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Poz As Byte
On Error Resume Next
Poz = WorksheetFunction.Match(Selection.Cells(1).Interior.ColorIndex, Array(-4142, 33, 3, 6, 47, 45), 0)
Cells(1, 1).Value = IIf(Poz = 0, Empty, Poz)
End Sub

Sub ZmenBarvu()
Selection.Interior.ColorIndex = Array(-4142, 33, 3, 6, 47, 45)(CInt(Right$(ActiveSheet.Shapes(Application.Caller).Name, 1)) - 1)
End Sub

Nemáte to nijako ošetrené na chyby. Trochu som Vám to upravil.

A to máte na mysli nejaký druh výberového zoznamu v bunke ? Či vo formulári VBA ? Či myslíte KT ? Bodla by príloha...

Upravená pôvodná procedúra, teraz s názvom Odkryť_riadky2(). Ale ako som písal, radšej použite procedúru Odkryť_riadky() a tú pôvodnú zmažte, alebo iba poštudujte ak chcete. Je jednoduchá, používa skrytý pomocný stĺpec AM, kde sú jednoduché vzorce, pre určenie skrývaných riadkov.
Ak Vám pomocný stĺpec AM, nevyhovuje, tak si zmažte teda tú krátku novú, premenujte tú starú dlhú na Odkryť_riadky() a vymažte stĺpec AM..

Prepočítavanie listu máte zapnuté ? Priložte súbor (musíte sa predtým zaregistrovať).

S tým plne súhlasím. Mepexg, nechce sa Vám, čo ? Ale mohol by ste

Keď si lúskam niektoré Vaše riešenia po riadkoch, tak im väčšinou rozumiem, čo robia tie kroky, ale nechápem prečo je to tak či onak urobené. A žiaľ v PQ ani neviem, že to tak urobiť ide, ako ste to tam nasúkal.

Človek si už dohľadá ako nejakú fnc použiť, ale prísť na to, že existuje ... a na tú logiku postupností k dosiahnutiu výsledku ... na to si budem dlho zvykať.

Tiež si myslím, že ste tu asi jediný čo to ovláda poriadne. Žiadne vlezdoprdelkovanie - fakt.

Vám takéto exportované CSV robia niekde problém pri importe niekam ? Lebo ak nie, a robí to len na tej stránke csvlint.io tak neva, nie ? Mne to Win zobrazí korektne ten CSV aj pri importe do Excelu, aj v Notepade, NotePad++, aj pri importe vo Worde. Pri importoch si nastavím oddeľovač a UTF-8.

Hlavne uveďte, kde Vám už xlnc (alebo niekto iný) odpovedal.

EDIT: Ak to preženiete cez GoogleSheets, tak to aspoň neškrieka chybu "Unexpected whitespace" :), ale kódovanie to nemení.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse