hücredeki karakter sayısını 14 e tamamlamak

[aktif42]

Değerli Üstadlar,
Bir konuda yardımınıza ihtiyacım var.
Diyelimki C sütunda tr551276763 gibi harf ve rakamlardan oluşan veriler var.
Yapmak istediğim şu; C sütunundaki tüm dolu hücreler için geçerli olacak şekilde her hücredeki karakter sayısını buldurup (örneğimizde 11 karakter) ilk 4 karakterle (tr55 ile) diğerleri arasına sıfır koydurarak 14 karaktere (tr550001276763) tamamlamak. İkinci olarak da tr yi büyük harfe (TR550001276763) ye çevirmek. Yardımlarınız için şimdiden teşekkür ederim.

 

[askm]

Sub askm()
Application.ScreenUpdating = False
For i = 1 To Range("c" & Rows.Count).End(3).Row
    If Len(Cells(i, 3)) < 14 Then
        For t = 14 To Len(Cells(i, 3)) + 1 Step -1
            Cells(i, 3) = Left(Cells(i, 3), 4) & 0 & Mid(Cells(i, 3), 5, Len(Cells(i, 3)))
        Next t
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşe tamam...", vbInformation, "ASKM"
End Sub

 

[halit3]

Alternatif kod

Sub deneme()

ara = "000000000000000000000000000000000000000000"
For i = 1 To Cells(Rows.Count, 3).End(3).Row

deg = Cells(i, 3)
ilk = Left(deg, 4)
son = Right(ara & Mid(deg, 5, Len(deg)), 10)
Cells(i, 3) = UCase(ilk) & son
Next i

MsgBox "İşlem Tamam", vbInformation
End Sub

 

[aktif42]

Sayın askm, tr nin büyük harfe çevrilmesi hariç tamam. Onu da Ucase(Left(Cells(i, 3), 4)) ekleyerek çözdüm teşekkür ederim,
Sayın halit3, her şeyiyle tamam. Teşekkür ederim. Sizler iyi ki varsınız ve harikasınız.