herkese selamlar, daha önceden bozuk karakterlerin değişitirilmesi ile ilgili bir sorum olmuştu. ve cevabında şu kodu almıştım.
----------------------------------------------------------
Sub Karakter_Düzelt()
Columns("J:J").Select
Selection.Replace What:=Cells(1, 1), Replacement:="İ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=Cells(2, 1), Replacement:="ı", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=Cells(3, 1), Replacement:="Ğ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=Cells(4, 1), Replacement:="ğ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=Cells(5, 1), Replacement:="ş", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
End Sub
-----------------------------------------------
işe yarıyor ama şöyle bir şey istiyorum. columns kısmını excel bana sorsun, ayrıca what:cells(1,1) i de bana sorsun. mesela
bir formül olsun. fx e tıklayınca. ilk satırda bozuk metinlerin bulunduğu hücreleri seçeyim. sonrasında 10 tane satır daha olsun. ihtiyacım kadarını kullanarak, değişitirilmesi gereken karakterlerin yerini ve yeni yazılacak karakterlerin yerini ben belirteyim. olabilir mi acaba.? umarım anlatabilmişimdir.
----------------------------------------------------------
Sub Karakter_Düzelt()
Columns("J:J").Select
Selection.Replace What:=Cells(1, 1), Replacement:="İ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=Cells(2, 1), Replacement:="ı", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=Cells(3, 1), Replacement:="Ğ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=Cells(4, 1), Replacement:="ğ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=Cells(5, 1), Replacement:="ş", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
End Sub
-----------------------------------------------
işe yarıyor ama şöyle bir şey istiyorum. columns kısmını excel bana sorsun, ayrıca what:cells(1,1) i de bana sorsun. mesela
bir formül olsun. fx e tıklayınca. ilk satırda bozuk metinlerin bulunduğu hücreleri seçeyim. sonrasında 10 tane satır daha olsun. ihtiyacım kadarını kullanarak, değişitirilmesi gereken karakterlerin yerini ve yeni yazılacak karakterlerin yerini ben belirteyim. olabilir mi acaba.? umarım anlatabilmişimdir.