iban numarası sorgulama

websitesi84 · 30 Mayıs 2020

merhabalar.forumda birden çok konu var ancak benim sorunuma çözüm bulamadım. a sütununda iban numaraları var. B sütununa ise bu iban numaralarının banka adı şube adını vs yazmasını istiyorum. Alacağı site herhangi bir çözümleme sitesi olabilir. forumda var ancak tek hücrede yapıyor ve şube adı vermiyor. Yardımcı olabilirseniz sevinirim

Asri · 30 Mayıs 2020

Araştırdığım kadarı ile IBAN da her bankanın şube kodu kullanmadığı yazıyordu. Resmi site olmadığı için varsayım olarak kabul edin.
Bu yüzden bir çok IBAN doğrulama ve çözümleme sitesi şube adı vermiyor. Şube kodu için IBAN da özel bir alan yok.
Hesap kodu son 16 karakter içinde ve şube kodu bilgisi kullanan bankalar bu hesap kodunun ilk 4 karakterini kullanıyormuş.

Sorun, hesap kodundaki ilk 4 karakter her zaman şube kodu mudur?

Asri · 30 Mayıs 2020

Bu durumda, sağlıklı bir şekilde şube bilgisi öğrenmeniz zor.

Kaynak: https://www.tbb.org.tr/Dosyalar/userfiles/file/tuketiciler/IBAN/IBAN _Bilgi_Notu.pdf

Hesap numarası alanının oluşturulmasında bankalarımız arasında ortak bir standart yoktur. Bazı bankalar alfabetik karakterler de kullanırken, bazı bankalarımız sadece sayısal karakterler kullanmaktadır. Bazı bankalar sadece hesap numarasını yazarken, bazıları hesap numarasının başına şube kodunu getirmektedir. Bazı bankalar ise hesap numarası yerine müşteri numarasını yazmayı tercih etmektedir. Bazı bankalar hesabın döviz cinsini hesap numarasının içinde ifade ederken, bazıları bunu ayrıca belirtmektedirler

websitesi84 · 30 Mayıs 2020

Asri' Alıntı:
Bu durumda, sağlıklı bir şekilde şube bilgisi öğrenmeniz zor.

Kaynak: https://www.tbb.org.tr/Dosyalar/userfiles/file/tuketiciler/IBAN/IBAN _Bilgi_Notu.pdf

Hesap numarası alanının oluşturulmasında bankalarımız arasında ortak bir standart yoktur. Bazı bankalar alfabetik karakterler de kullanırken, bazı bankalarımız sadece sayısal karakterler kullanmaktadır. Bazı bankalar sadece hesap numarasını yazarken, bazıları hesap numarasının başına şube kodunu getirmektedir. Bazı bankalar ise hesap numarası yerine müşteri numarasını yazmayı tercih etmektedir. Bazı bankalar hesabın döviz cinsini hesap numarasının içinde ifade ederken, bazıları bunu ayrıca belirtmektedirler

banka adı öğrenme forumlarda geçiyordu o yüzden yazdım. teşekkürler

halit3 · 30 Mayıs 2020

IBAN Çözümleme - IBAN Sorgulama - IBAN Doğrulama | HesapNO.com

IBAN çözümleme, IBAN sorgulama ve IBAN doğrulama işlemlerinizi hızlı ve kolayca yapın. IBAN'dan banka adı, şube kodu ve hesap numarası öğrenin.

hesapno.com

Yukarıdaki sitede farklı iban doğrulama mevcut
Aşağıdaki kod A1 hücresine yazılan ibanın doğruluğunu sorguluyor.

Kod:

Sub iban_bul()

Range("A2:D20").ClearContents

Dim URL As String
Dim ie As Object
iban = Cells(1, 1).Value
Set ie = CreateObject("InternetExplorer.Application")

URL = "https://hesapno.com/cozumle_iban"
With ie
ie.navigate URL
ie.Visible = 1
ie.Width = 100
ie.Height = 50
ie.Left = 10 '250
ie.Top = 0

Do Until ie.readyState = 4: DoEvents: Loop
Do Until ie.readyState = 4: DoEvents: Loop

ie.Document.getelementbyid("iban2").Value = iban

Application.Wait (Now + TimeValue("00:00:01"))
ie.Document.forms(0).submit

Do Until ie.readyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop

Application.Wait (Now + TimeValue("00:00:03"))
y = 3

Set doc = ie.Document

Set hBody = doc.getElementsByTagName("tr")
For Each bb In hBody
If Len(bb.innerText & "555") > 10 Then
Cells(2, 1).Value = Trim(Replace(bb.innerText, Chr(10), ""))
End If
Next bb

Set hBody = doc.getElementsByTagName("div")
For Each bb In hBody

If "iban" = bb.ID Then
Cells(y, 1).Value = bb.innerText
y = y + 1

deg1 = Split(bb.innerText, vbLf)
If UBound(deg1) > 0 Then
For k = 0 To UBound(deg1)
deg2 = Split(deg1(k), ":")
If UBound(deg2) > 0 Then
For t = 0 To UBound(deg2)
Cells(y, t + 2).Value = Trim(Replace(deg2(t), Chr(13), ""))
Cells(y, t + 2).HorizontalAlignment = xlLeft
Next t
End If
y = y + 1

Next k
End If

End If
Next bb

ie.Quit
Set ie = Nothing
End With
    
MsgBox "işlem tamam"

End Sub

mustafa1205 · 30 Mayıs 2020

Elinize Sağlık Halit Hocam...

Murat OSMA · 31 Mayıs 2020

Sadece geçerli olup olmadığının kontrolü için Selenium ile Chrome üzerinden bu sorgulama kodları kullanılabilir.
A sütunundaki tüm IBAN Numaraları toplu olarak sorgulanabilir.

C#:

Sub IBAN_KONTROL()
    Dim Osma As New WebDriver, i As Integer
    Set Osma = New ChromeDriver
    With Osma
        .AddArgument ("--headless")
        .Get "https://hesapno.com/cozumle_iban"
        For i = 2 To Cells(Rows.Count, "A").End(3).Row
            .FindElementById("iban2").Clear
            .FindElementById("iban2").SendKeys Replace(Range("A" & i).Value, " ", "")
            .FindElementsByTag("input").Item(2).Click
            Range("B" & i).Value = .FindElementsByTag("table").Item(2).FindElementsByTag("div").Item(2).Text
        Next i
        .Quit
    End With
    i = Empty: Set Osma = Nothing
End Sub

Murat OSMA · 31 Mayıs 2020

Ufak bir video hazırlamıştım. Önceki mesajı düzenleyemediğim için buraya ekliyorum.

assenucler · 31 Mayıs 2020

Sayın @Murat OSMA,

Gününüz aydınlık, neşeniz ile sağlığınız yerinde; kazancınız bol, her şey gönlünüzün güzelliğince ve Allah'ım sizden razı olsun.

Emek ve paylaşımlarınız için içten teşekkürler.

Sevgi ve saygılar.

Haluk · 31 Mayıs 2020

Internet bağlantısı olmadan IBAN kontrolu için ekli dosyayı kullanabilirsiniz;

.

assenucler · 31 Mayıs 2020

Sayın @Haluk,

Çok teşekkürler, iyi hafta sonları üstadım.
Sağ olun, var olun.

Sevgi ve saygılar.

mustafa1205 · 31 Mayıs 2020

Murat Hocam resimdeki hatayı verdi. Nedeni nedir acaba ?

Murat OSMA · 31 Mayıs 2020

Selenium'un kurulması gerekiyor ama çok önemli değil, alternatif örnek olsun diye paylaştım.

Sn. @halit3'ün çözümü isteğinizi karşılıyor, onu kullanabilirsiniz.

mustafa1205 · 31 Mayıs 2020

Murat OSMA' Alıntı:
Selenium'un kurulması gerekiyor ama çok önemli değil, alternatif örnek olsun diye paylaştım.

Sn. @halit3'ün çözümü isteğinizi karşılıyor, onu kullanabilirsiniz.

Teşekkürler Murat Hocam...

websitesi84 · 16 Ekim 2020

halit3' Alıntı:

IBAN Çözümleme - IBAN Sorgulama - IBAN Doğrulama | HesapNO.com

IBAN çözümleme, IBAN sorgulama ve IBAN doğrulama işlemlerinizi hızlı ve kolayca yapın. IBAN'dan banka adı, şube kodu ve hesap numarası öğrenin.

hesapno.com

Yukarıdaki sitede farklı iban doğrulama mevcut
Aşağıdaki kod A1 hücresine yazılan ibanın doğruluğunu sorguluyor.

Kod:

Sub iban_bul()

Range("A2:D20").ClearContents

Dim URL As String
Dim ie As Object
iban = Cells(1, 1).Value
Set ie = CreateObject("InternetExplorer.Application")

URL = "https://hesapno.com/cozumle_iban"
With ie
ie.navigate URL
ie.Visible = 1
ie.Width = 100
ie.Height = 50
ie.Left = 10 '250
ie.Top = 0

Do Until ie.readyState = 4: DoEvents: Loop
Do Until ie.readyState = 4: DoEvents: Loop

ie.Document.getelementbyid("iban2").Value = iban

Application.Wait (Now + TimeValue("00:00:01"))
ie.Document.forms(0).submit

Do Until ie.readyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop

Application.Wait (Now + TimeValue("00:00:03"))
y = 3

Set doc = ie.Document

Set hBody = doc.getElementsByTagName("tr")
For Each bb In hBody
If Len(bb.innerText & "555") > 10 Then
Cells(2, 1).Value = Trim(Replace(bb.innerText, Chr(10), ""))
End If
Next bb

Set hBody = doc.getElementsByTagName("div")
For Each bb In hBody

If "iban" = bb.ID Then
Cells(y, 1).Value = bb.innerText
y = y + 1

deg1 = Split(bb.innerText, vbLf)
If UBound(deg1) > 0 Then
For k = 0 To UBound(deg1)
deg2 = Split(deg1(k), ":")
If UBound(deg2) > 0 Then
For t = 0 To UBound(deg2)
Cells(y, t + 2).Value = Trim(Replace(deg2(t), Chr(13), ""))
Cells(y, t + 2).HorizontalAlignment = xlLeft
Next t
End If
y = y + 1

Next k
End If

End If
Next bb

ie.Quit
Set ie = Nothing
End With
   
MsgBox "işlem tamam"

End Sub

merhabalar kodlar için teşekkürler. A1 hücresindeki iban a bu kodu uyguladığımda A2 ye iban geçerlidir.a3 e banka bilgilerini ve B4 den B7 ve C4den C7ye banka bilgilerini vermekte. A sütununda 1200 İban var ve banka isimlerinin, geçerli olup olmadıgının yazılmasını istedigim B sütunu C sütunu. Yani bunlar alt alta değilde ibanın yanındaki sütunlara yazılma şansı var mı. Teşekkürler

cumalif · 18 Ağustos 2023

Murat OSMA' Alıntı:

Sadece geçerli olup olmadığının kontrolü için Selenium ile Chrome üzerinden bu sorgulama kodları kullanılabilir.
A sütunundaki tüm IBAN Numaraları toplu olarak sorgulanabilir.

C#:

Sub IBAN_KONTROL()
    Dim Osma As New WebDriver, i As Integer
    Set Osma = New ChromeDriver
    With Osma
        .AddArgument ("--headless")
        .Get "https://hesapno.com/cozumle_iban"
        For i = 2 To Cells(Rows.Count, "A").End(3).Row
            .FindElementById("iban2").Clear
            .FindElementById("iban2").SendKeys Replace(Range("A" & i).Value, " ", "")
            .FindElementsByTag("input").Item(2).Click
            Range("B" & i).Value = .FindElementsByTag("table").Item(2).FindElementsByTag("div").Item(2).Text
        Next i
        .Quit
    End With
    i = Empty: Set Osma = Nothing
End Sub

Merhaba, kod için teşekkür ederim. Bir isteğim olacaktı koda hangi bankaya ait olduğunu da yazma özelliğini getirme şansınız var mıdır ?

hasankardas · 18 Ağustos 2023

cumalif' Alıntı:
Merhaba, kod için teşekkür ederim. Bir isteğim olacaktı koda hangi bankaya ait olduğunu da yazma özelliğini getirme şansınız var mıdır ?

halit3 üstadın yazdığı kod bu işlemi yapıyor..

cumalif · 18 Ağustos 2023

hasankardas' Alıntı:
halit3 üstadın yazdığı kod bu işlemi yapıyor..

Evet yapıyor, ama ben 500 ıbanı kontrol ediyorum ve tüm IBANlar alt alta o yüzden ben kullanamadım

mc_exrem · 18 Ağustos 2023

merhabalar,

@halit3 hocamın kodunu dosyamın OZLUK_DOSYASI sayfası M4:9999 hücrelerine uygulayabilecek şekilde düzeltebilir misiniz?

Korhan Ayhan · 18 Ağustos 2023

#10 nolu mesajda @Haluk beyin önerisi işinize yaramıyor mu?

iban numarası sorgulama

websitesi84

Asri

Asri

websitesi84

halit3

Uzman

IBAN Çözümleme - IBAN Sorgulama - IBAN Doğrulama | HesapNO.com

mustafa1205

Murat OSMA

Altın Üye

Murat OSMA

Altın Üye

assenucler

Haluk

Özel Üye

Ekli dosyalar

assenucler

mustafa1205

Murat OSMA

Altın Üye

mustafa1205

websitesi84

IBAN Çözümleme - IBAN Sorgulama - IBAN Doğrulama | HesapNO.com

cumalif

hasankardas

cumalif

mc_exrem

Korhan Ayhan

Administrator