otomatik düzelt

[teonet]

Slm Arkadaşlar
Otomatik düzeltmeye eklediğim bilgileri nasıl bir başka bilgisayara aktarabilirim.

Şimdiden tşk

 

[Levent Menteşoğlu]

Aşağıdaki kod ile mevcut pcnizdeki excele ait otomatik düzetme listesini bir excel dosyasına aktarın.

Sub listeolustur()
liste = Application.AutoCorrect.ReplacementList
For a = 1 To UBound(liste)
Cells(a, "a") = liste(a, 1)
Cells(a, "b") = liste(a, 2)
Next
End Sub

Daha sonra düzeltme listesini aktyardığınız dosyayı diğer pcde açarak aşağıdaki kodu çalıştırarak listeyi yükleyin.

Sub yukle()
For a = 1 To [a65536].End(3).Row
Application.AutoCorrect.AddReplacement Cells(a, "a"), Cells(a, "b")
Next
End Sub

 

[teonet]

Aşağıdaki kod ile mevcut pcnizdeki excele ait otomatik düzetme listesini bir excel dosyasına aktarın.

Sub listeolustur()
liste = Application.AutoCorrect.ReplacementList
For a = 1 To UBound(liste)
Cells(a, "a") = liste(a, 1)
Cells(a, "b") = liste(a, 2)
Next
End Sub

Daha sonra düzeltme listesini aktyardığınız dosyayı diğer pcde açarak aşağıdaki kodu çalıştırarak listeyi yükleyin.

Sub yukle()
For a = 1 To [a65536].End(3).Row
Application.AutoCorrect.AddReplacement Cells(a, "a"), Cells(a, "b")
Next
End Sub

Cevabınız için çok teşekkür ediyorum. fakat ben biraz deneyimsizin dediğiniz işlemleri nasıl yapabilirim. Yardım edebilirseniz çok sevinirim....

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[teonet]

çok tşk
Yarın ilk iş bunu denemek olacaktır. Şayet istediğim gibi ise o kadar çok makbule geçecekki anlatamam.

İyi çalışmalar

 

[Levent Menteşoğlu]

Rica ederim, yalnız eklediğim dosyada butona yanlış kodu bağlamışım düzelttim, yukarıdaki dosyayı tekrar indirin eskisinide silin.

 

[teonet]

çok tşk

bugün iş yerinde denedim ve işe yarıyor. ellerine sağlık.....

 

[teonet]

Merhaba arkadaşlar; otomatik düzelt bilgilerini güncellemem gerekiyor. Yani önceden kullandığım bilgileri değiştirmem gerekiyor. Kısacası mevcut otomatik düzelti komple nasıl silebilirim..
Şimdiden teşekkürler

 

[teonet]

Sub listeolustur()
liste = Application.AutoCorrect.ReplacementList
For a = 1 To UBound(liste)
Cells(a, "a") = liste(a, 1)
Cells(a, "b") = liste(a, 2)
Next
End Sub
Sub yukle()
For a = 1 To [a65536].End(3).Row
Application.AutoCorrect.AddReplacement Cells(a, "a"), Cells(a, "b")
Next
End Sub


Yukarıdaki olayda Application.AutoCorrect.AddReplacement Cells(a, "a"), Cells(a, "b") kısmı hata veriyor. Bu hatayı nasıl düzeltebilirim.

Şimdiden teşekkürler