ıban numarasını hanelere ayırmada sorun

[asilady]

çok acil lütfen yardım ıban no da hanelere ayırmada sorun

Merhaba;

Excel de "isteğe uyarlanmış" hücre biçimlendirmede Iban numarasını ## #### #### #### #### #### ## şeklinde giriş yaparak başına TR koymadan sadece numaraların arasında boşluk bırakmadan yazdığımızda otomatik ayırma yapılabildiğini öğrendim fakat bu şekilde biçimlendirme yaptığımda numaraların son 8-10 hanesini "0" sıfır a çeviriyor.

Nasıl yardımcı olabilirisiniz?

Teşekkürler şimdiden

 

[asilady]

Çok acil ve önemli bilen birileri var mıdır acaba?

 

[Leoncio]

Excel 15 karakterden sonrasını "0" olarak gösterir. Eğer matematiksel işlem yapmayacaksanız başına "'" tırnak işareti koyun.

 

[asilady]

tam olarak nereye "" tırnak koymam gerektiğini çözemedim.

 

[asilady]

Çok acil lütfen birileri yardımcı olabilir mi?

 

[Leoncio]

Başına tek tırnak koyacaksınız.

'TR 77777 şeklinde

 

[Necdet]

Merhaba,

Siz tek tek iban mı giriyorsunuz, yoksa iban yazılmış sütunlar mı var?

Veri giriş anında mı görüntünün değişmesini istiyorsunuz, yoksa veri girildikten sonra mı ?

Sorunu başından belirtirseniz makro ile çözüme ulaşmak olası olabilir.

Örnek dosya ile sorunuzu destekleyiniz.

 

[asilady]

veri girişini yaptıktan sonra başka hücreye geçtiğimde ıban nosunun hanelere ayrılmasını istiyorum 'TR denedim evet ayırıyor fakat son 7 hanesini 0 olarak yazıyor sorun bu zaten son haneleri sıfır a çevirmesi?

 

[Leoncio]

Ekte bulunan dosya şeklinde değil mi istediğiniz?

 

[asilady]

Hayır TR12 1234 1234 1234 1234 1234 12 şeklinde olmasını istiyorum

 

[Leoncio]

Mevcut dosya üzerinde istediğiniz boşluğu bırakabilirsiniz.

 

[Leoncio]

Ekte bulunan dosya

 

[Ömer]

Sayın asilady,

Sanırım siz iban numarasını sayı olarak başında TR olmadan girip istediğiniz biçime gelmesini istiyorsunuz. Yalnız Excelde hücreye 15 haneden büyük sayı girdiğinizde 15 den sonraki basamaklar sıfır olur. Bu Excelin sınırıyla alakalı bir durum dur. Bu durumda sizin istediğinizi makro kullanarak yapmak gerekir.

Çalışma sayfasının kod bölümüne kopyalayın.
A sütununa veri girdiğinizde istediğiniz olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim a As String, b As String
 
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
 
    With Target
        If Len(.Value) <> 24 Then Exit Sub
        .NumberFormat = "@"
        a = Format(Left(.Value, 14), "00 0000 0000 0000")
        b = Format(Right(.Value, 10), " 0000 0000 00")
        .Value = "TR" & a & b
    End With
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
 
    Target.NumberFormat = "@"
 
End Sub

.

 

[izzetk]

Eğer IBAN numaraları boşluksuz geliyorsa örnek ektedir. Parçalayıp sonra istediğiniz şekilde birleştirdim.

 

[asilady]

teşekkür ederim ama istediğim gibi olmadı hiç biri gene de sağolun.

 

[Necdet]

teşekkür ederim ama istediğim gibi olmadı hiç biri gene de sağolun.

Ömer beyin kodlarını denedim gayet güzel çalışıyor, neden olmadığını söylüyorsunuz?

TR girmeden A sütununda girilen rakamları TR eklenerek doğru şekilde gösteriyor.

 

[Leoncio]

teşekkür ederim ama istediğim gibi olmadı hiç biri gene de sağolun.

Bakın; Nasıl bir şey istediğinizi örnek dosya (excel dosyası) ilave ederek yaparmısınız?

 

[asilady]

Ekli dosyada bulunan tabloda ıban numarası bölümüne sadece rakamları boşluk bırakmadan girmek istiyorum.

 

[asilady]

boşluk bırakmadan girip enter e batığımda tablodaki gibi hanelere ayırmasını istiyorum.

 

[Necdet]

Ekli dosyada bulunan tabloda ıban numarası bölümüne sadece rakamları boşluk bırakmadan girmek istiyorum.

Ömer Bey'in kodlarındaki :

If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub

satırındaki "A:A" yı "I:I" yaptığınız takdirde sorun çözülür.