IBAN biçimlendirme ve doğrulama Yardım.

[aliveli06]

E13 hücresine aşağıdaki formülü kopyalayıp yeterince kopyalayarak deneyiniz.

=EĞER(C13<>"";$D$8/BAĞ_DEĞ_DOLU_SAY($C$13:$C$27);"")

 

[ilmtrz]

Ezbere IBAN numarası girmeyin, doğru numara girin istediğiniz olacaktır.
Size verdiğim kodlar hem numaranın doğru yazılıp yazılmadığını kontrol eder hemde gösterimini yapar.

Ciddi numara girin. Bunu bir kez daha tekrarlayım mı?

tekrar denedim fakat ben beceremedim. Ama sorunu başka türlü çözdüm. Yukarıda paylaştığım dosyada var.

 

[Necdet]

Sayın Necdet Yeşertener bey, aynı örnek olduğu için buradan devam edeyim demiştim. Bütünlüğü bozmamak adına. Eğer olmazsa başka konu açayım.

IBAN olayı için son durumu söylemediniz. Gerçek numara ile denediniz mi?

 

[ilmtrz]

IBAN olayı için son durumu söylemediniz. Gerçek numara ile denediniz mi?

Pardon hocam ben tamamen yanlış anlamışım. Gerçek bir iban ile denemedim. Bahsettiğiniz olay bankaların gerçek iban numaraları ile mi karşılaştırma yapıyor.

 

[ilmtrz]

E13 hücresine aşağıdaki formülü kopyalayıp yeterince kopyalayarak deneyiniz.

=EĞER(C13<>"";$D$8/BAĞ_DEĞ_DOLU_SAY($C$13:$C$27);"")

Teşekkürler hocam. 15 satırın tamamına kopyaladım eklenen kişi sayısına göre bölüyor. Ancak isim satırı boş olan yerlerin karşısındakini boş gösterebilir miyiz?

 

[ilmtrz]

=EĞER(C13<>"";$D$8/BAĞ_DEĞ_DOLU_SAY($C$13:$C$27);"")

işte şimdi oldu. Teşekkürler.

 

[aliveli06]

rica ederim iyi çalışmalar.

 

[ilmtrz]

IBAN olayı için son durumu söylemediniz. Gerçek numara ile denediniz mi?

Necdet hocam, yaptığım işlemleri yazıyorum. Önce yeni bir excel dosyası açtım sonra vermiş olduğunuz kodu kopyalayarak sayfa1 sağ buton gelen ekrana kodu kopyaladım ve açılan sayfayı kapattım. b2 hücresine zıraat bankasına ait olan kendime ait gerçek bir iban numarası girdim ve çıkan görüntüyü aldım. Sonuç.

 

[Necdet]

Merhaba,

Kodları yeniledim, tekrar deneyiniz.

Unuttuğum satır

Application.EnableEvents = False

bu yüzden yanlış çalışıyordu.

 

[ilmtrz]

Merhaba,

Kodları yeniledim, tekrar deneyiniz.

Unuttuğum satır

Application.EnableEvents = False

bu yüzden yanlış çalışıyordu.

Teşekkürler Necdet Bey. Bu sefer oldu. Tekrar teşekkür ederim.

 

[Erdem Akdemir]

Merhaba,

Sizin için bir çalışma hazırladım. Şimdilik sadece A1 hücresini seçtiğinizde çalışacak, daha sonra istediğiniz biçimde düzenlenebilir.

http://www.dosya.tc/server34/gLFcJR/ibangiri_i.rar.html

 

[ilmtrz]

Merhaba,

Sizin için bir çalışma hazırladım. Şimdilik sadece A1 hücresini seçtiğinizde çalışacak, daha sonra istediğiniz biçimde düzenlenebilir.

http://www.dosya.tc/server34/gLFcJR/ibangiri_i.rar.html

Süper bir uygulama. Teşekkürler.

 

[MaviAteş1]

Bende Makro ile uğraşmamak için şöyle bir IBAN Biçimlendirmesi yaptım.
Her seferinde farklı bir excel dosyasıyla çalışmam gerektiğinden, formülü yeni dosyaya taşımak daha kolay olacaktı.

IBAN Numaraları D3 Hücresinde, Başında TR ile birlikte yazılı olduğunu var sayarsak

=BİRLEŞTİR(SOLDAN(D3;4);" ";PARÇAAL(D3;5;4);" ";PARÇAAL(D3;9;4);" ";PARÇAAL(D3;13;4);" ";PARÇAAL(D3;17;4);" ";PARÇAAL(D3;21;4);" ";PARÇAAL(D3;25;2))

Başında TR OLMADAN yazılıysa (Sadece rakam olarak yazılı IBAN Varsa)

=BİRLEŞTİR(SOLDAN(D3;2);" ";PARÇAAL(D3;5;4);" ";PARÇAAL(D3;9;4);" ";PARÇAAL(D3;13;4);" ";PARÇAAL(D3;17;4);" ";PARÇAAL(D3;21;4);" ";PARÇAAL(D3;25;2))

Başında TR Ekleyerek yapmak isteyen olursa, bunu kullanabilir.

=BİRLEŞTİR("TR";SOLDAN(D3;2);" ";PARÇAAL(D3;5;4);" ";PARÇAAL(D3;9;4);" ";PARÇAAL(D3;13;4);" ";PARÇAAL(D3;17;4);" ";PARÇAAL(D3;21;4);" ";PARÇAAL(D3;25;2))