< návrat zpět

MS Excel


Téma: emailová adresa rss

Zaslal/a 21.11.2020 15:41

Ahoj.
Snažím se vytvořit emailovou adresu tím, že vezmu jméno z buňky ve sloupci "A" a přidám k ní konstantu třeba "seznam.cz".

Pokud budu mít tedy ve sloupci "A" jméno Novák, mělo by se ve sloupci "B" zobrazit "novak@seznam.cz"

Takto to vypadá dost jednoduše, ale nevím jak to spojit a jak se zbavit diakritiky a jak z toho udělat odkaz.

Snažil jsem se takto ale nejde to:
Range("B" & radek).Value = Range("A" & radek).Value & "seznam.cz"

Pomůže někdo prosím?
Děkuji

Zaslat odpověď >

#048968
avatar
Jak odstranit diakritiku nevím. Vzorec je: Range("B1").FormulaR1C1 = Range("A1").Value & ("@seznam.cz")citovat
#048969
elninoslov
Najskôr si pozrite, či je toto to, čo potrebujete. Potom Vám na to spravím makro, ak dodáte prílohu, aby bolo jasné kde sú data, od ktorého po ktorý riadok, hromadne na X riadkov ...
A vysvetlite, čo myslíte tým odkazom. Hypertextový odkaz? Na mail, ktorý neexistuje? Alebo všetky tie mená majú vytvorený mail? Treba sa zbavovať aj medzier (to som tam dal). Má to byť UDF funkciou (tak ako teraz funguje pri zmene dát), alebo makrom zapísané jednorázovo? Málo info.
PS: odstránenie diakritiky vycucané z riešenia od eLCHa.
Příloha: zip48969_mail-bez-diakritiky.zip (14kB, staženo 3x)
citovat
#048970
avatar
Tak toto bude už na umelú inteligenciu.
Ako vieš, že tento mail "novak@seznam.cz" vôbec existuje? 2citovat
#048971
elninoslov
Ja narážam na to, odkiaľ mi vieme, či Novák Petr má mail na nejakom servery, a odkiaľ vieme, či je to novakpetr@xy.cz / petrnovak@xy.cz / novak.petr@xy.cz / ...
Mi to musíme nejako vedieť, keď chcem aby bol hypertextový odkaz funkčný.
A ak to vieme, kto má kde mail v akej podobe, tak postrádam zmysel v tomto spájaní, lebo keď to vieme, niekde takú infošku už asi máme v DB. Či ???citovat
#048972
avatar
Třeba vytváří firemní maily: "jmeno.prijmeni@firma.cz"citovat
#048973
lugr
Kluci já něco splácal. Jestli to je mimo mísu, tak to ignorujte. Jen jsem myslel, že by vám to alespoň trochu pomohlo. Vzorec jsem nevymýšlel, použil jsem ze staršího fóra.
Příloha: xlsx48973_email.xlsx (10kB, staženo 4x)
citovat
#048974
avatar
Ahoj a děkuji všem za nápady a připomínky. Ani jsem s takovým zájmem nepočítal.

Ano používám to k rozesílání emailů ve firmě pomocí rozdělovníku, abych nemusel vytvářet pro každého email solo tak jsem chtěl využít VBA.

Elninoslov - to co jsi spáchal vypadá tak jak by mělo, ale zase nevím jak to mám zakomponovat do makra.

V příloze je tedy celé makro a tu tvou úpravu bych potřeboval dosadit sem.

Sub Dopln_email()
'Pokud ve sloupci "B" není email tak se = hodnota buňky ve sloupci "A" + "1csc.cz" bez diakritiky
Dim radek As Integer
Dim posledni As Long
posledni = Sheets("otevřené akce").Cells(Rows.Count, 1).End(xlUp).Row

For radek = 2 To posledni

Range("B" & radek).Value = Elninoslová uprava 1
'=REMOVE_DIACRITICS Range("A" & radek)" & "@1csc.cz"

Next

End Sub


Děkuji ještě jednou všem.
Příloha: rar48974_rozdelovnik-akci-reklamace.rar (26kB, staženo 2x)
citovat
#048975
Stalker
Sub Dopln_email()

'Pokud ve sloupci "B" není email tak se = hodnota buňky ve sloupci "A" + "1csc.cz" bez diakritiky

Dim radek As Long
Dim posledni As Long
posledni = Sheets("otevřené akce").Cells(Rows.Count, 1).End(xlUp).Row

For radek = 2 To posledni
Range("B" & radek).Value = REMOVE_DIACRITICS(Range("A" & radek)) & "@1csc.cz"
Next radek

End Sub
citovat
#048977
avatar
Šlape perfektně a během vteřiny mám rozesláno na všechny.
Nemusím nyní pracně tvořit cca 10 emailů a přikládat různě filtrované přílohy.
Děkuji všem.

Přikládám do přílohy, třeba by mohl někdo uplatnit.

Aby Vám fungovalo je potřeba zajistit:
•V kódu jsem vyznačil místa co je potřeba upravit na váš sešit či list.
•Zapsat řešitele do prvního sloupce (příjmení) a nikdy nesmí být pod záhlavím prázdný řádek.
•Nikdy nemazat datum pod tlačítkem, zde se zobrazuje aktuální datum.
•Zmáčknout tlačítko „Uložit a odeslat“.

Princip makra:
• Na základě příjmení vytvoří emailovou adresu do sloupce „Řešitel email“.
• Do sloupce „Odesláno na řešitele dne:“ zapíše aktuální datum.
• Tabulku uloží a odešle na všechny řešitele u kterých je ve sloupci „Odesláno na řešitele dne:“ datum dne, kdy odesíláte.
• Makro vytvoří email pro každého řešitele zvlášť.
• Řešitel dostane v příloze pouze řádky spojené s jeho jménem, nikdy tak nikdo neřeší úkoly ostatních a může se věnovat jen svým případům + můžete dopsat jakýkoli text do emailu

Výhody makra:
• jasně tak říkáte co a do kdy se po dotyčném chce a jak Vás má informovat o splnění
• máte v odeslané poště a zároveň v tabulce datum, kdy jste dotyčného informoval o zadání úkolu
• celé to trvá asi vteřinu
• odeslat můžete konkrétní odkazy jak na web či nějaké úložiště
Příloha: rar48977_rozdelovnik-akci-neshody.rar (22kB, staženo 11x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Počet jedinečných hodnot

MePExG • 3.12. 11:18

Počet jedinečných hodnot

elninoslov • 3.12. 8:38

Počet jedinečných hodnot

vikizaj • 2.12. 17:35

Počet jedinečných hodnot

lubo • 2.12. 17:34

rozdělení čísla do více buněk dle násobku

lubo • 2.12. 17:31

Automatické doplňování buněk

veny • 2.12. 17:31

Počet jedinečných hodnot

veny • 2.12. 17:10