=LEFT(A1;FIND(",";SUBSTITUTE(A1;".";",";3)))&RIGHT(A1;(LEN(A1)-FIND(",";SUBSTITUTE(A1;".";",";3))))+1
prípadne takto
=LEFT(A1;FIND(",";SUBSTITUTE(A1;".";",";3)))&MOD(RIGHT(A1;(LEN(A1)-FIND(",";SUBSTITUTE(A1;".";",";3))))+1;256)
@elninoslov.
Asi si zabudol napísať, že ide o maticový vzorec.
elninoslov napsal/a:
-Keď bude označených viac buniek, reaguje len na prvú.
-Vkladá vzorec na aktuálnu bunku
-Keďže je to vzorec, tak reaguje aj na zmenu bunky, či už výpočtom alebo vložením.
@eLCHa
A ak by mal zobrazené obidva listy(inak ten význam je dosť pochybný), tak sa udalosť Workbook_SheetSelectionChange nevyvolá.
Teda zbytočnosť.
Pavlus napsal/a:
Šlo by to např. tak, že na prvním listu se vytvoří událost SelectionChange, která vždy při změně výběru přepíše na druhém listu požadovanou buňku.
P.
Skús rozšírený filter
Range("A1:A17").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=True
Iska napsal/a:
Třikrát huráááá!!!!
Funguje perfektně, mám 13tis řádků, takže mám spoustu ušetřeného času. Mockrát děkuji!!!
A na karte Udaje > medzisúčty ti to nevyhovuje?
To robí presne to čo požaduješ. Teda z tej vzorky čo si uviedla.
Napríklad takto
Hovoríš o tabuľke alebo o grafe?
A načo ti to bude?
Chceš počas pozastavenia niečo upravovať na hárku?
VVYHLEDAT
Ktorý JEDINÝ riadok má zostať?
Sub vymaz()
Selection.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub
Ak niektoré konštanty nechceš vymazať, napríklad "1", tak tam zapíš "=1".
misocko napsal/a:
marjankaj: kurna ze ma to nenapadlo. kazdy den to pouzivam pri importe z textakov ....
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.