GSM numaraları ilk operatörleri bilgisi KTF çalışması.

[Asri]

GSM numaralarının ilk operatörlerinin bilgisini veren KTF çalışması.

GSM alan kodları için kaynak;
https://www.btk.gov.tr/genel-numaralandirma-plani
http://www.bthk.org/Documents/diger/Genel Plan.pdf

Kullanımı;
Hücreden sonraki rakam alan kodunun başlangıç sırası, varsayılan 1 dir.
5321111111 örnek numarası için =gsmilkoperator(C3)
05321111111 örnek numarası için =gsmilkoperator(C3;2)
+905321111111 örnek numarası için =gsmilkoperator(C3;4)

Function gsmilkoperator(veri As Range, Optional alankodubasla As Integer = 1) As String
    'Asri Akdeniz - asriakdeniz@gmail.com - www.asriakdeniz.com
    Const turktelekomkod  As String = ",501,505,506,507,552,553,554,555,559,"
    Const turkcellkod  As String = ",530,531,532,533,534,535,536,537,538,539,"
    Const vodafonekod  As String = ",540,541,542,543,544,545,546,547,548,549,"
    Const bimselkod  As String = ",551,"
    Const turkcellkibriskod  As String = ",53382,53383,53384,53385,53386,53387,53388,53910,"
    Const vodafonekibriskod  As String = ",54285,54286,54287,54288,54699,54881,54889,"

    hucre = veri.Value
    bilgi = ""
    If InStr(turkcellkibriskod, "," & Mid(hucre, alankodubasla, 5) & ",") > 0 Then
           bilgi = "Türkcell Kıbrıs"
    ElseIf InStr(vodafonekibriskod, "," & Mid(hucre, alankodubasla, 5) & ",") > 0 Then
           bilgi = "Vodafone Kıbrıs"
    ElseIf InStr(vodafonekod, "," & Mid(hucre, alankodubasla, 3) & ",") > 0 Then
           bilgi = "Vodafone"
    ElseIf InStr(bimselkod, "," & Mid(hucre, alankodubasla, 3) & ",") > 0 Then
           bilgi = "Bimcell"
    ElseIf InStr(turkcellkod, "," & Mid(hucre, alankodubasla, 3) & ",") > 0 Then
           bilgi = "Türkcell"
    ElseIf InStr(turktelekomkod, "," & Mid(hucre, alankodubasla, 3) & ",") > 0 Then
           bilgi = "Türk Telekom"
    Else
           bilgi = "Tanımsız Operatör"
    End If
     
    gsmilkoperator = bilgi
End Function

 

[Murat OSMA]

İlk operatörler için güzel ama numarasını taşıyanlar için web sorgusundan kesin sonuç gelse iyi olurdu.
Buradan da sağlanabilir gibi duruyor; https://www.turkiye.gov.tr/btk-numara-tasima?

 

[Asri]

İlk operatörler için güzel ama numarasını taşıyanlar için web sorgusundan kesin sonuç gelse iyi olurdu.
Buradan da sağlanabilir gibi duruyor; https://www.turkiye.gov.tr/btk-numara-tasima?

Teşekkür ederim. Amaç sadece ilk operatör tespiti. Yazdığınız şekilde de farklı bir sorgulamada yapılması güzel olur.