Kein problem 
Sub AddToAutoCorrectList()
'makro zapise do zoznamu automatickych oprav hodnoty zo stlpcov A a B aktivneho listu
'stlpec A obsahuje stare hodnoty
'stlpec B obsahuje hodnoty k nahradeniu tzn.:
'pokial napiseme Alabama a chceme automatickou opravou zmenit na Al, Alabama bude v stlpci A a Al v stlpci B
'hodnoty zacinaju na riadku 1, bez zahlavia stlpcov
Dim cell As Range
With ActiveSheet
Set cell = .[A1]
Do While cell <> ""
Application.AutoCorrect.AddReplacement cell, cell.Offset(0, 1)
Set cell = cell.Offset(1, 0)
Loop
Set cell = Nothing
End With
End Subcitovat
Sub AddToAutoCorrectList()'makro zapise do zoznamu automatickych oprav hodnoty zo stlpcov A a B aktivneho listu
'stlpec A obsahuje stare hodnoty
'stlpec B obsahuje hodnoty k nahradeniu tzn.:
'pokial napiseme Alabama a chceme automatickou opravou zmenit na Al, Alabama bude v stlpci A a Al v stlpci B
'hodnoty zacinaju na riadku 1, bez zahlavia stlpcov
Dim cell As Range
With ActiveSheet
Set cell = .[A1]
Do While cell <> ""
Application.AutoCorrect.AddReplacement cell, cell.Offset(0, 1)
Set cell = cell.Offset(1, 0)
Loop
Set cell = Nothing
End With
End Subcitovat
RSS nejnovější články