iban arası otomatik boşluk oluşturma

[micyot]

merhaba arkadaşlar 26 haneli aşağıda örnekteki iban numarasını aralarında 4 boşluk en son 2 boşluk şekilde örnekteki gibi excelde isteğe bağlı hücre olarak birtürlü ayarlayamadım. bu konuda desteğinizi rica ederim.

iban:

TR540020300002145346000001 olması istediğim format: TR54 0020 3000 0214 5346 0000 01

 

[Muzaffer Ali]

Merhaba.
Hücre biçimlendirme sadece rakamlarda olur metinler biçimlendirilemez.

Eğer TR yazan kısmı silerseniz isteğe bağlı hücre biçimlendirmede tür kısmına 0000 0000 0000 0000 0000 0000 00 kopyalayın.
Başta mutlaka TR yazması gerekiyorsa bir önceki sütuna TR yazabilirsiniz.

Örnek:

TR​	0144 0020 3000 0214 0000 0000 00​
TR​	1254 0020 3000 0210 0000 0000 00​
TR​	3564 0020 3000 0210 0000 0000 00​

 

[hasankardas]

formülle de yapabilirsiniz

=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)

 

[micyot]

Merhaba.
Hücre biçimlendirme sadece rakamlarda olur metinler biçimlendirilemez.

Eğer TR yazan kısmı silerseniz isteğe bağlı hücre biçimlendirmede tür kısmına 0000 0000 0000 0000 0000 0000 00 kopyalayın.
Başta mutlaka TR yazması gerekiyorsa bir önceki sütuna TR yazabilirsiniz.

Örnek:

TR​	0144 0020 3000 0214 0000 0000 00​
TR​	1254 0020 3000 0210 0000 0000 00​
TR​	3564 0020 3000 0210 0000 0000 00​

Merhaba, 0000 0000 0000 0000 0000 bu şekilde gittiğimde sizde farketmişsinizdir ibanın son rakamlarını yutuyor yani 0000 olarak değiştiriyor bu yüzden ilerleyemedim bende.

 

[micyot]

formülle de yapabilirsiniz

bu şekilde formul ile yapabiliyorum ama veri dışarıdan direk tek hücreye yapıştırmam gerekiyor yani gizli hücre vs kullanımı olsa iş görür ama yok maalesef.

 

[hasankardas]

bu şekilde formul ile yapabiliyorum ama veri dışarıdan direk tek hücreye yapıştırmam gerekiyor yani gizli hücre vs kullanımı olsa iş görür ama yok maalesef.

bunu anlamadım açar mısınız?

 

[micyot]

bunu anlamadım açar mısınız?

yani veriler bana ERP programından direk geliyor. çıktı alacağım sayfada sadece
sicil no - adı soyadı - iban no alanı var. ERP programından bu veriyi direk excele yapıştırıp çıktıyı alıyorum. formül işime yaramıyor yani. hücre üzerinden ilerlemem lazım isteğe uyarlanmış gibi

 

[micyot]

ibanım :

54 0020 3000 0214 5346 0000 01 koda T\R## #### #### #### #### #### ## yazdığımda sonuç TR54 0020 3000 0214 5000 0000 00 olarak çıkıyor ve ibanın son 10 hanesini 0000 olarak değiştiriyor.

 

[hasankardas]

sayfanıza kod yazabiliyorsanız işleminizi çözecektir. çalışmanızın yedeğini alıp aşağıdaki kod işinizi görecektir..A1 e göre yaptım kod içerisinden hücreyi değiştirin
farklı kaydetmeyi unutmayın makro sayfası olarak..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Dim rawIBAN As String
        rawIBAN = Replace(Target.Value, " ", "")
        If Len(rawIBAN) = 26 Then
            Dim formattedIBAN As String
            Dim i As Integer

            For i = 1 To Len(rawIBAN) Step 4
                formattedIBAN = formattedIBAN & Mid(rawIBAN, i, 4) & " "
            Next i

            formattedIBAN = Trim(formattedIBAN)
            Application.EnableEvents = False
            Target.Value = formattedIBAN
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[micyot]

sayfanıza kod yazabiliyorsanız işleminizi çözecektir. çalışmanızın yedeğini alıp aşağıdaki kod işinizi görecektir..A1 e göre yaptım kod içerisinden hücreyi değiştirin
farklı kaydetmeyi unutmayın makro sayfası olarak..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Dim rawIBAN As String
        rawIBAN = Replace(Target.Value, " ", "")
        If Len(rawIBAN) = 26 Then
            Dim formattedIBAN As String
            Dim i As Integer

            For i = 1 To Len(rawIBAN) Step 4
                formattedIBAN = formattedIBAN & Mid(rawIBAN, i, 4) & " "
            Next i

            formattedIBAN = Trim(formattedIBAN)
            Application.EnableEvents = False
            Target.Value = formattedIBAN
            Application.EnableEvents = True
        End If
    End If
End Sub

hocam çok teşekkürler. elinize sağlık....