otomatik düzeltme ile ilgili

[pylor]

Değerli arkadaşlar merak ettiğim ve yapmayı istediğim bir şey sormak istiyorum malum "Araçlar/Otomatik Düzeltme Seçenekleri/Otomatik Düzelt" menüsünü excel ile uğraşan hemen herkes bilir. Otomatik düzeltilmesini istediğimiz bir harfi ilgili satıra yazar olmasını istediğimiz değeride diğer ilgili satıra yazar ve ekle butonuna basarız bu işlemi değiştirilmesini istediğimiz her harf yada kelime için yeni baştan yapmak zorunda kalıyoruz benim sormak istediğim şey değişmesini istediğimiz kelimeleri her seferinde teker teker değilde toplu olarak listeye eklemek böyle bir şey yapılabilirmi acaba diye merak ettim. ekte bir dosya gönderiyorum yardımcı olacak arkadaşlara şimdiden teşekkür ederim

 

[Emir Hüseyin Çoban]

. . .

Merhaba.

A ve B sütununa yeni veri girdiğinizde F12 Tuşuna basın.
Girilen en son veriyi tanımlayacaktır.
Büyük/küçük harfe duyarlı.

ThisWorkbook un kod bölümüne:

Private Sub Workbook_Open()
    Application.OnKey "{F12}", "kod_bir"
End Sub

Boş bir modüle:

Sub kod_bir()
son1 = Range("A65536").End(3).Offset(0, 0)
son2 = Range("b65536").End(3).Offset(0, 0)
    Application.AutoCorrect.AddReplacement What:=son1, Replacement:= _
        son2
    With Application.AutoCorrect
        .TwoInitialCapitals = True
        .CorrectSentenceCap = True
        .CapitalizeNamesOfDays = True
        .CorrectCapsLock = True
        .ReplaceText = True
        .DisplayAutoCorrectOptions = True
    End With
MsgBox son1 & " / " & son2 & " olarak tanımlandı..."
End Sub

. . .

 

[pylor]

Sayın Huseyincoban ilgi ve alakanızdan dolayı çok teşekkür ederim kodlar harika çalışıyor işim görüldü iyi günler