• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ıban numarası

  • Konbuyu başlatan Konbuyu başlatan otobus
  • Başlangıç tarihi Başlangıç tarihi
O

otobus

Katılım
11 Şubat 2006
Mesajlar
66
Elinizde banka şube konu ve hesap numrasını girdiğinizde otomatik olarak IBAN numarasını gösteren bir excel çalışması olan var mıdır?

İlginize teşekkür ederim.
 
Değerli arkadaşlar,

Bende banka şube kodu ve hesap numrasını girdiğinizde otomatik olarak IBAN numarasını gösteren bir program yok ama elinizdeki Iban numarasının doğru yada yanlış bir IBAN numarası olduğunu gösterir program var.

Türk bankaları için üretilen IBAN numarası 26 hanedir. Aşağıdaki program "A1" hücresine girilen numaranın bir iban numarası olup olmadığını kontrol etmektedir. Iban numarası kendi kendini kontrol eden bir yapıya sahiptir. Hataen bir rakamı yanlış olan bir iban numarası hakkında program "IBAN Numarası YANLIŞDIR." mesajı üreterek kullanıcıyı uyarmaktadır.

private sub Iban_kontrol()
Dim IBAN, iban1
IBAN = Cells(1, 1).Value
If Len(IBAN) < 1 Then End
If Len(IBAN) <> 26 Then MsgBox "Girdiğiniz numara " & Len(IBAN) & " hanedir " & Chr(10) & "Türk Bankaları için IBAN numarası 26 haneli bir numaradır.", , " IBAN Numaranız Yanlış": End
IBAN = Right(IBAN, 22) & Left(IBAN, 4)
' iban = Replace(iban, "TR", 2927)
IBAN = Replace(IBAN, "A", 10)
IBAN = Replace(IBAN, "B", 11)
IBAN = Replace(IBAN, "C", 12)
IBAN = Replace(IBAN, "D", 13)
IBAN = Replace(IBAN, "E", 14)
IBAN = Replace(IBAN, "F", 15)
IBAN = Replace(IBAN, "G", 16)
IBAN = Replace(IBAN, "H", 17)
IBAN = Replace(IBAN, "I", 18)
IBAN = Replace(IBAN, "J", 19)
IBAN = Replace(IBAN, "K", 20)
IBAN = Replace(IBAN, "L", 21)
IBAN = Replace(IBAN, "M", 22)
IBAN = Replace(IBAN, "N", 23)
IBAN = Replace(IBAN, "O", 24)
IBAN = Replace(IBAN, "P", 25)
IBAN = Replace(IBAN, "Q", 26)
IBAN = Replace(IBAN, "R", 27)
IBAN = Replace(IBAN, "S", 28)
IBAN = Replace(IBAN, "T", 29)
IBAN = Replace(IBAN, "U", 30)
IBAN = Replace(IBAN, "V", 31)
IBAN = Replace(IBAN, "W", 32)
IBAN = Replace(IBAN, "X", 33)
IBAN = Replace(IBAN, "Y", 34)
IBAN = Replace(IBAN, "Z", 35)

'MsgBox Left(iban, 4) & " - " & Left(iban, 4) Mod 97
iban1 = Left(IBAN, 4) Mod 97
'MsgBox Val(iban1 & Mid(iban, 5, 2)) & " - " & Val(iban1 & Mid(iban, 5, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 5, 2)) Mod 97
'MsgBox Val(iban1 & Mid(iban, 7, 2)) & " - " & Val(iban1 & Mid(iban, 7, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 7, 2)) Mod 97
'MsgBox Val(iban1 & Mid(iban, 9, 2)) & " - " & Val(iban1 & Mid(iban, 9, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 9, 2)) Mod 97
'MsgBox Val(iban1 & Mid(iban, 11, 2)) & " - " & Val(iban1 & Mid(iban, 11, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 11, 2)) Mod 97
'MsgBox Val(iban1 & Mid(iban, 13, 2)) & " - " & Val(iban1 & Mid(iban, 13, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 13, 2)) Mod 97
'MsgBox Val(iban1 & Mid(iban, 15, 2)) & " - " & Val(iban1 & Mid(iban, 15, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 15, 2)) Mod 97
'MsgBox Val(iban1 & Mid(iban, 17, 2)) & " - " & Val(iban1 & Mid(iban, 17, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 17, 2)) Mod 97
'MsgBox Val(iban1 & Mid(iban, 19, 2)) & " - " & Val(iban1 & Mid(iban, 19, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 19, 2)) Mod 97
'MsgBox Val(iban1 & Mid(iban, 21, 2)) & " - " & Val(iban1 & Mid(iban, 21, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 21, 2)) Mod 97
'MsgBox Val(iban1 & Mid(iban, 23, 2)) & " - " & Val(iban1 & Mid(iban, 23, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 23, 2)) Mod 97
'MsgBox Val(iban1 & Mid(iban, 25, 2)) & " - " & Val(iban1 & Mid(iban, 25, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 25, 2)) Mod 97
'MsgBox Val(iban1 & Mid(iban, 27, 2)) & " - " & Val(iban1 & Mid(iban, 27, 2)) Mod 97
iban1 = Val(iban1 & Mid(IBAN, 27, 2)) Mod 97
'MsgBox "iban = " & iban1

If iban1 = 1 Then
MsgBox "IBAN Numarası DOĞRUDUR."
Else
MsgBox "IBAN Numarası YANLIŞDIR."
End If
end sub
 
kulomer46' Alıntı:
Değerli arkadaşlar,

Aşağıdaki program "A1" hücresine girilen numaranın bir iban numarası olup olmadığını kontrol etmektedir. Iban numarası kendi kendini kontrol eden bir yapıya sahiptir. Hataen bir rakamı yanlış olan bir iban numarası hakkında program "IBAN Numarası YANLIŞDIR." mesajı üreterek kullanıcıyı uyarmaktadır.
Genişletmek için tıkla ...

Mrb;
Kodlardan anlamıyorum, İban numarası kendi kendini kontrol eden bir yapıya sahiptir yazmışsınız.İban numaralarının kontrol mantığını bir kaç örnekle açıklama şansınız varmı? Bunlar kodlardan anlayanlar için sorun değil ama anlamayanlar için.

Teşekkürler.
 
Son düzenleme:
Değerli Arkadaşım,
Elimden geldiğince Bilgi vermeye çalışayım.

Türk bankaları için IBAN numarası 26 hanedir.
ilk iki hane "TR" ile başlar gerisi sayılardan oluşmaktadır.
T yerine 29 ve R yerine 27 rakamını koyarız.
Böylece elimizdeki 26 haneli rakam 28 haneli hale gelir.
İşte bu 28 haneli rakamı 97 ile böleriz.
97 ile bölme sonucu kalan rakam 1 (bir) ise elimizdeki doğru bir IBAN numarasıdır.
Yok kalan rakam 1 (bir) den farklı ise (örn. 3,5 veya 19), IBAN numaramız yanlış bir IBAN numarasıdır.

Özetle;
Programımız 26 haneli Iban numarasını 28 haneye çevirmekte, sonra bu 28 haneli sayıyı peyderpey 97 rakamına bölmekte en son kalan 1 (bir) ise Iban numaramızın doğru bir ıban numarası olduğunu bildirmektedir.
İyi çalışmalar diliyorum ..
 
Son düzenleme:
Hesaplamayı örnek göstererek yapabilirmissniz acaba
Aşağıdaki iban üzerenie hesaplama yaparmıssnız
TR440004600231888000008459
 
TC. kimlik dorğulaması gibi,
Bu uygulamayı da excelde fomül ile yapmaya çalıştım. Ancak sonuca ulaşamadım. 26 haneli sayıyı, sayı olarak görüyorum. 28 haneli sayıyı sayı olarak göremiyorum.
Sanırım profesyonel bir çalışma istiyor.

Konunun uzmanı arkadaşların çözeceğine eminim.
 
TR440004600231888000008459 sayımız bu olsun..
T yerine 29 , R yerine 27 yi koyalım.
Yeni sayımız 2927440004600231888000008459 olur.
2927440004600231888000008459 sayısını 97'ye bölelim.
Kalan rakam 1 dir. Demekki,
TR440004600231888000008459 numarası doğru bir ıban numarasıdır.
 
2927440004600231888000008459 sayısını 97'ye böldüğümde sonuç 1 çıkmıyor sizden ricam excel sayfasında formül de gösterebilirmissiniz.
 
Sayın kulomer46,

Elimde yaklaşık 50.000 adet hesap numarası datası var. Tabi ki şu an birçoğunun IBAN numarası yok. Bana telefon açıp IBAN numaralarını söylüyorlar ve ben Excel e giriyorum. Sizin verdiğiniz bu formülü nereye ve nasıl yazmalıyım ki sizin ki gibi bir sonuç çıksın. Olayı sadece A1 hücresi olarak değil de diğer tüm sütunlara nasıl girebilirim ?
 
Değerli arkadaşım,
mesajınızı gördüm, boşluğumda cevap yazacağım.
 
ıbanbul.xls - xla

Merhaba,
IBAN Numarası ile ilgili bir fonksiyon yazdım. bir çok bankanın iban numarasını kendi buluyor.

http://www.alogumruk.net

bu siteden ulaşabilirsiniz. içinde benioku dosyasında herşey yazıyor.

BANKA İSİMLERİNİ GİRERKEN AŞAĞIDAKİ GİBİ GİRİNİZ.
AKBANK
ALBARAKA
ASYABANK
DENİZBANK
FİNANSBANK
CITIBANK
ANADOLUBANK
GARANTİ
HALKBANK
KUVEYT
TEB
TFKB
VAKIFBANK
YKB
ZİRAAT
İŞBANKASI
HSBC
 
Son düzenleme:
DOSYA EKDEDİR. EĞER BAŞKA BİR ŞEY İSTERSENİZ DOSYAYI GÖNDERİRSİNİZ ONUN ÜZERİNDE ÇALŞIRIM. MSN ADRESİM vedatozer72@hotmail.com hayırlı günler
 

Ekli dosyalar

Iban Kontrol

Değerli Arkadaşlar
Aşağıdaki program elimizdeki IBAN numarasının doğru bir IBAN numarası olup olmadığını kontrol eden bir programdır. (Bilgileri düzeltilmiş haliyle)

Türk bankaları için IBAN numarası 26 hanedir.
ilk iki hane "TR" ile başlar gerisi sayılardan oluşmaktadır.
T yerine 29 ve R yerine 27 rakamını koyarız.
Böylece elimizdeki 26 haneli rakam 28 haneli hale gelir.
Bu 28 haneli rakamın ilk 6 hanesini başından kesip sonuna ekleriz. yani ilk 6 rakam baştan kesilip en sona eklenir. Elimizdeki yine 28 haneli bir rakamdır.
İşte bu 28 haneli rakamı 97 ile böleriz.
97 ile bölme sonucu kalan rakam 1 (bir) ise elimizdeki doğru bir IBAN numarasıdır.
Yok kalan rakam 1 (bir) den farklı ise (örn. 3,5 veya 19), IBAN numaramız yanlış bir IBAN numarasıdır.

Özetle;
Programımız 26 haneli Iban numarasını 28 haneye çevirmekte, sonra bu 28 haneli rakamın ilk 6 rakamını en sona atmakta sonra sayının son halini peyderpey 97 rakamına bölmekte en son kalan 1 (bir) ise Iban numaramızın doğru bir ıban numarası olduğunu bildirmektedir.
İyi çalışmalar diliyorum
 

Ekli dosyalar

Son düzenleme:
Sayın Dekonline,
IBAN numaralarınızı hangi sütunlar gireceksiniz. Yani hangi sütun ve satırları kontrol etsin program. Örnek dosya gönderirseniz programı dosyanıza monte edip tekrar gönderebilirim.
İyi çalışmalar..
 
İndiremedim ki kullanayım, dosyayı buraya koymayı düşünmüyür musunuz?
 
rapidshare öldü, yaşasın hotfile.

http://hotfile.com

Sn oassaoft, Hotfile'e yüklerseniz hiç kimse sorun yaşamadan indirebilir.
 
değerli arkadaşım sonucun 1 çıkması değil kalanın 1 çıkması önemli yani mod komutuyla yaptırıyorsun.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst