Příspěvky uživatele

Můžu ještě dotaz?
Set rngID = ws.Range("H5").Resize(MaxRadek - 4)
to vytvoříme oblast od ř.5 po maxřádek ? proč tam je -4?

poslední řádek sl.H je 8.
takže to vytvoří oblast H5 plus 4 dolů? tzn H5-H8 ?

Prosím , mohl by jste vysvětlit u řádků povely a vůbec princip toho makra:
Není mi jasné ani : Dim rng As Range, rngID As Range, rngDZ As Range, rngFind As Range
Dim ID As String
Zkouším to "napasovat" na jiný sešit, stejná struktura a nic mi nenalézá.

Děkuji

..tady asi ta podmínka, že již "Zapsano" přeskočíme asi není, že?

If IsEmpty(rng.Offset(, 3).Value) = False Or IsEmpty(rng.Offset(, 14).Value) = True Then

...ještě detail : Kam a jak prosím nejlépe zařadit tu podmínku, že zpracováváme jen položky ze zdroje co mají sl."O" prázdný, tudíž dosud nebyly zpracovány?
Pokud je sl."O" prázdný, budeme tento záznam zpracovávat.
Pokud už je tam "Zapsáno"/"Nenalezeno", přeskočíme ho.

Ježiš, vy jste úžasný,já už to skoro "pohřbil".
Bude to velká drzost poprosit o komentář příkazů pro detailní pochopení? .Čerpám z Vašich rad a zkouším aplikovat a modifikovat.
Hezký den
P

Takže sa musí z "Datum zaúčtování" zistiť rok a mesiac, a v riadku daného roku a mesiaca pripočítať k už doteraz naspočívavanej sume? ...NE, nebude se nic připočítávat, jen se to přidá na další řádek, že to bude jako v dalším měsíci Nevadí, k tomu téměř nedojde, ty dvě platby jsou vyjímka , kterou budeme ignorovat.

Název listu jsem opravil, bude NE 2 atd

V ňom pre záznam z 3.11.2022 platí, že prepíšeme bunku C19 na 3.11.2022 a bunku D19 na 1375,00. ANO takto

To pole "platba č." neznamená mesiac? ..NE tak docela,Skoro všechny případy mají zkrátka jen jednu platbu v měsíci, záleží kdy to pošlou,může nastat situace že očekávám platbu 30.11. a ona přijde až 1.12.. a pak další 30.12. , tak proto bych to ignoroval, nějaké hlídání měsíců, prostě jen přidat další platbu na další řádek sl.C a D. Že to nebude korespondovat se sl.A a B ignorujeme, to si případně upravíme ručně při inventuře. Takže vkládat se bude datum a částka vždy na další prázdný řádek za posledním minulým vyplněným.

.. V tom prípade je strašne nevhodné v prílohe použiť pre každý rok čísla 1-12. ...Zdroj.soubor může mít jakýkoliv název Třeba BANKA, je to jedno.Průběžně do něj budu přidávat další řádky které přijdou z banky.Proto ta podmínka na začátku, že zpracováváme jen položky co mají sl."O" prázdný, tudíž dosud nezpracovaný.

Ještě jsem zapomněl detail.
Do zdrojového 2022_11.xls se mohou během měsíce přidávat položky, proto jako první musíme při jeho čtení zohlednit, zdali již položka nebyla přenesena do NEB/proto ten zápis "Zapsáno"/"Nenalezeno".
Pokud je sl."O" prázdný, budeme tento záznam zpracovávat.

Dobrý večer.
Měl bych prosbu.
Potřebuju přečíst data v souboru - 2022_11.xls, od řádku 5 po poslední řádek , který obsahuje datum,tam výpis končí.
Pak podle jeho sl."D" - var.symb. vyhledat v seznamu případů v listu "NEB" odpovídající V.S. - ve sl."H" a na tomto řádku ve sl."A" zjistíme odkaz na jméno listu(např NE 1,NE 2) do kterého budeme zapisovat údaje(odpovídajícího var.symb) "datum platby" a "částku".

Pokud se v 2022_11.xls vyskytne v.s. který se vyskytuje v NEB a dat.a částka se úspěšně doplnila, Dopsat do 2022_11.xls sl."O" - "Zapsáno".
Pokud jsou tam platby jiné, jejichž v.s. nebylo nalezeno v NEB, dopsat "Nenalezeno".

Děkuji za jakékoliv rešení.

Zdravím, zkouším rozchodit kod pro smazání souboru , přesun do koše, ale nejde mi to.
Nevíte jak to napsat :? není třeba nějaké tools referenc zapnout?
https://learn.microsoft.com/cs-cz/dotnet/visual-basic/developing-apps/programming/drives-directories-files/how-to-delete-a-file
díky

pardon:

Range("D1").FormulaLocal = "=DOSADIT(ZLEVA(A & j;HLEDAT("" "";A & j)+2);"" "";"""")&"" Test_Q"" "

jako např:
j=5
Range("D1").FormulaLocal = "=DOSADIT(ZLEVA(A & 2;HLEDAT("" "";A & 2)+2);"" "";"""")&"" Test_Q"" "

ale to nefuguje, neumím to napsat

a lze vložit ten vzorec do bunky, s tím, že zaměním adresu bunky A1 /statická/ , za adresu která obsahuje proměnnou j, což je rádek, tzn
j= třeba 5 tak to bude A5

potřebuju totiž vzorec vkládat do bunky, když data kopíruju odjinud a tam všude používám proměnnou j = řádek

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje