iban arası otomatik boşluk oluşturma

micyot · Dün 10:36 da

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 · Dün 10:53 da

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 · Dün 10:55 da

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 · Dün 11:17 da

Muzaffer Ali' Alıntı:
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 · Dün 11:18 da

hasankardas' Alıntı:
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 · Dün 11:21 da

micyot' Alıntı:
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 · Dün 11:24 da

hasankardas' Alıntı:
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 · Dün 11:30 da

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 · Dün 11:36 da

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..

Kod:

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 · Dün 12:10 da

hasankardas' Alıntı:
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..

Kod:

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....

iban arası otomatik boşluk oluşturma

Destek Ekibi