Belirli kelimeleri düzeltilmesi hk.

[1903emre34@gmail.com]

Merhaba,

"A" sütünda yer alan siyah punto ile boyanmış kelimeleri karşısında yer alan "B" deki gibi manuel değiştiryiorum, tek bir butonla kod oluşturabilir miyiz, istenen sayfa2'de yapılmıştır.

 

[Asri]

Aşağıdaki şekilde deneyiniz.

Bul değiştir sayfasında yanlış yazımları A kolonunda yazıp B kolonuna da doğru yazımları yazıp Sayfa1 de ki buton ile değişimi sağlayabilirsiniz.
Sorunsuz bir sonuç almak için, kısa kelimeler değişimleri yerine bir kaç kelime ile arama sağlanmalı.
Örnek;
Indirimli yi bul İndirimli olarak değiştir demek yerine
Kapsamında Indirimli Kurumlar ı bul Kapsamında İndirimli Kurumlar olarak değiştir diye yazabilirsiniz.
Ayrıca alt alta yazım farklılıklarını da yazıp karşısına hep doğru yazımı yazmanız ileride oluşacak yanlış yazımlarıda engellemiş olur.

Kapsamında Indirimli Kurumlar ->Kapsamında İndirimli Kurumlar
Kapsamında ındirimli Kurumlar ->Kapsamında İndirimli Kurumlar
Kapsamında ındırımlı Kurumlar ->Kapsamında İndirimli Kurumlar

Dim liste(10000, 2) As String
Dim sonsatirl, sonsatirv As Long

Sub menu()
    Call yukle
    Call degistir
End Sub

Sub degistir()
   sonsatirv = Cells(Rows.Count, "A").End(3).Row
   For i = 1 To sonsatirv
     veri = Cells(i, "A").Value
     For j = 1 To sonsatirl
        veri = Replace(veri, liste(j, 1), liste(j, 2))
     Next j
     Cells(i, "A").Value = veri
   Next i
End Sub

Sub yukle()
   For i = 1 To 10000
     liste(i, 1) = ""
     liste(i, 2) = ""
   Next i

   Set sh = Sheets("BulDegistir")
   sonsatirl = sh.Cells(Rows.Count, "A").End(3).Row
   For i = 1 To sonsatirl
     liste(i, 1) = sh.Cells(i, "A").Value
     liste(i, 2) = sh.Cells(i, "B").Value
   Next i
End Sub

 

[1903emre34@gmail.com]

Teşekkürler.