Příspěvky uživatele
< návrat zpět
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
...mám na mysli doplnit ten vzorec do bunky v list1
a když to budu chtít doplnit pomocí VBA?
to musí být asi anglicky, a uvozovky nahrazené ' ?
např:
Sheets("list1").Range("AC" & j).Value = "=DOSADIT(ZLEVA(B3;HLEDAT(' ';B3)+2);' ';'')&'_Test_Q"
=DOSADIT(left(A1;find(" ";A1)+2);" ";"")&" Test_Q"
?
děkuji, furt se ztrácím v těch kombinacích nekolika fukcní
Hezký večer
Zdravím
mám v buňce: Příjmení Jméno
Potřebuji vycucnout Celé příjmení a první dva písmena z jména.
Př:
Novák Petr - NovákPe
Mládek Ivan - MládekIv
a pak ještě jeden vzorec :
Přidat k výsledku NovákPe , text : Test_Q
Děkuji
Děkuji
Zdravím, při otvírání sešitu jsem si zadal do :
Private Sub Workbook_Open()
Sheets("List1").Cells(1, 4).Value = Date
Ohjevuje se mi :
Application defined or object defined error
..to nejde zadat hned při otevření? ..nebo mi něco chybí v excelu?
Díky
Dobrý den,
mohl bych poprosit (týká se komentáře:Stalker(1.6.2022 19:31)
ještě doplnit kod:
...potřebuju při zapsání nového datumu ještě uložit nějak do "moje makro" hodnotu "starého datumu" - list1,sl.C, do proměnné,třeba "OldDat", kterou si pak budu předávat dál.
Věděl by jste jak prosím?
Děkuju
Zdravím,
mohl bych ještě k: přispěvku(8.8.2022 19:11)
poprosit doplnit :
TOTO to už umí: po ručním zadání datumu do sl.E, se spustí makro , které toto datum,doplní do listu2, k příslušnému jmenu do sl.F nebo G podle toho co je v List1/slA
DOPLNIT:
.. než se toto provede doplnit k příslušnému vybranému řádku do LIST1/G "ANO"
Děkuju
Děkuji , hezký víkend
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články