OTOMATÝK DÜZELTME

[met07]

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: