yazı ile sayıyı ayırma - tüm sayfayı büyük harf yapma

[el-vis]

-bütün sayfayı büyük harfe çevirme
-yazı ile sayıları ayırma işlemleri yapılmak istenmektedir

teşekkür ederim...

 

[mancubus]

işlem yapılacak sayfayı seçtikten sonra çalıştırınız.

kodun yanında ayrıca yardımcı olacak bir adet KTF içerir. tr_to_en isimli KTF bir metindeki Türkçe karakterleri muadili İngilizce karaktere dönüştürür.
tr_to_en(cll.value)

StrConv ise vbUpperCase argümanı ile bu dönüşen metnin tamamını büyük harf yapar.
StrConv(tr_to_en(cll.value), vbUpperCase)

dosya da ekledim.

A sütunundaki ürün adında ürün ismi ile kodu arasında en az bir adet space (boşluk) karakteri var ise çalışır. yoksa o satırı boş geçer.

ürün adı birden fazla kelimeden oluşabilir düşüncesi ile daha sık kullandığım SPLIT fonksiyonunu burada kullanmadım.

Sub eng_buyuk_harf()
    Dim cll As Range, i As Integer
    
    For Each cll In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 2)
        cll.value = StrConv(tr_to_en(cll.value), vbUpperCase)
    Next cll

    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        rakam_pos = InStrRev(Cells(i, "A"), " ")
        If rakam_pos > 0 Then
            Cells(i, "G") = WorksheetFunction.Trim(Mid(Cells(i, "A"), rakam_pos + 1, 255))
            Cells(i, "A") = WorksheetFunction.Trim(Left(Cells(i, "A"), rakam_pos - 1))
        End If
    Next i

End Sub

Function tr_to_en(tr_text As String) As String
    tr_to_en = _
        Replace(Replace(Replace(Replace(Replace(Replace( _
        Replace(Replace(Replace(Replace(Replace(Replace( _
            tr_text, _
        "ç", "c"), "Ç", "C"), "ğ", "g"), "Ğ", "G"), "ı", "i"), "İ", "I"), _
        "ö", "o"), "Ö", "O"), "ş", "s"), "Ş", "S"), "ü", "u"), "Ü", "U")
End Function

 

[el-vis]

Çok çok teşekkür ederim tam istediğim gibi omuş.Çalışmalarınızda başarılar dilerim...

 

[mancubus]

rica ederim.

bir yazım hatam olmuş. KTF'de iki adet küçük ş harfi yer almış.

ikinci küçük ş harfini s harfi olarak mesajda düzelttim. siz de kodda düzeltin.