İban Numarası ile Banka Şube Adı Bulmak

H

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
946
Excel Vers. ve Dili
Excel-2003
Altın Üyelik Bitiş Tarihi
16.08.2026
İban Numarasını yazıp hangi bankaya ait olduğunu bulabilmek istiyorum. Şu site var bana cevap veriyor ama excel sayfamdaki binlerce İban numarasını sorgulamak yerine excelde bir makroya ihtiyacım var.

B Sütundaki İbna numaralarının karşısına Şube adını getiecek bir kod gerekiyor. Sitede verilen iframe kodu şöyle
Kod: 
<iframe height="100%" width="100%" src="http://hesapno.com/mod_iban_coz" name="hesapno.com iban çözümleme modülü" scrolling="auto" frameborder="0"></iframe>
Veri çekebileceğim site adresi https://hesapno.com/cozumle_iban yada bu http://www.e-iban.com/

Başka siteler de olabilir.

Alternatif olarak İban numaralarının Banka Şubesini gsteren liste de olabilir.
Örneğin
TR5300010020644110XXXXXXXX
İban bunmarasının hangi bankaya ait olduğunu bilmem yeterli.

Kısacası Halk Bankasından EFT Yaparken Banka adı soruyor. Orda seçim yapıyorum örneğin ziraat banakası ise iban numarası Ziraat Bank 00010 seçeceğim.
Teşekkürler
 
Son düzenleme:
kemalist

kemalist

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
Altın Üyelik Bitiş Tarihi
24-01-2026
IBAN numarasında banka ve şube olan kısmını PARÇAAL formülü ile birliste oluştur daha sonra YATAYARA yaparak olarak yapabilirsiniz.
 
C

ccuneyt13

Altın Üye
Katılım
20 Ocak 2011
Mesajlar
366
Excel Vers. ve Dili
Office 365 Türkçe
Altın Üyelik Bitiş Tarihi
01-11-2026
Merhaba,
Benim de kullandığım ve size faydası olacağını düşündüğüm ekteki dosyayı inceler misiniz.

Basitçe anlatmak gerekirse "D" sütununa 26 karakterden oluşan IBAN numaralarını yapıştırın(Aralarında boşluk olmadan) "E" ve "F" hücrelerindeki formülleri aşağıya çekerek çoğaltın.

Umarım faydası olur.
Kolay gelsin.


http://s4.dosya.tc/server/jxts5u/IBANDAN_BANKA_BULMA..xlsx.html
 
Son düzenleme:
H

haimow

Altın Üye
Katılım
5 Mart 2007
Mesajlar
111
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
11-07-2025
Siteler için teşekkürler, bir de bu işin hesap sahibini çıkaranı olsaydı iyiydi :)
 
H

htsumer

Altın Üye
Altın Üye
Katılım
7 Eylül 2004
Mesajlar
946
Excel Vers. ve Dili
Excel-2003
Altın Üyelik Bitiş Tarihi
16.08.2026
kemalist' Alıntı:
IBAN numarasında banka ve şube olan kısmını PARÇAAL formülü ile birliste oluştur daha sonra YATAYARA yaparak olarak yapabilirsiniz.
Genişletmek için tıkla ...
Ben hangi bankaya ait olduğunu bulabiliyorum. Sorum yanlış anlaşıldı sanırım.
Mesela ibanı yazdığımda Ankara Bahçelievler şubesini bulmak için veri tabanı istiyorum. Banka Şubesini buluyorum ama AKBANK diyelim bu Ankaranın Bahçelievler şubesi vermeli..

Örnek
TR500001200921000001048861

Bu iban numarsını yazdıımda
Şube : 09210-BAHCELIEVLER / ANKARA vermeli..

ccuneyt13' Alıntı:
Merhaba,
Benim de kullandığım ve size faydası olacağını düşündüğüm ekteki dosyayı inceler misiniz.

Basitçe anlatmak gerekirse "D" sütununa 26 karakterden oluşan IBAN numaralarını yapıştırın(Aralarında boşluk olmadan) "E" ve "F" hücrelerindeki formülleri aşağıya çekerek çoğaltın.

Umarım faydası olur.
Kolay gelsin.


http://s4.dosya.tc/server/jxts5u/IBANDAN_BANKA_BULMA..xlsx.html
Genişletmek için tıkla ...
Teşekkür ederim ama yukarıda yazdığım gibi istediğim bu değil..
 
Asri

Asri

Katılım
24 Nisan 2005
Mesajlar
3,669
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
Bir iki gün içinde offline olarak şube sorgulama yapabiliceksiniz. : )
 
Zeki Gürsoy

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,334
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Sanırım bunu istiyorsunuz. Prosedur içindeki IBAN ı siz verdiğiniz için örnekte kullandım.

Aşağıdaki proseduru boş bir Excel de çalıştırıp deneyin.

Kod: 
Sub test()
    Dim ie As Object, iban As String, sube As String
    
    iban = "TR500001200921000001048861"
    
    Set ie = CreateObject("InternetExplorer.Application")
           
   [COLOR=DarkGreen] 'ie.Visible = True[/COLOR]
    
    ie.navigate "https://hesapno.com/cozumle_iban"
    
    Do Until ie.readystate = 4: DoEvents: Loop
    Do While ie.busy: DoEvents: Loop
    
    ie.document.getelementbyid("iban2").Value = iban
    ie.document.forms(0).submit
    
    Do Until ie.readystate = 4: DoEvents: Loop
    Do While ie.busy: DoEvents: Loop
    
    On Error Resume Next
    
    Do Until Trim(a.innertext) = "BANKA BİLGİLERİ"
        DoEvents
    
        For Each a In ie.document.Links

            If Trim(a.innertext) = "BANKA BİLGİLERİ" Then

                txt = a.parentElement.outertext

                Exit For

           End If
           
        Next
        
    Loop
    
    On Error GoTo 0
        
    arr = Split(txt, vbCrLf)
    
    [a1] = "IBAN : " & iban
    
    sube = Replace("Şube : " & arr(8) & "-" & arr(7) & " / " & UCase(arr(9)), "Ad:", "")
    sube = Replace(sube, "Kod:", "")
    sube = Replace(sube, "İL:", "")
    
    [a2] = sube
    
    ie.Quit
     
    Set ie = Nothing
End Sub
 
H

hsayar

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Bende merak ettim.
Ancak,
Esed NOd32 indirmeme izin vermedi dosyaları.
 
A

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,547
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
Zeki Gürsoy' Alıntı:
Sanırım bunu istiyorsunuz. Prosedur içindeki IBAN ı siz verdiğiniz için örnekte kullandım.

Aşağıdaki proseduru boş bir Excel de çalıştırıp deneyin.

Kod: 
Sub test()
    Dim ie As Object, iban As String, sube As String
    
    iban = "TR500001200921000001048861"
    
    Set ie = CreateObject("InternetExplorer.Application")
           
   [COLOR=DarkGreen] 'ie.Visible = True[/COLOR]
    
    ie.navigate "https://hesapno.com/cozumle_iban"
    
    Do Until ie.readystate = 4: DoEvents: Loop
    Do While ie.busy: DoEvents: Loop
    
    ie.document.getelementbyid("iban2").Value = iban
    ie.document.forms(0).submit
    
    Do Until ie.readystate = 4: DoEvents: Loop
    Do While ie.busy: DoEvents: Loop
    
    On Error Resume Next
    
    Do Until Trim(a.innertext) = "BANKA BİLGİLERİ"
        DoEvents
    
        For Each a In ie.document.Links

            If Trim(a.innertext) = "BANKA BİLGİLERİ" Then

                txt = a.parentElement.outertext

                Exit For

           End If
           
        Next
        
    Loop
    
    On Error GoTo 0
        
    arr = Split(txt, vbCrLf)
    
    [a1] = "IBAN : " & iban
    
    sube = Replace("Şube : " & arr(8) & "-" & arr(7) & " / " & UCase(arr(9)), "Ad:", "")
    sube = Replace(sube, "Kod:", "")
    sube = Replace(sube, "İL:", "")
    
    [a2] = sube
    
    ie.Quit
     
    Set ie = Nothing
End Sub
Genişletmek için tıkla ...


Üstadım, aranacak iban numarasını G3 hücresinden alması için, kodunuzda nasıl bir değişiklik gerekecektir?

Yardımınız için önceden teşekkürler.

Sevgi ve saygılar.
 
M

mahmutturk

Katılım
27 Mart 2006
Mesajlar
3
Altın Üyelik Bitiş Tarihi
14-06-2021
Sub Makro1()
Dim ie As Object, IBAN As String, sube As String

IBAN = Range("G3")

Set ie = CreateObject("InternetExplorer.Application")

'ie.Visible = True

ie.navigate "https://hesapno.com/cozumle_iban"

Do Until ie.readystate = 4: DoEvents: Loop
Do While ie.busy: DoEvents: Loop

ie.document.getelementbyid("iban2").Value = IBAN
ie.document.forms(0).submit

Do Until ie.readystate = 4: DoEvents: Loop
Do While ie.busy: DoEvents: Loop

On Error Resume Next

Do Until Trim(a.innertext) = "BANKA BİLGİLERİ"
DoEvents

For Each a In ie.document.Links

If Trim(a.innertext) = "BANKA BİLGİLERİ" Then

txt = a.parentElement.outertext

Exit For

End If

Next

Loop

On Error GoTo 0

arr = Split(txt, vbCrLf)

[a1] = "IBAN : " & IBAN

sube = Replace("Şube : " & arr(8) & "-" & arr(7) & " / " & UCase(arr(9)), "Ad:", "")
sube = Replace(sube, "Kod:", "")
sube = Replace(sube, "İL:", "")

[D2] = sube

ie.Quit

Set ie = Nothing
End Sub
 
A

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,547
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
Teşekkür

Sayın mahmutturk,


Katkı ve paylaşımınız ile yardımınız için teşekkürler.

Sevgi ve saygılar.
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,788
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Bir alternatif uygulama

A1 hücresine iban numarasını yazın kod B sütununa banka bilgilerini yazıyor.

Kod: 
Const SW_MAXIMIZE = 3
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWNORMAL = 1

#If Win64 Then
Private Declare PtrSafe Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If
#If VBA7 Then
#Else
#End If

Sub iban_bul()

If (InternetCheckConnection("https://www.google.com.tr/", &H1, 0&) = 0) Then
MsgBox "Bağlantı Yok"
Exit Sub
Else
End If

son = 13
ReDim say(son)
say(1) = "Çözümlenecek IBAN IBAN Geçersizdir"
say(2) = "Çözümlenecek IBAN IBAN Geçerlidir"
say(3) = "BANKA BİLGİLERİ Ad:"
say(4) = "Kod:"
say(5) = "Swift:"
say(6) = "Hesap No:"
say(7) = "ŞUBE BİLGİLERİ Ad:"
say(8) = "Kod:"
say(9) = "İl:"
say(10) = "İlçe:"
say(11) = "Tel:"
say(12) = "Fax:"
say(13) = "Adres:"

ReDim sill(son)

sill(1) = " Adres"
sill(2) = " Kod"
sill(3) = " Swift"
sill(4) = " Hesap No"
sill(5) = " ŞUBE BİLGİLERİ"
sill(6) = " İlçe"
sill(7) = " İl"
sill(8) = " Tel"
sill(9) = " Fax"
sill(2) = " Ad"
sill(11) = "Kod"
'sill(12) = " No"

Range("b1:b16").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.Visible = 0
.Navigate URL
'.Visible = True

'ShowWindow ie.hwnd, 9
apiShowWindow ie.hwnd, SW_SHOWMINIMIZED

Do Until ie.ReadyState = 4: DoEvents: Loop
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
ie.Visible = 1

ie.document.getelementbyid("iban2").Value = iban
ie.document.forms(0).submit

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

'Do While IE.Busy: DoEvents: Loop
Set html_tba = ie.document.getElementsByTagName("Body")
Adres = WorksheetFunction.Trim(Replace(Replace(html_tba(0).innerText, Chr(13), ""), Chr(10), " "))
adres2 = Adres

For r = 1 To son
veri6 = InStr(1, adres2, say(r), vbTextCompare)
If veri6 > 0 Then
 'On Error Resume Next
deg6 = Mid(adres2, veri6, Len(adres2))
deg7 = Split(deg6, say(r))
If UBound(deg7) > 0 Then
deg8 = Split(deg7(1), ":")
veri2 = deg8(0)
For k = 1 To 12

veri2 = Replace(veri2, sill(k), "")
Next
If Mid(veri2, 1, 4) = " ///" Then
Cells(1, 2).Value = "iban geçersiz"
Else

Cells(r, 2).Value = WorksheetFunction.Trim(veri2)
Cells(r, 2).NumberFormat = "@"

End If
End If
adres2 = deg6
End If
Next

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

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,547
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
Teşekkür

Sayın halit3 Üstadım,


Hayırlı akşamlar ve ramazanlar.

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

Sevgi ve saygılar.
 
B

ByChilavert

Katılım
6 Mart 2011
Mesajlar
153
Excel Vers. ve Dili
Microsoft Office 2010
Merhaba

Konu içerisinde yazılanları tek tek denememe rağmen sonuç elde edemedim. Elimde 3000 üzeri iban numarası var ve bunların şube adı ve şube kodunu bulmam gerekiyor. İnternet üzerinden tek tek yapmak çok zaman alan bir iş excel üzerinde bunu nasıl yaparım. Yardımcı olabilir misiniz.
 
B

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Altın Üyelik Bitiş Tarihi
20-02-2025
Zeki Gürsoy' Alıntı:
Sanırım bunu istiyorsunuz. Prosedur içindeki IBAN ı siz verdiğiniz için örnekte kullandım.

Aşağıdaki proseduru boş bir Excel de çalıştırıp deneyin.

Kod: 
Sub test()
    Dim ie As Object, iban As String, sube As String
   
    iban = "TR500001200921000001048861"
   
    Set ie = CreateObject("InternetExplorer.Application")
          
   [COLOR=DarkGreen] 'ie.Visible = True[/COLOR]
   
    ie.navigate "https://hesapno.com/cozumle_iban"
   
    Do Until ie.readystate = 4: DoEvents: Loop
    Do While ie.busy: DoEvents: Loop
   
    ie.document.getelementbyid("iban2").Value = iban
    ie.document.forms(0).submit
   
    Do Until ie.readystate = 4: DoEvents: Loop
    Do While ie.busy: DoEvents: Loop
   
    On Error Resume Next
   
    Do Until Trim(a.innertext) = "BANKA BİLGİLERİ"
        DoEvents
   
        For Each a In ie.document.Links

            If Trim(a.innertext) = "BANKA BİLGİLERİ" Then

                txt = a.parentElement.outertext

                Exit For

           End If
          
        Next
       
    Loop
   
    On Error GoTo 0
       
    arr = Split(txt, vbCrLf)
   
    [a1] = "IBAN : " & iban
   
    sube = Replace("Şube : " & arr(8) & "-" & arr(7) & " / " & UCase(arr(9)), "Ad:", "")
    sube = Replace(sube, "Kod:", "")
    sube = Replace(sube, "İL:", "")
   
    [a2] = sube
   
    ie.Quit
    
    Set ie = Nothing
End Sub
Genişletmek için tıkla ...
Üstad kod için teşekkürler. Acaba Banka adını da yazdırmak mümkün mü ?
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst