Příspěvky uživatele
< návrat zpět
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
\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