Aj bez pomocného stlpca.
No pár splátkových kalendárov som videl(a nielen od banky). Ale nevidel som dodatočné úpravy splátkového kalendára podľa dátumu skutočnej úhrady. Ak ide o úver alebo aj leasing.
Iné to je ak ten splátkový kalendár neexistuje, vtedy sa úrok počíta podľa dátumu úhrady.
@eLCHa
Podľa mňa sa úrok počíta ku dňu splatnosti splátky. Veď pri tvorbe splátkového kalendára netušia, kedy splátka príde. A ak do splatnosti nepríde, tak tam budú nejaké sankcie.
Pochybujem, že by to neskôr prepočítavali podľa dátumu skutočnej úhrady.
@elninoslov
A ako to vyskúša bez tlačiarne???
poopp napsal/a:
marjankaj napsal/a: A kde je ten súbor?
No, to by mě zajímalo, tady nic není..Příloha: 25217_xlstart.jpg
poopp napsal/a:
jestli se jedná o soubor PERSONAL.XLSB kterej by měl být v adresáři: C:\Users\K65\AppData\Roaming\Microsoft\Excel\XLStart tak ani na jednom PC v této složce bohužel nic není.
Excel 2003
IF(ISERROR(s);"";s)
Daj(skopíruj) to všetko na jeden list a vyfiltruj.
Pôvodné ti zostane.
No keby jeden tušil, ako sa ten súbor vytvára a načo slúži, tak by sa vedel adekvátnejšie vyjadriť. Ale to zrejme budú "citlivé" informácie.
Nemaže Head1? Ani v tomto súbore?
Ja sa nehádam, proste som neprečítal tú nuansu.
A prečo by sa to malo spúšťať ešte raz? To zadávateľ neuviedol.
xlDown sa dá použiť, zadávateľ uviedol, že stlpec A je vždy vyplnený textom.
Inak pozri aj jeho koment z (23.5.2015 14:04)
No takéto zadania sú fakt úžasné.
@elninoslov.
Reagoval som na tvoj prvý súbor. Keby tam mal 20000 riadkov, tak to by si sa ukódoval.
S tým Head1 máš pravdu. Len mi nie je jasné, či presne to chcel aj zadávateľ.
Ale ak je zaplnené všetko po Head4 dokonca aj Head5, tak to funguje podľa zadania.
Ale keď inak nedáš, tak takto.
Sub Posun()
For Each bunka In Range("A2", Range("A2").End(xlDown))
bunka.Offset(, 5).End(xlToLeft).Cut bunka.Offset(, 4)
Next bunka
End Sub
@elninoslov
Aj tak sa dá prohramovať.
Sub Posun()
For Each bunka In Range("A2", Range("A2").End(xlDown))
bunka.End(xlToRight).Cut bunka.Offset(, 4)
Next bunka
End Sub
A hľadáš "Internet Mall" alebo "=Internet Mall"?
Cells(4, 4).FormulaR1C1 = "=IF(R[" & prvnicislo + 5 & "]C[" & sloupecjc - 5 & "]="""","""",666)"
Síce netuším čo sleduješ, ale asi takto.
IF(A1>10;A1;IF(A1=0;0;10))
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.