Příspěvky uživatele

Děkuji, to je ono

Ten vzorec (ÚROKOVÁ.MÍRA) mě totiž popletl s tou jeho nápovědou při zadávání splátky...

@lubo
Tak příloha je odtud... http://wall.cz/index.php?m=topic&id=25192

Dobrý den,
mohl byste mi někdo poradit, jak zjistím základní úrokovou sazbu, ze které byly spočítány anuitní splátky, když znám výši měsíční splátky, období splácení (v měsících) a částku úvěru?
Přikládám soubor, kde umím spočítat výši splátky, vyplňuji buňky B4, B5 a B6.
Děkuji

Už jsem na pto "přišel" s přispěním nápovědy from lubo...

Abych mohl použít konkrétní pole do vzorce ZÍSKATKONTDATA musím mít u tohoto pole "Souhrn", jinak mi to nebude nic zobrazovat a zobrazí pouze #ODKAZ.
Jakmile jsem tam zadal "Souhrn Splatnost", což mi nevadí, tak mohu použít tento ve vzorci.

To lubo:
Dobře, ale stejně jsem pořád nepřišel na to, proč mi to nefunguje na pole "Splatnost" a funguje to až na pole "FaTyp"...

Mám Excel 2013 a v možnostech to mám zatržené stále.
Ale já potřebuji ten vzorec bez "FaTyp";"FV2015", protože můžu mít více období v té tabulce, tohle byl jen vzor.
V jiném souboru mám tohle
=ZÍSKATKONTDATA("k úhradě";$A$5;"SPLATNOST";"Do SPLATNOSTI")
a funguje to a přitom struktura tabulky je stejná...
Já jsem ten nový soubor tvořil de facto z toho původního, akorát jsem potřeboval do zdroje jiná data a tak jsem musel přejmenovat i pole v konti tabulce.
Tak fakt nevím.

Jj, děkuji, podle mě elegantní řešení, když použiju tabulku, jako zdroj dat pro konti

Akorát jsem koukal, že to nerozlišuje malá a velká písmena, "Do splatnosti" nebo "do splatnosti", je pro excel stejné.

A stejně by mě zajímalo, co jsem měl respektive mám špatně v tom vzorci, že nefunguje ten vzorec ZÍSKATKONDATA...

Ale už to není moc důležité, když to mohu obejít takto

Změnil jsem v konti tabulce rozsah a pole a pak jsem chtěl zeditovat vzorec ZÍSKATKONTDATA a opět mi to hází #ODKAZ...
Nevím, co dělám špatně.
Někdy mi to zadat nebo editovat jde a někdy to nemohu nastavit...
Můžete mi někdo poradit?
děkuji

Tak mi pošlete číslo do emailu.
Díky

Pěkné srovnání

Já ten kód používám a je to super.
A to vyladění se týká čeho...? Pomohlo by to i mně v rychlosti? Mám si něco v kódu opravit?
Děkuji

Než zapomenu...
Rád bych "podpořil" finančně (Donate) buď konkrétní osobu nebo web (weby)... Nic není zadarmo a rady, které se zde dostanou jsou mnohdy k nezaplacení.
Mohu poslat z účtu nebo PayPal.

Tak jsem testnul to makro od eLCHa i na menší počet řádků a funguje to. Měl jsem cca 104 000 a snížil jsem to na 100 000 a vše se načetlo a upravilo.

Přikládám vyexportovaná data v XML. Ona se ta data automaticky otevřou v *.xlsx a tak jsem to i uložil, protože v *.xml to nejde uložit neb to prý neobsahuje žádné mapování...
Já to XML používám jen proto, že je to výrazně rychlejší, ten export.

Mockrát děkuju

Upravil jsem to.

Jj, už to funguje, jsem lama

Pokud jsem to dobře pochopil, tak se to dá využít pro jakoukoliv tabulku, kterou pojmenuji DataTab nebo bych případně musel zeditovat její název v makru.
Ale nezáleží, jak bude veliká respektive, kolik bude mít sloupců.
Důležité je, aby připravená tabulka vždy využívala zdrojová data *.csv se stejným počtem sloupců, se kterým byla vytvořená tabulka.
Případně bych musel tabulku převést zpět na rozsah, dle potřeby doplnit sloupce, výpočtové a na data a pak zase zpět převést na tabulku.
A vždy musí být sloupce s daty a pak až následovat sloupce s výpočty.

Jinak mi celé načtení a přepočet trvá cca 20 sekund při cca 103 000 zdrojových řádcích.

A ještě jeden dotaz na konec. To makro lze takto připravit jen pro *.csv nebo to lze připravit i pro *.xml?

Tak jsem upravil na hlásí to chybu:
"Subscript out of range" na tomto řádku
With Worksheets("makra").ListObjects("DataTab").DataBodyRange
List, na kterém mám ta tlačítka se jmenuje "makra"

Tohle je celý kod:
Sub subImportCSV_RBR()

Dim sFileTemp As String

sFileTemp = Dir(ThisWorkbook.Path & "\DATA\*.csv")
'sFileTemp = Dir(ThisWorkbook.Path & "\*.csv") 'když je uloženo ve stejném adresáři

Dim sFile As String, dFileTime As Date

While Not sFileTemp = vbNullString

If FileDateTime(ThisWorkbook.Path & "\DATA\" & sFileTemp) > dFileTime Then

sFile = ThisWorkbook.Path & "\DATA\" & sFileTemp

'If FileDateTime(ThisWorkbook.Path & "\" & sFileTemp) > dFileTime Then 'když je uloženo ve stejném adresáři

'sFile = ThisWorkbook.Path & "\" & sFileTemp 'když je uloženo ve stejném adresáři

End If

sFileTemp = Dir

Wend

If Not sFile = vbNullString Then

Dim bScreen As Boolean

bScreen = Application.ScreenUpdating

Application.ScreenUpdating = False

Workbooks.OpenText Filename:=sFile, DataType:=xlDelimited, Semicolon:=True, Local:=True

With ActiveWorkbook

With .Worksheets(1).UsedRange

Dim vValues As Variant

vValues = .Offset(2, 0).Resize(.Rows.Count - 2, .Columns.Count).Value

'vValues = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Value 'začíná číst data ze zdroje od třetího řádku, první dva jsou záhlaví

End With '.Worksheets(1).UsedRange

.Close False

End With 'ActiveWorkbook

With Worksheets("makra").ListObjects("DataTab").DataBodyRange
'With ActiveSheet.ListObjects("DataTab").DataBodyRange 'muselo by se makro spouštět přímo z listu "DataTab"

If .Rows.Count > 1 Then

.Offset(1, 0).EntireRow.Delete

End If

.Cells(1).Resize(UBound(vValues, 1), UBound(vValues, 2)).Value = vValues

End With 'ActiveSheet.ListObjects("DataTab").DataBodyRange

Application.ScreenUpdating = bScreen

Else

MsgBox ("Neexistuje žiadny .csv súbor.")

End If

End Sub

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje