excelde harf dönüşümü ve büyük harf yapmak. Yardım :)

[noodle]

Merhaba arkadaşlar,

Excelde küçük büyük harflerle karışık yazılmış türkçe bir karakterli bir cümleyi hangi formül ile tümünü büyük harf ve sadece ingilizce karakter yapabiliriz acaba?

CTRL+H ile bu işlemin uzun zaman alacağı kanatindeyim tecrübeli arkadaşlar yardımcı olursa çok sevinirim.

 

[Ömer]

Merhaba,

Hücre üzerindemi değişim olacak yoksa farklı bir hücredemi.

Yani değer A1 de olsun, değişimi B1 de yada farklı bir hücredemi görmek istiyorsunuz yoksa direk A1 hücresi mi değişsin.

.

 

[Necdet]

Merhaba,

Verilerin A sütununda olduğu varsayımı ile ve yine A sütununda büyük harfe dönüştürür.

Farklı yöntemler olabilir, ilk aklıma geleni uyguladım.

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Degistir()
    Dim i   As Long
    Dim dz1
    Dim dz2
    dz1 = Array("ç", "ğ", "ı", "İ", "i", "ö", "ş", "ü")
    dz2 = Array("c", "g", "I", "I", "I", "o", "s", "u")
    
    Application.ScreenUpdating = False
    
    For i = 0 To UBound(dz1)
        Columns("A:A").Replace What:=dz1(i), Replacement:=dz2(i), LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
            ReplaceFormat:=False
    Next i
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "A") = UCase(Cells(i, "A"))
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "Büyük Harfe Çevrildi....", vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub