OTOMATİK DÜZELTME

[met07]

OTOMATÝK DÜZELTME

Herkese kolay gelsin.
Excelde otomatik düzeltme seçeneğini kullanıyorum. Uzun bir liste giriyorum. bilgisayarda bir problem oldu ofisi tekrar yüklemek zorumda kaldık. Bu arada bizim liste gitti. (Bu birkaç kez tekrar etti.) Kalıcı olarak nasıl yapabilirim. :yardim:

 

[rcekinir]

Uzun Listenizi girdikten sonra programlar/ Microsoft office araçları/Ayarlarımı kaydet sihirbazı ile office ayarlarını kaydedin.Daha sonra herhangibir nedenle örneğin office yi yeniden yüklediğinizde yine bu sihirbazı çalıştırarak eski ayarlarınıza dönersiniz.Sihirbaz sizi yönlendirecektir.
Kolay Gelsin

 

[Hüseyin]

Konu ile ilgili MREXCEL forumunda daha önceden bir kod görmüştüm.
Eğer makro da olur derseniz bunu bulup buraya ekleyebilim.

 

[met07]

TEÞEKKÜRLER.
MAKRO KODUDA OLABİLİR.
İYİ ÇALIÞMALAR DİLERİM...

 

[Hüseyin]

Merhaba, bulduğum kod şöyle;

Sub GetAutoCorrectList() 
Dim i As Long 
Dim MyList As Variant 

Application.ScreenUpdating = False 
For i = 1 To UBound(Application.AutoCorrect.ReplacementList) 
MyList = Application.AutoCorrect.ReplacementList(i) 
Sheets("Sheet1").Cells(i, 1) = MyList(1) 
Sheets("Sheet1").Cells(i, 2) = MyList(2) 
Next i 
Application.ScreenUpdating = True 
End Sub 

Sub CreateShortcuts() 
On Error Resume Next 
ItemCount = Application.CountA(Range("Sheet1!A:A")) 
For Row = 1 To ItemCount 
ShortText = (Cells(Row, 1) 
LongText = Cells(Row, 2) 
Application.AutoCorrect. _ 
AddReplacement ShortText, LongText 
Next Row 
On Error GoTo 0 
End Sub

Birinci kod auto correct listesini excele aktarıyor. Bu dosyayı saklarsınız. İstediğiniz zaman ve istediğiniz makinada bu dosyadaki ikinci kodu çalıştırıp listeyi güncelleyebiliyorsunuz. (Muşsunuz diyeyim ben denemedim.)

Mesajın tamamını görmek isteyenler için adresi :
http://www.mrexcel.com/board2/viewtopic.php?p=188152#188152

 

[met07]

SELAM; Kodları denedim. Otomatik düzeltme listesini sayfaya kapyaladı. Ama sayfadaki listeyi atarken hata verdi.

Sub CreateShortcuts()
On Error Resume Next
ItemCount = Application.CountA(Range("Sayfa1!A:A"))
For Row = 1 To ItemCount
ShortText = (Cells(Row, 1)
LongText = Cells(Row, 2)
Application.AutoCorrect. _
AddReplacement ShortText, LongText
Next Row
On Error GoTo 0
End Sub

----------------------------------------
Compile error:
Syntax error
------------------------------------------
hatasını veriyor (Excell 2002 türkçe kullanıyorum)
bakmamız mümkünmü
iyi çalışmalar. :yardim: