Příspěvky uživatele

Zdravím
chtěl bych poděkovat za makro od "elninoslov". Makro je výborné, plně funkční :-). Díky.
Potřeboval jsem označit buňky, které obsahují diakritiku (háčky, čárky, dvojtečky atd.) a toto makro to zvládá v pohodě. Ještě jednou díky, hodně dobrá práce..

Dobrý den
děkuji za zaslaný vzorec ale pro moji potřebu nestačí.
Na jiných stránkách jsem našel makro, které odstraňuje diakritiku, makro jsem si upravil pro odstraňování diakritiky ve sloupcích H a X viz níže:

Sub diakritika_sloupec_H_X()

Dim Oblast As Range
Dim PoleS()
Dim PoleBez()

PoleS = Array("Ä", "Á", "Č", "Ď", "É", "Ě", "Í", "Ĺ", _
"Ň", "Ö", "Ó", "Ř", "Š", "Ť", "Ü", "Ú", "Ů", "Ý", "Ž", _
"ä", "á", "č", "ď", "é", "ě", "í", "ĺ", "ň", "ö", "ó", _
"ř", "š", "ť", "ü", "ú", "ů", "ý", "ž")
PoleBez = Array("A", "A", "C", "D", "E", "E", "I", "L", _
"N", "O", "O", "R", "S", "T", "U", "U", "U", "Y", "Z", _
"a", "a", "c", "d", "e", "e", "i", "l", "n", "o", "o", _
"r", "s", "t", "u", "u", "u", "y", "z")

Set Oblast = ActiveSheet.Range("H12:H15000", "X12:X15000")
For i = 0 To 37
Oblast.Replace What:=PoleS(i), Replacement:=PoleBez(i), _
LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True
Next i

End Sub

Potřebuji toto makro ale upravit tak, aby se diakritika neodstraňovala, ale aby se buňky, které obsahují diakritiku, označily např. žlutou barvou.

Každý den dostávám najednou 30-40 e-mailů s podklady pro reporty. Ze všech těchto emailu si potřebuji uložit jejich přílohy. V každém z těchto emailu je jedna příloha, kterou potřebuji uložit do složky v PC, se stejným názvem, jak se jmenuje v příloze. Prosím, poradí někdo s makrem/skriptem do Outlooku?

Předem díky

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje