Iban Ayırma

[HarEndu]

merhaba,
Excelde bitişik haldeki Ibanı ayırma macrosu arıyorum, sitede bulamadım. Yardımcı olmanızı rica ederim.
TR150004600140888000340033 bu haldeki numaraları aşağı doğru F sutünunda TR15 0004 6001 4088 8000 3400 33 hale getirmek istiyorum

 

[Necdet]

Merhaba,
Aşağıdaki kod A sütununun 1. satırından itibaren okur ve F sütununa yazar.
Siz kodları kendinize göre uyarlayınız.

Sub ibanbiçim()

    Dim i As Long
  
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "F") = Mid(Cells(i, "A"), 1, 4) & " " & _
                        Mid(Cells(i, "A"), 5, 4) & " " & _
                        Mid(Cells(i, "A"), 9, 4) & " " & _
                        Mid(Cells(i, "A"), 13, 4) & " " & _
                        Mid(Cells(i, "A"), 17, 4) & " " & _
                        Mid(Cells(i, "A"), 21, 4) & " " & _
                        Mid(Cells(i, "A"), 24, 2)
    Next i
  
End Sub

yada

Sub ibanbiçim()

    Dim i As Long, _
        x As String, _
        y
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        x = Left(Cells(i, "A"), 2)
        y = Right(Cells(i, "A"), 24)
        Cells(i, "F") = x & Format(y, "00 0000 0000 0000 0000 0000 00")
    Next i
   
End Sub

 

[diyetisyen]

Çok karışık görünüyor ama deneyeceğim teşekkürler.

 

[excel41]

Alternatif olsun İban numarasının A1 hücresinde olduğunu varsayarsak

=DEĞİŞTİR(DEĞİŞTİR(DEĞİŞTİR(DEĞİŞTİR(DEĞİŞTİR(DEĞİŞTİR(A1;5;;" ");10;;" ");15;;" ");20;;" ");25;;" ");30;;" ")

veya

=PARÇAAL($A1;1;4)&" "&PARÇAAL($A1;5;4)&" "&PARÇAAL($A1;9;4)&" "&PARÇAAL($A1;13;4)&" "&PARÇAAL($A1;17;4)&" "&PARÇAAL($A1;21;4)&" "&PARÇAAL($A1;25;2)

 

[HarEndu]

Yanıt ve çözüm önerileriniz için çok teşekkür ederim. Çok faydalı oldu benim için.