Jak odstranit diakritiku nevím. Vzorec je: Range("B1").FormulaR1C1 = Range("A1").Value & ("@seznam.cz")citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: emailová adresa
MS Excel
Téma: emailová adresa 
Zaslal/a Raders486 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
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.
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: 
48969_mail-bez-diakritiky.zip (14kB, staženo 22x)
citovat48969_mail-bez-diakritiky.zip (14kB, staženo 22x)Tak toto bude už na umelú inteligenciu.
Ako vieš, že tento mail "novak@seznam.cz" vôbec existuje?
citovat
Ako vieš, že tento mail "novak@seznam.cz" vôbec existuje?
citovatJa 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
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
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: 
48973_email.xlsx (10kB, staženo 53x)
citovat48973_email.xlsx (10kB, staženo 53x)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
'=REMOVE_DIACRITICS Range("A" & radek)" & "@1csc.cz"
Next
End Sub
Děkuji ještě jednou všem.
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
'=REMOVE_DIACRITICS Range("A" & radek)" & "@1csc.cz"
Next
End Sub
Děkuji ještě jednou všem.
Příloha: 48974_rozdelovnik-akci-reklamace.rar (26kB, staženo 18x)
citovat48974_rozdelovnik-akci-reklamace.rar (26kB, staženo 18x)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
'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
Š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ě
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: 48977_rozdelovnik-akci-neshody.rar (22kB, staženo 40x)
citovat48977_rozdelovnik-akci-neshody.rar (22kB, staženo 40x)Uživatelské menu
Nejste přihlášen(a)
\n
\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