Příspěvky uživatele

vidím tedy rozdíl jen že místo jedné " se píše v EN 2 "" ?
to bude stačit ?

..jako že to půjde , jen když to napíšu v EN synt .?

A najdu někde, jak se to překládá,do EN ?

Ano, to je ono.

ale odbočím, jaká jsou tedy pravidla , když chci makrem získat nějaký výsledek funkce/vzorce.
Trápím se s tím, že vzorec si do buňky připravit jakž takž zvládnu, ale potřebuju aby makro umělo ten vzorec vložit do bunky, popř ho rovnou vyhodnotit bez vkládání do bunky.

ty vzorece se musejí nějak jinak psát ?

např v bunce mám vzorec / hledá výskyt "ahoj" jeli v oblasti 7x a v jiné bunce je "1"
'když je X krát neco v oblasti, A někde jinde je něco dopln x, jinak y
=KDYŽ(A((A21=1);(COUNTIFS(A5:A15; "ahoj") =7));"je tam 7xAhoj a 1";"NENI tam 7xAhoj a 1")

a když to píšu do VBA vypadá to takto:
If WorksheetFunction.CountIfs(Range("A5:A15"), "ahoj") = 7 And Range("a21").Value = 1 Then Range("b17").Value = "je tam 7 x ahoj a 1" Else: Range("b17").Value = "NENI tam 7x ahoj a 1"

to je jediný případ kdy se mi to povedlo.
Ale jakýkoliv jiný vzorec mi stále vyhazuje erory

např:tohle mi funguje
Cells(1, 3).Value = WorksheetFunction.CountIfs(Range("c2", "c" & RowsA + 1), "test")

Nechápu použití WorksheetFunction.xxxx
do tohoto příkazu můžu snad vložit jakoukoli funck ne ? ..ale když tam napíšu ten vzorec, nejde to.Musí se to nějak konertovat?

zkouším i :

Range("AL14").FormulaLocal = "=SUMA(AO1:AO9)" 'doplni vzorec a hned ho vypočte, funguje to
To znamená že takto zapsaný vzorec , když vložím makrem do buňky, se hned vypočte.

Tak proč se nevypočte toto ?

Range("AL14").FormulaLocal ="ZPRAVA(POLÍČKO("názevsouboru");DÉLKA(POLÍČKO("názevsouboru"))-NAJÍT("]";POLÍČKO("názevsouboru")))"

' vyhazuje chyby
???

...zkoušel jsem ještě :

( zjištuji název sešitu a pak listu)

V bunce vzorec vrátí jméno sešitu:
=POLÍČKO("názevsouboru")
V bunce vzorec vrátí jméno listu:
=ZPRAVA(POLÍČKO("názevsouboru");DÉLKA(POLÍČKO("názevsouboru"))-NAJÍT("]";POLÍČKO("názevsouboru")))

Potřebuju, aby si VBA zjistil to jmeno sešitu a listu přímo a né přečtením vzorce v buňce, jde to ?
Jak to zapsat do makra ?
Děkuji

Zdravím.

v buňce mám vzorec který vrátí jmeno listu ve kterém je vzorec.

=ZPRAVA(POLÍČKO("názevsouboru");DÉLKA(POLÍČKO("názevsouboru"))-NAJÍT("]";POLÍČKO("názevsouboru")))

Prosím , jak to zapsat do kodu vba?
chci to v něm pak nějak vyhodnotit, např porovnat jméno listu, nebo s tím jménem dál pracovat jako s proměnnou, nebo konstantou.

Pokouším se zkrátka při aktivním listu "listA" zjistit jeho název, a ten název chci natvrdo uložit do jeho buňky, třeba "A1"

Nevěděl by někdo ?
Díky

Dobrý den
Poradil by někdo?
Mám vytvořený nový email v Outlook, zformátované písmo, různé styly, velikost, barvy , odsazení, vynechání řádků apod.a chci tento formát zadat do kodu HTMLBody.
Cokoliv tam napíšu , je to jen základní styl, bez ladu a skladu. Lze to nějak "dešifrovat" z mého "formátovaného" emailu a vložit do kodu VBA?

.BodyFormat = olFormatHTML
.Display
.HTMLBody = "dobrý den ..blablabla..text je obyčejny"
.HTMLBody

Díky za radu
P

Zdravím.
k tomu: Vy potrebujete testovať, či predmet začína na "ANO_*"? Ale veď ste písal, že triedenie zabezpečuje pravidlo. Takže v tej zložke sú iba maily s "ANO_*".

Ano, spadnou tam všechnyvtakovéto emaily s "ANO ....", ale bude tam v tom předmětu ještě jméno kdo si to vlastně objednává. Já odešlu objednávku která bude mít v předmětu např:" Objednávka Karel Novák". Klient když souhlasí odešle zpět :"ANO Objednávka Karel Novák".
Popsal jsem to v prvním zadání viz "vyhodnocení emailu:" z 10.12.2021.
Hezký večer.Pavel

Dobrý den, Vy jste úžasný!
Měl jsem na mysli v tom outlooku na konci řádku je Kategorie, a ta se dá různě barvit, já třeba používám zelenou=že jsem ten email už zpracoval/vyřídil. Takže pokud by se ten email už dále zpracoval...do buněk atdatd, tak by se označil třeba tou zelenou , a jak by se makro spustilo znovu, aby věděl , že tento email už číst a dále zpracovávat nebudeme./a i v outlooku aby byla kontrola visuální, když se tam podívám/.
Jak jste psal , že výběr outlook profilu,adresářů atd už máte, to se ukáže nějaký dialog pro výběr, který se bude pamatovat i pro příště,když se bude opakovat, nebo to natvrdo doplním do makra ručně, podle svých adresářů?
Pokud tam bude nějaký takový dialog: bylo by i dobré, pokud to půjde samozřejmě , aby nabídlo ten dialog pro výběr barev kategorie Outlooku. Podle toho , jakou kategorii bych si vybral pro tento případ /třeba tu zelenou/.
To proto, když si to makro budu chtít předělat na jinou kombinaci objednávek, jiné mustry Předmětu apod.

Jak budete psát ten kod VBA, prosím k řádku vždy popsat co to dělá, já se tím učím a snažím to pochopit, abych si to pak mohl různě aplikovat na podobné případy.

Moc děkuju za Váš čas, je vidět , že Vás to musí bavit !
Pavel

Aha, tak v tom byl ten problém,díky za upřesnění, já z toho už šílel. Vzpomínáte , jak jste mi pomohl s tím odeslání emailu a doplněním příznaku Odesláno... Pokouším se to dál rozvětvit. viz forum načíst email podle předmětu a zpracovat, neměl by jste na to , resp. na mě "nervy". Díky.Pav

Dobrý den.
Prosím, mám prosbu,zda-li by mi někdo poradil s kodem makra, co by se podívalo do outlooku, do složky v doručené poště,načte všechny složky co tam jsou a dá mi vybrat kterou chci prohledávat,v dialogu(třeba složka "Objednavky"), do ní padají došlé @ podle pravidel/mají na začátku třeba "ANO_Objednávka_Jmeno_atdatd". /původní email odeslany má předmět "Objednávka_Jmeno_atdatd"

???Předpokládám , že došlé emaily mají vlastnost - co je v outlooku v doručené poště na konci - ty vlajky, taky nějak "čitelnou" a dá se měnit. To bych asi použil jako informaci, zpětně, až celá procedura skončí, že zrovna tento email byl úspěšně vyřízen. -to proto , až to makro spustím znovu, aby podruhé nenačítal již zpracované emaily.

Teď to vyhodnocení emailu:
Předmět emailu , který chci zpracovat bude mít vždy stejný mustr např."ANO_Objednávka_Jmeno_atdatd".
Pokud tedy došlý email odpovídá tomuto mustru,/kontrolovat se bude to "ANO_Objednávka_Jmeno" znamená to , že klient souhlasí s objednávkou. V tom případě se mu do listu excelu, do řádku s jeho jménem, do definovaného sloupce "I", doplní text "ObjednávkaPotvrzena", a příznak emailu v out.se změní na tu fajfku, nebo barvu/nevím jaké možnosti tam jsou/.

No je toho dost...Pomohl by mi Prosím někdo z přítomných fajnšmekrů?...pokud ano, prosím k řádkům kodu i poznámku co to dělá, Já se tím i učím, když si to krokuju.
Moc děkuju ,i za dílčí odpovědi.

Ahoj, učím se , tím že prohlížím. Už jen ten list mě zaujal, myslím graficky, a hlavně to vyhledávání, netuším jak to vůbec funguje, atd. No Excel je teda nástroj s velkým E. Nemohl bys mi prosím poslat funkční ten soubor, ať si ho zanalyzuju a zas se něco nového naučím na příkladu, který vidím.
Díky P.

Zdravím. Můžu se zeptat jak to scenujete ?
To se dá něco oskenovat a nechat to doplnit do bunky ?
Díky za info.

Dobrý den
Chsi spočítat všechny výskyty "ahoj" v daném sloupci
Když mám v bunce vzorec : =COUNTIFS(R[1]C:R[13]C;""ahoj"")
nebo jinak napsano, v jiné bunce =COUNTIFS( A5:A15 ; ""ahoj"")"
bunka vrátí výsledek v pořádku /součet výskutů "ahoj".

Potřebuju ale ten výsledek nějak přečíst makrem abych ji pak mohl třeba hodit do proměnné , nebo jinam doplnit do bunky.

Zkouším toto ale nejede to.
Poradíte prosím?
Cells(1, 1).Value = Application.Evaluate COUNTIFS(R[1]C:R[" & r & "]C;""ahoj"")
nebo
Cells(1, 1).Value = Application.Evaluate COUNTIFS( A5:A15 ; ""ahoj"")"
Debug.Print Cells(1, 1).Value 'kontrola ?
range(B10).value = ...výsledek toho vzorce... ???

...jeste ta tabulka

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje