< 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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#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 19x)
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 47x)
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 16x)
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 36x)
citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09