İban Nosu biçimlendirme

[mcetinkaya65]

B3 hücresine İndisle İsim sayfasından, Iban nosu bu şekilde geliyor.TR123412341234123412341234

Bunu TR 1234 1234 1234 1234 1234 1234 şeklinde yazdırmamız müm kün mü?
Saygılarımla

 

[muygun]

Merhaba;

İsim sayfasında:
A sütununda isimler,
B sütununda ibanlar varsa;

Sayfa1 sayfasında:
A3 hücresinde aranan isim varsa;

Sayfa1 sayfası kod bölümüne;

Sub iban()
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
Set s2 = ThisWorkbook.Worksheets("İsim")
[B3] = ""
For i = 1 To s2.Range("A65536").End(xlUp).Row
If s2.Cells(i, 1) = s1.Cells(3, 1) Then
s1.Cells(3, 2) = s2.Cells(i, 2)
End If
Next i
ilk = [B3]
bir = Mid(ilk, 1, 2) & " "
iki = Mid(ilk, 3, 4) & " "
üç = Mid(ilk, 7, 4) & " "
dört = Mid(ilk, 11, 4) & " "
beş = Mid(ilk, 15, 4) & " "
altı = Mid(ilk, 19, 4) & " "
yedi = Mid(ilk, 23, 4) & " "
[B3] = bir & iki & üç & dört & beş & altı & yedi
End Sub

Kodlarını yerleştirin ve bir buton ile çalıştırın.

Link:
http://s3.dosya.tc/server2/hnzsz7/mcetinkaya65-iban.zip.html