Ivo K. napsal/a:
DOBRÁ ZKUSÍM TO. MŮŽU TI PSÁT NA EMAIL? ASI TO BUDE DELŠÍ, ABYCH TU ZBYTEČNĚ NEOTRAVOVAL.
No tak ako to máš ty v tom vzorci, tak to akosi nesedí s tou tabuľkou.
A môžeš ten môj vzorec
=VLOOKUP(C9;INDIRECT(VLOOKUP(D9;$U$6:$V$10;2;0));3;1)
nahradiť
=VLOOKUP(IF(C9="";I9;C9);INDIRECT(VLOOKUP(D9;$U$6:$V$10;2;0));3;1)
Ivo K. napsal/a:
To má být výsměch nebo jak? Nevím jak na to tak jsem to prostě zkusil takto.
Skús či vyhovuje.
Tak niečo takéto som ešte nevidel. To si vymyslel úplne sám?
Skontroluj si hranice v tabuľke. Ten tvoj vzorec sa "nedá" čítať.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo chyba
a = Split(Target)
a(0) = UCase(a(0))
For i = 1 To UBound(a)
a(i) = WorksheetFunction.Proper(a(i))
Next i
Target = Join(a)
chyba:
End Sub
Opičák napsal/a:
=IFERROR(VELKÁ(ZLEVA(A5;NAJÍT(" ";A5;1))) & ZPRAVA(A5;DÉLKA(A5)-NAJÍT(" ";A5;1));"")
Asi to celkom nefunguje
Tak niečo takéto
MsgBox ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
MsgBox ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
Cells(ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1, ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1).Select
No ja mám v excel 2010 poslednú bunku AFD1048576
Ale ak si myslel poslednú použitú bunku, tak napríklad takto
Selection.SpecialCells(xlCellTypeLastCell).Select
Alebo
MsgBox Selection.SpecialCells(xlCellTypeLastCell).Address
Alebo makrom.
Vyznač bunky ktoré potrebuješ "naformátovať" a spusti makro.
Predtým vymaž prípadné medzery. Funkcia TRIM.
..
=INDEX(A1:D8;MATCH(15;A1:A8;0);MATCH(0,01;A1:D1;0))
Tak tam pridaj "="
=(D5-C5)-(F5-E5)*((F5-E5)>=1/48)-(H5-G5)
=(D5-C5)-(F5-E5)*((F5-E5)>1/48)-(H5-G5)
=YEAR(TODAY())-A1
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.