• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Díky...je to boj.

Potřeboval bych prosím vyextrahovat z textu :
objednávky činí 921,49 CZK bez DPH (1 115,00 CZK s DPH).

zprava jen tu cenu 1 115,00 .
tzv zleva od závorky po mezeru před CZK.
Děkuji

Děkuji

Zdravím všechny
Na listu tab Mám vytvořenou tabulku pojmenovanou TabHardware,
chci ji filtrovat podle proměnné s názvem 'Klient'
Když mám v kritériu ...Criteria1 _:=Klient ..což je proměnná, nic se nevyfitruje. Když tam dám natvrdo něco do"jmeno" , tak to jde.

Filtrovat nelze s použitím proměnné ?
Díky za tip

Dim Klient As String

Worksheets("tab").Select
Range("A1").Select
'filtrujeme tab podle 'Klient'
ActiveSheet.ListObjects("TabHardware").Range.AutoFilter Field:=12, Criteria1 :=Klient

--jak jednoduché. Děkuji

popř. jak jednoduše zjistit z označené oblasti Adresu první/horní a poslední dolní bunky.

Prosím, mám označenou oblast:
Range(Selection.End(xlDown), Selection.End(xlToRight)).Select

Jak ji lze uložit do proměnné, abych ji mohl použít např.v :

takto mi to funguje
MaxHodnota = WorksheetFunction.Max(Range("N2:N323"))

tady chci nahradit tou výše vybranou oblastí. nefunguje
MaxHodnota = worksheetFunction.Max(Range(Selection.End(xlToRight), Selection.End(xlDown)).Select)

nebo s použitím té proměnné Oblast - nefunguje
MaxHodnota = worksheetFunction.Max(Range(Oblast).Select

Tak ten přenos textu z emailu jsem vyřešil. Mám to už v buňce. Jen prosím odpovědi a příklad jak vycucnout to za dvojtečkama...

ZÁKAZNÍK: ing. Karel Novak
PRODUKT: Krabice atd
Hezký den

..obecný dotaz k té anylýze textu.
Tady doposud řešíme stále text v komentáři buňky v excelu.

Pro jiné účely:je možné zkopírovat si text např z těla emailu do Form/textBoxu a tam spustit to vyhledávání?
Zkouším to tam nakopírovat ručně , ale vloží se mi do textBoxu jen první řádek označeného textu-on neumí více řádků?
Musím ho kopírovat ručně, nebo jde napsat makro i do outloku,které z těla vybraného emailu, na který koukám, -nyní má vždy přesně definované struktury textu, samo vyextrahuje určená data? Makra z outloku budou umět pracovat se sešitem excelu?

Např.vždy tam bude:

Vážený partnere,

rádi bychom Vás informovali, blablabla.

ZÁKAZNÍK: ing. Karel Novak
PRODUKT: Krabice
POČET: 2
ID LICENCE: xxx-xxx-xxx
EXPIRACE: 9.3.2023

Uložit pak chceme do buněk vždy to co je za dvojtečkou.

Možná postup zbytečně komplikuju.
Nejsem programátor, jakou taktiku by jste na to zvolil,aby to vba zvládl?

ano

Dobré ráno,super.
Jen jsem si všiml, že pokud dojde k nahrazení,tak se ztratí původní formátování komentáře, Něco bylo v původním např tučně, něco barevně apod.To nejde zachovat?

Šlo by to ještě vylepšit variantou, že nebudu jen nahrazovat, ale vyberu si v komentáři:
1/nahradit(to máme)
2/doplnit
3/najit a uložit
4/celý komentář zkopírovat do jedné buňky

ad2.Doplnit na začátek komentáře "můjNovýText" ,původní posunout dolu o řádek
ad3.Vyhledat řetězec a určitý počet znaků (text co následuje za ním) vypsat do proměnné.
příklad,v koment.je :
Účet( XXXP/IUD) :BXXXCDXX-3XX0-4XX8-AXX9-7XXX7XXX1BXX
takže najdu "Účet( XXXP/IUD) :"
a vycucnu "BXXXCDXX-3XX0-4XX8-AXX9-7XXX7XXX1BXX" ..32znaků

...Jsou to prostě nešťastně vložené hodnoty do komentářů.

Zdravím.
Prosím nevěděli by jste jak vyhledat v textu v komentáři bunky jeho část a nahradit ho jiným ?
Ten kod co jsem stahl z netu mi nefunguje.

Nechci ho pro všechny komentáře všech buněk , ale jen pro vybranou bunku.
Díky

Děkuju

ano :

urobiť rovnaký výpočet ako vzorec ale makrom, a uložiť do premennej?

např toto
vzorec
=MALÁ(ZLEVA(B4;HLEDAT(" ";B4))) ok

vba pokus o zápis, samo že je to blbě
Range("AP" & cisloRadku).FormulaLocal ="=MALÁ(ZLEVA(B" & cisloRadku & ";HLEDAT(" ";B" & cisloRadku & "4)))"

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse