Yavaşlayan :D En Sonunda Tıkanan Döngü

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Yavaşlayan :D En Sonunda Tıkanan Döngü

İleti#1)  shoca » 13 May 2011 00:19

Merhaba Arkadaşlar,
Sorun şuki Türkiyedeki Tüm iller ve bu illere ait ilçelerin ayrı birer kodu var...
Excel üzerinden il ve ilçeler 4 ve 5 sutunlarda yer almakta ve İ=1 den kaç kayıt varsa o kadar il ve ilçenin birleşimini arayıp 6. sutunu kodu yazıyor,,,200-1000 arası iil ve ilçe olduğunda yavaşta olsa çalışıyor ancak 5,000-10,000 gibi bir veriyi kontrole zorlayınca tıkanıp kalıyor...
Çözmek için önce kontrol etmesi gereken veriyi 4 e böldüm kodlara bakınca anlayacağınız gibi ama daha sağlıklı bir yol var mı :D

Örnek: satır4=ADANA satır5=CEYHAN kodda ADANACEYHAN=01##03 bunu bulup satır6 ya 01##03 idafesini yazıyor.
Ancak 1428 kod datası var :D kontrol etmesi gereken veri 5,000-10,000 olunca 14,280,000 döngü çıkıyor :D

4 butonda ki hali.... ;

Kod: Tümünü seç
Private Sub CommandButton1_Click()

   Range("F2:F64000").Select
   ActiveWindow.SmallScroll Down:=-36
   Selection.ClearContents


Dim i As Integer  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For i = 2 To Sayfa2.Cells(1, 9).Text


If Cells(i, 4) & Cells(i, 5) = "ADANAALADAĞ" Then
Sayfa1.Cells(i, 6) = "01##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANACEYHAN" Then Sayfa1.Cells(i, 6) = "01##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANAÇUKUROVA" Then Sayfa1.Cells(i, 6) = "01##70"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANADİĞER" Then Sayfa1.Cells(i, 6) = "01##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANAFEKE" Then Sayfa1.Cells(i, 6) = "01##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANAİMAMOĞLU" Then Sayfa1.Cells(i, 6) = "01##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANAKARAİSALI" Then Sayfa1.Cells(i, 6) = "01##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANAKARATAŞ" Then Sayfa1.Cells(i, 6) = "01##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANAKOZAN" Then Sayfa1.Cells(i, 6) = "01##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANAPOZANTI" Then Sayfa1.Cells(i, 6) = "01##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANASAİMBEYLİ" Then Sayfa1.Cells(i, 6) = "01##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANASARIÇAM" Then Sayfa1.Cells(i, 6) = "01##71"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANASEYHAN" Then Sayfa1.Cells(i, 6) = "01##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANATUFANBEYLİ" Then Sayfa1.Cells(i, 6) = "01##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANAYUMURTALIK" Then Sayfa1.Cells(i, 6) = "01##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADANAYÜREĞİR" Then Sayfa1.Cells(i, 6) = "01##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADIYAMANBESNİ" Then Sayfa1.Cells(i, 6) = "02##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADIYAMANÇELİKHAN" Then Sayfa1.Cells(i, 6) = "02##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADIYAMANDİĞER" Then Sayfa1.Cells(i, 6) = "02##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADIYAMANGERGER" Then Sayfa1.Cells(i, 6) = "02##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADIYAMANGÖLBAŞI" Then Sayfa1.Cells(i, 6) = "02##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADIYAMANKAHTA" Then Sayfa1.Cells(i, 6) = "02##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADIYAMANMERKEZ" Then Sayfa1.Cells(i, 6) = "02##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADIYAMANSAMSAT" Then Sayfa1.Cells(i, 6) = "02##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADIYAMANSİNCİK" Then Sayfa1.Cells(i, 6) = "02##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADIYAMANTUT" Then Sayfa1.Cells(i, 6) = "02##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARBAŞMAKÇI" Then Sayfa1.Cells(i, 6) = "03##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARBAYAT" Then Sayfa1.Cells(i, 6) = "03##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARBOLVADİN" Then Sayfa1.Cells(i, 6) = "03##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARÇAY" Then Sayfa1.Cells(i, 6) = "03##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARÇOBANLAR" Then Sayfa1.Cells(i, 6) = "03##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARDAZKIRI" Then Sayfa1.Cells(i, 6) = "03##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARDİĞER" Then Sayfa1.Cells(i, 6) = "03##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARDİNAR" Then Sayfa1.Cells(i, 6) = "03##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSAREMİRDAĞ" Then Sayfa1.Cells(i, 6) = "03##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSAREVCİLER" Then Sayfa1.Cells(i, 6) = "03##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARHOCALAR" Then Sayfa1.Cells(i, 6) = "03##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARİHSANİYE" Then Sayfa1.Cells(i, 6) = "03##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARİŞÇEHİSAR" Then Sayfa1.Cells(i, 6) = "03##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARKIZILÖREN" Then Sayfa1.Cells(i, 6) = "03##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARMERKEZ" Then Sayfa1.Cells(i, 6) = "03##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARSANDIKLI" Then Sayfa1.Cells(i, 6) = "03##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARSİNANPAŞA" Then Sayfa1.Cells(i, 6) = "03##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARŞUHUT" Then Sayfa1.Cells(i, 6) = "03##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKARAHİSARSULTANDAĞI" Then Sayfa1.Cells(i, 6) = "03##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONBAŞMAKÇI" Then Sayfa1.Cells(i, 6) = "03##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONBAYAT" Then Sayfa1.Cells(i, 6) = "03##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONBOLVADİN" Then Sayfa1.Cells(i, 6) = "03##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONÇAY" Then Sayfa1.Cells(i, 6) = "03##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONÇOBANLAR" Then Sayfa1.Cells(i, 6) = "03##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONDAZKIRI" Then Sayfa1.Cells(i, 6) = "03##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONDİĞER" Then Sayfa1.Cells(i, 6) = "03##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONDİNAR" Then Sayfa1.Cells(i, 6) = "03##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONEMİRDAĞ" Then Sayfa1.Cells(i, 6) = "03##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONEVCİLER" Then Sayfa1.Cells(i, 6) = "03##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONHOCALAR" Then Sayfa1.Cells(i, 6) = "03##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONİHSANİYE" Then Sayfa1.Cells(i, 6) = "03##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONİŞÇEHİSAR" Then Sayfa1.Cells(i, 6) = "03##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONKIZILÖREN" Then Sayfa1.Cells(i, 6) = "03##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONMERKEZ" Then Sayfa1.Cells(i, 6) = "03##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONSANDIKLI" Then Sayfa1.Cells(i, 6) = "03##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONSİNANPAŞA" Then Sayfa1.Cells(i, 6) = "03##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONŞUHUT" Then Sayfa1.Cells(i, 6) = "03##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "AFYONSULTANDAĞI" Then Sayfa1.Cells(i, 6) = "03##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "AĞRIDİĞER" Then Sayfa1.Cells(i, 6) = "04##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "AĞRIDİYADİN" Then Sayfa1.Cells(i, 6) = "04##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "AĞRIDOĞUBEYAZIT" Then Sayfa1.Cells(i, 6) = "04##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "AĞRIELEŞKİRT" Then Sayfa1.Cells(i, 6) = "04##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "AĞRIHAMUR" Then Sayfa1.Cells(i, 6) = "04##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "AĞRIMERKEZ" Then Sayfa1.Cells(i, 6) = "04##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "AĞRIPATNOS" Then Sayfa1.Cells(i, 6) = "04##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "AĞRITAŞLIÇAY" Then Sayfa1.Cells(i, 6) = "04##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "AĞRITUTAK" Then Sayfa1.Cells(i, 6) = "04##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "AKSARAYAĞAÇÖREN" Then Sayfa1.Cells(i, 6) = "68##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "AKSARAYDİĞER" Then Sayfa1.Cells(i, 6) = "68##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "AKSARAYESKİL" Then Sayfa1.Cells(i, 6) = "68##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "AKSARAYGÜLAĞAÇ" Then Sayfa1.Cells(i, 6) = "68##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "AKSARAYGÜZELYURT" Then Sayfa1.Cells(i, 6) = "68##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "AKSARAYMERKEZ" Then Sayfa1.Cells(i, 6) = "68##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "AKSARAYORTAKÖY" Then Sayfa1.Cells(i, 6) = "68##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "AKSARAYSARIYAHŞİ" Then Sayfa1.Cells(i, 6) = "68##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "AMASYADİĞER" Then Sayfa1.Cells(i, 6) = "05##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "AMASYAGÖYNÜCEK" Then Sayfa1.Cells(i, 6) = "05##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "AMASYAGÜMÜŞHACIKÖY" Then Sayfa1.Cells(i, 6) = "05##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "AMASYAHAMAMÖZÜ" Then Sayfa1.Cells(i, 6) = "05##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "AMASYAMERKEZ" Then Sayfa1.Cells(i, 6) = "05##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "AMASYAMERZİFON" Then Sayfa1.Cells(i, 6) = "05##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "AMASYASULUOVA" Then Sayfa1.Cells(i, 6) = "05##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "AMASYATAŞOVA" Then Sayfa1.Cells(i, 6) = "05##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAAKYURT" Then Sayfa1.Cells(i, 6) = "06##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAALTINDAĞ" Then Sayfa1.Cells(i, 6) = "06##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAAYAŞ" Then Sayfa1.Cells(i, 6) = "06##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARABALA" Then Sayfa1.Cells(i, 6) = "06##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARABEYPAZARI" Then Sayfa1.Cells(i, 6) = "06##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAÇAMLIDERE" Then Sayfa1.Cells(i, 6) = "06##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAÇANKAYA" Then Sayfa1.Cells(i, 6) = "06##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARASIHHİYE" Then Sayfa1.Cells(i, 6) = "06##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARABAHÇELİEVLER " Then Sayfa1.Cells(i, 6) = "06##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARACEBECİ" Then Sayfa1.Cells(i, 6) = "06##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAÇAYYOLU" Then Sayfa1.Cells(i, 6) = "06##35"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAÇUBUK" Then Sayfa1.Cells(i, 6) = "06##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAMERKEZ" Then Sayfa1.Cells(i, 6) = "06##97"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARADİĞER" Then Sayfa1.Cells(i, 6) = "06##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAELMADAĞ" Then Sayfa1.Cells(i, 6) = "06##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAETİMESGUT" Then Sayfa1.Cells(i, 6) = "06##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAEVREN" Then Sayfa1.Cells(i, 6) = "06##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARADİKMEN" Then Sayfa1.Cells(i, 6) = "06##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAKIZILAY" Then Sayfa1.Cells(i, 6) = "06##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARABİLKENT" Then Sayfa1.Cells(i, 6) = "06##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAOSTİM" Then Sayfa1.Cells(i, 6) = "06##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARABALGAT" Then Sayfa1.Cells(i, 6) = "06##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAETLİK" Then Sayfa1.Cells(i, 6) = "06##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAGÖLBAŞI" Then Sayfa1.Cells(i, 6) = "06##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAGÜDÜL" Then Sayfa1.Cells(i, 6) = "06##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAHAYMANA" Then Sayfa1.Cells(i, 6) = "06##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAKALECİK" Then Sayfa1.Cells(i, 6) = "06##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAKAZAN" Then Sayfa1.Cells(i, 6) = "06##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAKEÇİÖREN" Then Sayfa1.Cells(i, 6) = "06##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAKIZILCAHAMAM" Then Sayfa1.Cells(i, 6) = "06##21"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAMAMAK" Then Sayfa1.Cells(i, 6) = "06##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARANALLIHAN" Then Sayfa1.Cells(i, 6) = "06##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAPOLATLI" Then Sayfa1.Cells(i, 6) = "06##23"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAPURSAKLAR" Then Sayfa1.Cells(i, 6) = "06##33"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAŞEREFLİKOÇHİSAR" Then Sayfa1.Cells(i, 6) = "06##24"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARASİNCAN" Then Sayfa1.Cells(i, 6) = "06##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAÜMİTKÖY" Then Sayfa1.Cells(i, 6) = "06##34"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAYENİMAHALLE" Then Sayfa1.Cells(i, 6) = "06##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARADEMETEVLER" Then Sayfa1.Cells(i, 6) = "06##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARABATIKENT" Then Sayfa1.Cells(i, 6) = "06##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANKARAÇAYYOLU" Then Sayfa1.Cells(i, 6) = "06##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAAKSEKİ" Then Sayfa1.Cells(i, 6) = "07##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAAKSU" Then Sayfa1.Cells(i, 6) = "07##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAALANYA" Then Sayfa1.Cells(i, 6) = "07##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYADEMRE" Then Sayfa1.Cells(i, 6) = "07##50"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYADİĞER" Then Sayfa1.Cells(i, 6) = "07##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYADÖŞEMEALTI" Then Sayfa1.Cells(i, 6) = "07##49"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAELMALI" Then Sayfa1.Cells(i, 6) = "07##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAFİNİKE" Then Sayfa1.Cells(i, 6) = "07##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAGAZİPAŞA" Then Sayfa1.Cells(i, 6) = "07##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAGÜNDOĞMUŞ" Then Sayfa1.Cells(i, 6) = "07##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAİBRADİ" Then Sayfa1.Cells(i, 6) = "07##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAKAŞ" Then Sayfa1.Cells(i, 6) = "07##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAKEMER" Then Sayfa1.Cells(i, 6) = "07##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAKEPEZ" Then Sayfa1.Cells(i, 6) = "07##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAKONYAALTI" Then Sayfa1.Cells(i, 6) = "07##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAKORKUTELİ" Then Sayfa1.Cells(i, 6) = "07##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAKUMLUCA" Then Sayfa1.Cells(i, 6) = "07##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAMANAVGAT" Then Sayfa1.Cells(i, 6) = "07##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAMERKEZ" Then Sayfa1.Cells(i, 6) = "07##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYAMURATPAŞA" Then Sayfa1.Cells(i, 6) = "07##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTALYASERİK" Then Sayfa1.Cells(i, 6) = "07##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARDAHANÇILDIR" Then Sayfa1.Cells(i, 6) = "75##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARDAHANDAMAL" Then Sayfa1.Cells(i, 6) = "75##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARDAHANDİĞER" Then Sayfa1.Cells(i, 6) = "75##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARDAHANGÖLE" Then Sayfa1.Cells(i, 6) = "75##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARDAHANHANAK" Then Sayfa1.Cells(i, 6) = "75##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARDAHANMERKEZ" Then Sayfa1.Cells(i, 6) = "75##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARDAHANPOSOF" Then Sayfa1.Cells(i, 6) = "75##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARTVİNARDANUÇ" Then Sayfa1.Cells(i, 6) = "08##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARTVİNARHAVİ" Then Sayfa1.Cells(i, 6) = "08##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARTVİNBORÇKA" Then Sayfa1.Cells(i, 6) = "08##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARTVİNDİĞER" Then Sayfa1.Cells(i, 6) = "08##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARTVİNHOPA" Then Sayfa1.Cells(i, 6) = "08##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARTVİNMERKEZ" Then Sayfa1.Cells(i, 6) = "08##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARTVİNMURGUL" Then Sayfa1.Cells(i, 6) = "08##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARTVİNŞAVŞAT" Then Sayfa1.Cells(i, 6) = "08##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ARTVİNYUSUFELİ" Then Sayfa1.Cells(i, 6) = "08##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINBOZDOĞAN" Then Sayfa1.Cells(i, 6) = "09##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINBUHARKENT" Then Sayfa1.Cells(i, 6) = "09##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINÇİNE" Then Sayfa1.Cells(i, 6) = "09##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINDİDİM" Then Sayfa1.Cells(i, 6) = "09##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINDİĞER" Then Sayfa1.Cells(i, 6) = "09##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINGERMENCİK" Then Sayfa1.Cells(i, 6) = "09##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINİNCİRLİOVA" Then Sayfa1.Cells(i, 6) = "09##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINKARACASU" Then Sayfa1.Cells(i, 6) = "09##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINKARPUZLU" Then Sayfa1.Cells(i, 6) = "09##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINKOÇARLI" Then Sayfa1.Cells(i, 6) = "09##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINKÖŞK" Then Sayfa1.Cells(i, 6) = "09##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINKUŞADASI" Then Sayfa1.Cells(i, 6) = "09##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINKUYUCAK" Then Sayfa1.Cells(i, 6) = "09##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINMERKEZ" Then Sayfa1.Cells(i, 6) = "09##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINNAZİLLİ" Then Sayfa1.Cells(i, 6) = "09##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINSÖKE" Then Sayfa1.Cells(i, 6) = "09##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINSULTANHİSAR" Then Sayfa1.Cells(i, 6) = "09##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "AYDINYENİPAZAR" Then Sayfa1.Cells(i, 6) = "09##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRAYVALIK" Then Sayfa1.Cells(i, 6) = "10##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRBALYA" Then Sayfa1.Cells(i, 6) = "10##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRBANDIRMA" Then Sayfa1.Cells(i, 6) = "10##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRBİGADİÇ" Then Sayfa1.Cells(i, 6) = "10##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRBURHANİYE" Then Sayfa1.Cells(i, 6) = "10##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRDİĞER" Then Sayfa1.Cells(i, 6) = "10##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRDURSUNBEY" Then Sayfa1.Cells(i, 6) = "10##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİREDREMİT" Then Sayfa1.Cells(i, 6) = "10##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRERDEK" Then Sayfa1.Cells(i, 6) = "10##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRGÖMEÇ" Then Sayfa1.Cells(i, 6) = "10##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRGÖNEN" Then Sayfa1.Cells(i, 6) = "10##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRHAVRAN" Then Sayfa1.Cells(i, 6) = "10##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRİVRİNDİ" Then Sayfa1.Cells(i, 6) = "10##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRKEBSUT" Then Sayfa1.Cells(i, 6) = "10##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRMANYAS" Then Sayfa1.Cells(i, 6) = "10##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRMARMARA" Then Sayfa1.Cells(i, 6) = "10##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRMERKEZ" Then Sayfa1.Cells(i, 6) = "10##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRSAVAŞTEPE" Then Sayfa1.Cells(i, 6) = "10##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRSINDIRGI" Then Sayfa1.Cells(i, 6) = "10##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "BALIKESİRSUSURLUK" Then Sayfa1.Cells(i, 6) = "10##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "BARTINAMASRA" Then Sayfa1.Cells(i, 6) = "74##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "BARTINDİĞER" Then Sayfa1.Cells(i, 6) = "74##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "BARTINKURUCAŞİLE" Then Sayfa1.Cells(i, 6) = "74##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "BARTINMERKEZ" Then Sayfa1.Cells(i, 6) = "74##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "BARTINULUS" Then Sayfa1.Cells(i, 6) = "74##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "BATMANBEŞİRİ" Then Sayfa1.Cells(i, 6) = "72##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "BATMANDİĞER" Then Sayfa1.Cells(i, 6) = "72##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "BATMANGERCÜŞ" Then Sayfa1.Cells(i, 6) = "72##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "BATMANHASANKEYF" Then Sayfa1.Cells(i, 6) = "72##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "BATMANKOZLUK" Then Sayfa1.Cells(i, 6) = "72##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "BATMANMERKEZ" Then Sayfa1.Cells(i, 6) = "72##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "BATMANSASON" Then Sayfa1.Cells(i, 6) = "72##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "BAYBURTAYDINTEPE" Then Sayfa1.Cells(i, 6) = "69##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "BAYBURTDEMİRÖZÜ" Then Sayfa1.Cells(i, 6) = "69##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "BAYBURTDİĞER" Then Sayfa1.Cells(i, 6) = "69##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "BAYBURTMERKEZ" Then Sayfa1.Cells(i, 6) = "69##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİLECİKBOZÜYÜK" Then Sayfa1.Cells(i, 6) = "11##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİLECİKDİĞER" Then Sayfa1.Cells(i, 6) = "11##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİLECİKGÖLPAZARI" Then Sayfa1.Cells(i, 6) = "11##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİLECİKİNHİSAR" Then Sayfa1.Cells(i, 6) = "11##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİLECİKMERKEZ" Then Sayfa1.Cells(i, 6) = "11##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİLECİKOSMANELİ" Then Sayfa1.Cells(i, 6) = "11##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİLECİKPAZARYERİ" Then Sayfa1.Cells(i, 6) = "11##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİLECİKSÖĞÜT" Then Sayfa1.Cells(i, 6) = "11##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİLECİKYENİPAZAR" Then Sayfa1.Cells(i, 6) = "11##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİNGÖLADAKLI" Then Sayfa1.Cells(i, 6) = "12##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİNGÖLDİĞER" Then Sayfa1.Cells(i, 6) = "12##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİNGÖLGENÇ" Then Sayfa1.Cells(i, 6) = "12##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİNGÖLKARLIOVA" Then Sayfa1.Cells(i, 6) = "12##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİNGÖLKIĞI" Then Sayfa1.Cells(i, 6) = "12##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİNGÖLMERKEZ" Then Sayfa1.Cells(i, 6) = "12##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİNGÖLSOLHAN" Then Sayfa1.Cells(i, 6) = "12##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİNGÖLYAYLADERE" Then Sayfa1.Cells(i, 6) = "12##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİNGÖLYEDİSU" Then Sayfa1.Cells(i, 6) = "12##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİTLİSADİLCEVAZ" Then Sayfa1.Cells(i, 6) = "13##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİTLİSAHLAT" Then Sayfa1.Cells(i, 6) = "13##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİTLİSDİĞER" Then Sayfa1.Cells(i, 6) = "13##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİTLİSGÜROYMAK" Then Sayfa1.Cells(i, 6) = "13##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİTLİSHİZAN" Then Sayfa1.Cells(i, 6) = "13##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİTLİSMERKEZ" Then Sayfa1.Cells(i, 6) = "13##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİTLİSMUTKİ" Then Sayfa1.Cells(i, 6) = "13##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "BİTLİSTATVAN" Then Sayfa1.Cells(i, 6) = "13##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "BOLUDİĞER" Then Sayfa1.Cells(i, 6) = "14##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "BOLUDÖRTDİVAN" Then Sayfa1.Cells(i, 6) = "14##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "BOLUGEREDE" Then Sayfa1.Cells(i, 6) = "14##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "BOLUGÖYNÜK" Then Sayfa1.Cells(i, 6) = "14##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "BOLUKIBRISÇIK" Then Sayfa1.Cells(i, 6) = "14##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "BOLUMENGEN" Then Sayfa1.Cells(i, 6) = "14##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "BOLUMERKEZ" Then Sayfa1.Cells(i, 6) = "14##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "BOLUMUDURNU" Then Sayfa1.Cells(i, 6) = "14##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "BOLUSEBEN" Then Sayfa1.Cells(i, 6) = "14##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "BOLUYENİÇAĞA" Then Sayfa1.Cells(i, 6) = "14##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURAĞLASUN" Then Sayfa1.Cells(i, 6) = "15##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURALTINYAYLA" Then Sayfa1.Cells(i, 6) = "15##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURBUCAK" Then Sayfa1.Cells(i, 6) = "15##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURÇAVDIR" Then Sayfa1.Cells(i, 6) = "15##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURÇELTİKÇİ" Then Sayfa1.Cells(i, 6) = "15##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURDİĞER" Then Sayfa1.Cells(i, 6) = "15##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURGÖLHİSAR" Then Sayfa1.Cells(i, 6) = "15##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURKARAMANLI" Then Sayfa1.Cells(i, 6) = "15##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURKEMER" Then Sayfa1.Cells(i, 6) = "15##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURMERKEZ" Then Sayfa1.Cells(i, 6) = "15##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURTEFENNİ" Then Sayfa1.Cells(i, 6) = "15##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURDURYEŞİLOVA" Then Sayfa1.Cells(i, 6) = "15##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSABÜYÜKORHAN" Then Sayfa1.Cells(i, 6) = "16##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAMERKEZ" Then Sayfa1.Cells(i, 6) = "16##99"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSABURSA" Then Sayfa1.Cells(i, 6) = "16##99"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSADİĞER" Then Sayfa1.Cells(i, 6) = "16##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAGEMLİK" Then Sayfa1.Cells(i, 6) = "16##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAGÜRSU" Then Sayfa1.Cells(i, 6) = "16##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAOVAAKÇA" Then Sayfa1.Cells(i, 6) = "16##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAHARMANCIK" Then Sayfa1.Cells(i, 6) = "16##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAİNEGÖL" Then Sayfa1.Cells(i, 6) = "16##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAİZNİK" Then Sayfa1.Cells(i, 6) = "16##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAKARACABEY" Then Sayfa1.Cells(i, 6) = "16##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAKELES" Then Sayfa1.Cells(i, 6) = "16##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAKESTEL" Then Sayfa1.Cells(i, 6) = "16##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAM.KEMALPAŞA" Then Sayfa1.Cells(i, 6) = "16##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAMUSTAFAKEMALPAŞA" Then Sayfa1.Cells(i, 6) = "16##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAMUDANYA" Then Sayfa1.Cells(i, 6) = "16##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSANİLÜFER" Then Sayfa1.Cells(i, 6) = "16##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAORHANELİ" Then Sayfa1.Cells(i, 6) = "16##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAORHANGAZİ" Then Sayfa1.Cells(i, 6) = "16##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAOSMANGAZİ" Then Sayfa1.Cells(i, 6) = "16##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAYENİŞEHİR" Then Sayfa1.Cells(i, 6) = "16##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "BURSAYILDIRIM" Then Sayfa1.Cells(i, 6) = "16##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEAYVACIK" Then Sayfa1.Cells(i, 6) = "17##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEBAYRAMİÇ" Then Sayfa1.Cells(i, 6) = "17##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEBİGA" Then Sayfa1.Cells(i, 6) = "17##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEBOZCAADA" Then Sayfa1.Cells(i, 6) = "17##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEÇAN" Then Sayfa1.Cells(i, 6) = "17##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEDİĞER" Then Sayfa1.Cells(i, 6) = "17##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEECEABAT" Then Sayfa1.Cells(i, 6) = "17##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEEZİNE" Then Sayfa1.Cells(i, 6) = "17##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEGELİBOLU" Then Sayfa1.Cells(i, 6) = "17##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEGÖKÇEADA" Then Sayfa1.Cells(i, 6) = "17##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALELAPSEKİ" Then Sayfa1.Cells(i, 6) = "17##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEMERKEZ" Then Sayfa1.Cells(i, 6) = "17##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANAKKALEYENİCE" Then Sayfa1.Cells(i, 6) = "17##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIATKARACALAR" Then Sayfa1.Cells(i, 6) = "18##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIBAYRAMÖREN" Then Sayfa1.Cells(i, 6) = "18##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIÇERKEŞ" Then Sayfa1.Cells(i, 6) = "18##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIDİĞER" Then Sayfa1.Cells(i, 6) = "18##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIELDİVAN" Then Sayfa1.Cells(i, 6) = "18##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIILGAZ" Then Sayfa1.Cells(i, 6) = "18##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIKIZILIRMAK" Then Sayfa1.Cells(i, 6) = "18##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIKORGUN" Then Sayfa1.Cells(i, 6) = "18##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIKURŞUNLU" Then Sayfa1.Cells(i, 6) = "18##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIMERKEZ" Then Sayfa1.Cells(i, 6) = "18##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIORTA" Then Sayfa1.Cells(i, 6) = "18##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIŞABANÖZÜ" Then Sayfa1.Cells(i, 6) = "18##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇANKIRIYAPRAKLI" Then Sayfa1.Cells(i, 6) = "18##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMALACA" Then Sayfa1.Cells(i, 6) = "19##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMBAYAT" Then Sayfa1.Cells(i, 6) = "19##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMBOĞAZKALE" Then Sayfa1.Cells(i, 6) = "19##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMDİĞER" Then Sayfa1.Cells(i, 6) = "19##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMDODURGA" Then Sayfa1.Cells(i, 6) = "19##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMİSKİLİP" Then Sayfa1.Cells(i, 6) = "19##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMKARGI" Then Sayfa1.Cells(i, 6) = "19##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMLAÇİN" Then Sayfa1.Cells(i, 6) = "19##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMMECİTÖZÜ" Then Sayfa1.Cells(i, 6) = "19##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMMERKEZ" Then Sayfa1.Cells(i, 6) = "19##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMOĞUZLAR" Then Sayfa1.Cells(i, 6) = "19##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMORTAKÖY" Then Sayfa1.Cells(i, 6) = "19##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMOSMANCIK" Then Sayfa1.Cells(i, 6) = "19##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMSUNGURLU" Then Sayfa1.Cells(i, 6) = "19##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "ÇORUMUĞURLUDAĞ" Then Sayfa1.Cells(i, 6) = "19##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİACIPAYAM" Then Sayfa1.Cells(i, 6) = "20##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİAKKÖY" Then Sayfa1.Cells(i, 6) = "20##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİBABADAĞ" Then Sayfa1.Cells(i, 6) = "20##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİBAKLAN" Then Sayfa1.Cells(i, 6) = "20##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİBEKİLLİ" Then Sayfa1.Cells(i, 6) = "20##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİBEYAĞAÇ" Then Sayfa1.Cells(i, 6) = "20##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİBOZKURT" Then Sayfa1.Cells(i, 6) = "20##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİBULDAN" Then Sayfa1.Cells(i, 6) = "20##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİÇAL" Then Sayfa1.Cells(i, 6) = "20##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİÇAMELİ" Then Sayfa1.Cells(i, 6) = "20##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİÇARDAK" Then Sayfa1.Cells(i, 6) = "20##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİÇİVRİL" Then Sayfa1.Cells(i, 6) = "20##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİDİĞER" Then Sayfa1.Cells(i, 6) = "20##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİGÜNEY" Then Sayfa1.Cells(i, 6) = "20##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİHONAS" Then Sayfa1.Cells(i, 6) = "20##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİKALE" Then Sayfa1.Cells(i, 6) = "20##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİMERKEZ" Then Sayfa1.Cells(i, 6) = "20##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİSARAYKÖY" Then Sayfa1.Cells(i, 6) = "20##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİSERİNHİSAR" Then Sayfa1.Cells(i, 6) = "20##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "DENİZLİTAVAS" Then Sayfa1.Cells(i, 6) = "20##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRBAĞLAR" Then Sayfa1.Cells(i, 6) = "21##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRBİSMİL" Then Sayfa1.Cells(i, 6) = "21##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRÇERMİK" Then Sayfa1.Cells(i, 6) = "21##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRÇINAR" Then Sayfa1.Cells(i, 6) = "21##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRÇÜNGÜŞ" Then Sayfa1.Cells(i, 6) = "21##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRDİCLE" Then Sayfa1.Cells(i, 6) = "21##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRDİĞER" Then Sayfa1.Cells(i, 6) = "21##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIREĞİL" Then Sayfa1.Cells(i, 6) = "21##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRERGANİ" Then Sayfa1.Cells(i, 6) = "21##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRHANİ" Then Sayfa1.Cells(i, 6) = "21##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRHAZRO" Then Sayfa1.Cells(i, 6) = "21##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRKAYAPINAR" Then Sayfa1.Cells(i, 6) = "21##70"
End If
Next i
End Sub




Kod: Tümünü seç
Private Sub CommandButton12_Click() '''''''''''''''''22222222
Dim i As Integer
For i = 2 To Sayfa2.Cells(1, 9).Text

If Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRKOCAKÖY" Then
Sayfa1.Cells(i, 6) = "21##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRKULP" Then Sayfa1.Cells(i, 6) = "21##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRLİCE" Then Sayfa1.Cells(i, 6) = "21##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRMERKEZ" Then Sayfa1.Cells(i, 6) = "21##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRSİLVAN" Then Sayfa1.Cells(i, 6) = "21##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRSUR" Then Sayfa1.Cells(i, 6) = "21##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "DİYARBAKIRYENİŞEHİR" Then Sayfa1.Cells(i, 6) = "21##71"
ElseIf Cells(i, 4) & Cells(i, 5) = "DÜZCEAKÇAKOCA" Then Sayfa1.Cells(i, 6) = "81##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "DÜZCEÇİLİMLİ" Then Sayfa1.Cells(i, 6) = "81##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "DÜZCECUMAYERİ" Then Sayfa1.Cells(i, 6) = "81##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "DÜZCEDİĞER" Then Sayfa1.Cells(i, 6) = "81##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "DÜZCEGÖLYAKA" Then Sayfa1.Cells(i, 6) = "81##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "DÜZCEGÜMÜŞOVA" Then Sayfa1.Cells(i, 6) = "81##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "DÜZCEKAYNAŞLI" Then Sayfa1.Cells(i, 6) = "81##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "DÜZCEMERKEZ" Then Sayfa1.Cells(i, 6) = "81##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "DÜZCEYIĞILCA" Then Sayfa1.Cells(i, 6) = "81##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "EDİRNEDİĞER" Then Sayfa1.Cells(i, 6) = "22##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "EDİRNEENEZ" Then Sayfa1.Cells(i, 6) = "22##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "EDİRNEHAVSA" Then Sayfa1.Cells(i, 6) = "22##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "EDİRNEİPSALA" Then Sayfa1.Cells(i, 6) = "22##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "EDİRNEKEŞAN" Then Sayfa1.Cells(i, 6) = "22##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "EDİRNELALAPAŞA" Then Sayfa1.Cells(i, 6) = "22##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "EDİRNEMERİÇ" Then Sayfa1.Cells(i, 6) = "22##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "EDİRNEMERKEZ" Then Sayfa1.Cells(i, 6) = "22##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "EDİRNESÜLOĞLU" Then Sayfa1.Cells(i, 6) = "22##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "EDİRNEUZUNKÖPRÜ" Then Sayfa1.Cells(i, 6) = "22##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞAĞIN" Then Sayfa1.Cells(i, 6) = "23##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞALACAKAYA" Then Sayfa1.Cells(i, 6) = "23##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞARICAK" Then Sayfa1.Cells(i, 6) = "23##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞBASKİL" Then Sayfa1.Cells(i, 6) = "23##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞDİĞER" Then Sayfa1.Cells(i, 6) = "23##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞKARAKOÇAN" Then Sayfa1.Cells(i, 6) = "23##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞKEBAN" Then Sayfa1.Cells(i, 6) = "23##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞKOVANCILAR" Then Sayfa1.Cells(i, 6) = "23##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞMADEN" Then Sayfa1.Cells(i, 6) = "23##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞMERKEZ" Then Sayfa1.Cells(i, 6) = "23##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞPALU" Then Sayfa1.Cells(i, 6) = "23##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ELAZIĞSİVRİCE" Then Sayfa1.Cells(i, 6) = "23##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZİNCANÇAYIRLI" Then Sayfa1.Cells(i, 6) = "24##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZİNCANDİĞER" Then Sayfa1.Cells(i, 6) = "24##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZİNCANİLİÇ" Then Sayfa1.Cells(i, 6) = "24##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZİNCANKEMAH" Then Sayfa1.Cells(i, 6) = "24##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZİNCANKEMALİYE" Then Sayfa1.Cells(i, 6) = "24##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZİNCANMERKEZ" Then Sayfa1.Cells(i, 6) = "24##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZİNCANOTLUKBELİ" Then Sayfa1.Cells(i, 6) = "24##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZİNCANREFAHİYE" Then Sayfa1.Cells(i, 6) = "24##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZİNCANTERCAN" Then Sayfa1.Cells(i, 6) = "24##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZİNCANÜZÜMLÜ" Then Sayfa1.Cells(i, 6) = "24##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMAŞKALE" Then Sayfa1.Cells(i, 6) = "25##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMAZİZİYE" Then Sayfa1.Cells(i, 6) = "25##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMÇAT" Then Sayfa1.Cells(i, 6) = "25##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMDİĞER" Then Sayfa1.Cells(i, 6) = "25##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMHINIS" Then Sayfa1.Cells(i, 6) = "25##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMHORASAN" Then Sayfa1.Cells(i, 6) = "25##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMİSPİR" Then Sayfa1.Cells(i, 6) = "25##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMKARAÇOBAN" Then Sayfa1.Cells(i, 6) = "25##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMKARAYAZI" Then Sayfa1.Cells(i, 6) = "25##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMKÖPRÜKÖY" Then Sayfa1.Cells(i, 6) = "25##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMMERKEZ" Then Sayfa1.Cells(i, 6) = "25##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMNARMAN" Then Sayfa1.Cells(i, 6) = "25##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMOLTU" Then Sayfa1.Cells(i, 6) = "25##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMOLUR" Then Sayfa1.Cells(i, 6) = "25##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMPALANDÖKEN" Then Sayfa1.Cells(i, 6) = "25##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMPASİNLER" Then Sayfa1.Cells(i, 6) = "25##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMPAZARYOLU" Then Sayfa1.Cells(i, 6) = "25##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMŞENKAYA" Then Sayfa1.Cells(i, 6) = "25##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMTEKMAN" Then Sayfa1.Cells(i, 6) = "25##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMTORTUM" Then Sayfa1.Cells(i, 6) = "25##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMUZUNDERE" Then Sayfa1.Cells(i, 6) = "25##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "ERZURUMYAKUTİYE" Then Sayfa1.Cells(i, 6) = "25##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRALPU" Then Sayfa1.Cells(i, 6) = "26##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRBEYLİKOVA" Then Sayfa1.Cells(i, 6) = "26##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRÇİFTELER" Then Sayfa1.Cells(i, 6) = "26##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRDİĞER" Then Sayfa1.Cells(i, 6) = "26##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRGÜNYÜZÜ" Then Sayfa1.Cells(i, 6) = "26##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRHAN" Then Sayfa1.Cells(i, 6) = "26##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRİNÖNÜ" Then Sayfa1.Cells(i, 6) = "26##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRMAHMUDİYE" Then Sayfa1.Cells(i, 6) = "26##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRMERKEZ" Then Sayfa1.Cells(i, 6) = "26##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRMİHALGAZİ" Then Sayfa1.Cells(i, 6) = "26##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRMİHALLIÇÇIK" Then Sayfa1.Cells(i, 6) = "26##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRODUNPAZARI" Then Sayfa1.Cells(i, 6) = "26##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRSARICAKAYA" Then Sayfa1.Cells(i, 6) = "26##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRSEYİTGAZİ" Then Sayfa1.Cells(i, 6) = "26##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRSİVRİHİSAR" Then Sayfa1.Cells(i, 6) = "26##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "ESKİŞEHİRTEPEBAŞI" Then Sayfa1.Cells(i, 6) = "26##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "GAZİANTEPARABAN" Then Sayfa1.Cells(i, 6) = "27##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "GAZİANTEPDİĞER" Then Sayfa1.Cells(i, 6) = "27##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "GAZİANTEPİSLAHİYE" Then Sayfa1.Cells(i, 6) = "27##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "GAZİANTEPKARKAMIŞ" Then Sayfa1.Cells(i, 6) = "27##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "GAZİANTEPNİZİP" Then Sayfa1.Cells(i, 6) = "27##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "GAZİANTEPNURDAĞI" Then Sayfa1.Cells(i, 6) = "27##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "GAZİANTEPOĞUZELİ" Then Sayfa1.Cells(i, 6) = "27##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "GAZİANTEPŞAHİNBEY" Then Sayfa1.Cells(i, 6) = "27##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "GAZİANTEPŞEHİTKAMİL" Then Sayfa1.Cells(i, 6) = "27##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "GAZİANTEPYAVUZELİ" Then Sayfa1.Cells(i, 6) = "27##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNALUCRA" Then Sayfa1.Cells(i, 6) = "28##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNBULANCAK" Then Sayfa1.Cells(i, 6) = "28##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNÇAMOLUK" Then Sayfa1.Cells(i, 6) = "28##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNÇANAKÇI" Then Sayfa1.Cells(i, 6) = "28##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNDERELİ" Then Sayfa1.Cells(i, 6) = "28##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNDİĞER" Then Sayfa1.Cells(i, 6) = "28##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNDOĞANKENT" Then Sayfa1.Cells(i, 6) = "28##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNESPİYE" Then Sayfa1.Cells(i, 6) = "28##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNEYNESİL" Then Sayfa1.Cells(i, 6) = "28##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNGÖRELE" Then Sayfa1.Cells(i, 6) = "28##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNGÜCE" Then Sayfa1.Cells(i, 6) = "28##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNKEŞAP" Then Sayfa1.Cells(i, 6) = "28##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNMERKEZ" Then Sayfa1.Cells(i, 6) = "28##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNPİRAZİZ" Then Sayfa1.Cells(i, 6) = "28##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNŞEBİNKARAHİSAR" Then Sayfa1.Cells(i, 6) = "28##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNTİREBOLU" Then Sayfa1.Cells(i, 6) = "28##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "GİRESUNYAĞLIDERE" Then Sayfa1.Cells(i, 6) = "28##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "GÜMÜŞHANEDİĞER" Then Sayfa1.Cells(i, 6) = "29##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "GÜMÜŞHANEKELKİT" Then Sayfa1.Cells(i, 6) = "29##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "GÜMÜŞHANEKÖSE" Then Sayfa1.Cells(i, 6) = "29##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "GÜMÜŞHANEKÜRTÜN" Then Sayfa1.Cells(i, 6) = "29##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "GÜMÜŞHANEMERKEZ" Then Sayfa1.Cells(i, 6) = "29##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "GÜMÜŞHANEŞİRAN" Then Sayfa1.Cells(i, 6) = "29##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "GÜMÜŞHANETORUL" Then Sayfa1.Cells(i, 6) = "29##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "HAKKARİÇUKURCA" Then Sayfa1.Cells(i, 6) = "30##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "HAKKARİDİĞER" Then Sayfa1.Cells(i, 6) = "30##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "HAKKARİMERKEZ" Then Sayfa1.Cells(i, 6) = "30##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "HAKKARİŞEMDİNLİ" Then Sayfa1.Cells(i, 6) = "30##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "HAKKARİYÜKSEKOVA" Then Sayfa1.Cells(i, 6) = "30##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYALTINÖZÜ" Then Sayfa1.Cells(i, 6) = "31##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYANTAKYA" Then Sayfa1.Cells(i, 6) = "31##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYMERKEZ" Then Sayfa1.Cells(i, 6) = "31##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYBELEN" Then Sayfa1.Cells(i, 6) = "31##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYDİĞER" Then Sayfa1.Cells(i, 6) = "31##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYDÖRTYOL" Then Sayfa1.Cells(i, 6) = "31##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYERZİN" Then Sayfa1.Cells(i, 6) = "31##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYHASSA" Then Sayfa1.Cells(i, 6) = "31##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYİSKENDERUN" Then Sayfa1.Cells(i, 6) = "31##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYKIRKHAN" Then Sayfa1.Cells(i, 6) = "31##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYKUMLU" Then Sayfa1.Cells(i, 6) = "31##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYREYHANLI" Then Sayfa1.Cells(i, 6) = "31##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYSAMANDAĞ" Then Sayfa1.Cells(i, 6) = "31##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "HATAYYAYLADAĞ" Then Sayfa1.Cells(i, 6) = "31##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYAALTINÖZÜ" Then Sayfa1.Cells(i, 6) = "31##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYAMERKEZ" Then Sayfa1.Cells(i, 6) = "31##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYAANTAKYA" Then Sayfa1.Cells(i, 6) = "31##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYABELEN" Then Sayfa1.Cells(i, 6) = "31##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYADİĞER" Then Sayfa1.Cells(i, 6) = "31##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYADÖRTYOL" Then Sayfa1.Cells(i, 6) = "31##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYAERZİN" Then Sayfa1.Cells(i, 6) = "31##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYAHASSA" Then Sayfa1.Cells(i, 6) = "31##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYAİSKENDERUN" Then Sayfa1.Cells(i, 6) = "31##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYAKIRKHAN" Then Sayfa1.Cells(i, 6) = "31##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYAKUMLU" Then Sayfa1.Cells(i, 6) = "31##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYAREYHANLI" Then Sayfa1.Cells(i, 6) = "31##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYASAMANDAĞ" Then Sayfa1.Cells(i, 6) = "31##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ANTAKYAYAYLADAĞ" Then Sayfa1.Cells(i, 6) = "31##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "IĞDIRARALIK" Then Sayfa1.Cells(i, 6) = "76##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "IĞDIRDİĞER" Then Sayfa1.Cells(i, 6) = "76##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "IĞDIRKARAKOYUNLU" Then Sayfa1.Cells(i, 6) = "76##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "IĞDIRMERKEZ" Then Sayfa1.Cells(i, 6) = "76##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "IĞDIRTUZLUCA" Then Sayfa1.Cells(i, 6) = "76##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTAAKSU" Then Sayfa1.Cells(i, 6) = "32##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTAATABEY" Then Sayfa1.Cells(i, 6) = "32##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTADİĞER" Then Sayfa1.Cells(i, 6) = "32##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTAEĞİRDİR" Then Sayfa1.Cells(i, 6) = "32##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTAGELENDOST" Then Sayfa1.Cells(i, 6) = "32##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTAGÖNEN" Then Sayfa1.Cells(i, 6) = "32##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTAKEÇİBORLU" Then Sayfa1.Cells(i, 6) = "32##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTAMERKEZ" Then Sayfa1.Cells(i, 6) = "32##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTAŞARKİKARAAĞAÇ" Then Sayfa1.Cells(i, 6) = "32##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTASENİRKENT" Then Sayfa1.Cells(i, 6) = "32##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTASÜTÇÜLER" Then Sayfa1.Cells(i, 6) = "32##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTAULUBORLU" Then Sayfa1.Cells(i, 6) = "32##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTAYALVAÇ" Then Sayfa1.Cells(i, 6) = "32##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ISPARTAYENİŞARBADEMLİ" Then Sayfa1.Cells(i, 6) = "32##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULADALAR" Then Sayfa1.Cells(i, 6) = "341##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBÜYÜKADA" Then Sayfa1.Cells(i, 6) = "341##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHEYBELİADA" Then Sayfa1.Cells(i, 6) = "341##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBURGAZADA" Then Sayfa1.Cells(i, 6) = "341##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKINALIADA" Then Sayfa1.Cells(i, 6) = "341##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULATAŞEHİR" Then Sayfa1.Cells(i, 6) = "341##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYENİSAHRA" Then Sayfa1.Cells(i, 6) = "341##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKÜÇÜKBAKKALKÖY" Then Sayfa1.Cells(i, 6) = "341##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULK.BAKKALKÖY" Then Sayfa1.Cells(i, 6) = "341##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULİÇERENKÖY" Then Sayfa1.Cells(i, 6) = "341##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKAYIŞDAĞI" Then Sayfa1.Cells(i, 6) = "341##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÖRNEK" Then Sayfa1.Cells(i, 6) = "341##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYENİÇAMLICA" Then Sayfa1.Cells(i, 6) = "341##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULNAMIKKEMAL" Then Sayfa1.Cells(i, 6) = "341##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFERHATPAŞA" Then Sayfa1.Cells(i, 6) = "341##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBEYKOZ" Then Sayfa1.Cells(i, 6) = "341##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULPAŞABAHÇE" Then Sayfa1.Cells(i, 6) = "341##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇUBUKLU" Then Sayfa1.Cells(i, 6) = "341##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULANADOLUHİSARI" Then Sayfa1.Cells(i, 6) = "341##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGÖKSU" Then Sayfa1.Cells(i, 6) = "341##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBEYKOZ" Then Sayfa1.Cells(i, 6) = "341##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTOKATKÖY" Then Sayfa1.Cells(i, 6) = "341##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇAVUŞBAŞI" Then Sayfa1.Cells(i, 6) = "341##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇEKMEKÖY" Then Sayfa1.Cells(i, 6) = "341##36"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULALEMDAĞ" Then Sayfa1.Cells(i, 6) = "341##36"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULALEMDAR" Then Sayfa1.Cells(i, 6) = "341##36"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÖMERLİ" Then Sayfa1.Cells(i, 6) = "341##36"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTAŞDELEN" Then Sayfa1.Cells(i, 6) = "341##36"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULDİĞER" Then Sayfa1.Cells(i, 6) = "341##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKADIKÖY" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULCAFERAĞA" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULOSMANAĞA" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULRASİMPAŞA" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKOŞUYOLU" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFİKİRTEPE" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULEĞİTİM" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFENERYOLU" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFENERBAHÇE" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULCADDEBOSTAN" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGÖZTEPE" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMERDİVENKÖY" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSAHRAYICEDİT" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULONDOKUZMAYIS" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULERENKÖY" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSUADİYE" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKOZYATAĞI" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBOSTANCI" Then Sayfa1.Cells(i, 6) = "341##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKARTAL" Then Sayfa1.Cells(i, 6) = "341##21"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULRAHMANLAR" Then Sayfa1.Cells(i, 6) = "341##21"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULORHANTEPE" Then Sayfa1.Cells(i, 6) = "341##21"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKARTALESENTEPE" Then Sayfa1.Cells(i, 6) = "341##21"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTOPSELVİ" Then Sayfa1.Cells(i, 6) = "341##21"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYAKACIK" Then Sayfa1.Cells(i, 6) = "341##21"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSOĞANLIK" Then Sayfa1.Cells(i, 6) = "341##21"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULUĞURMUMCU" Then Sayfa1.Cells(i, 6) = "341##21"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMALTEPE" Then Sayfa1.Cells(i, 6) = "341##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKÜÇÜKYALI" Then Sayfa1.Cells(i, 6) = "341##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULİDEALTEPE" Then Sayfa1.Cells(i, 6) = "341##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFEYZULLAH" Then Sayfa1.Cells(i, 6) = "341##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYALI" Then Sayfa1.Cells(i, 6) = "341##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULCEVİZLİ" Then Sayfa1.Cells(i, 6) = "341##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGÜLSUYU" Then Sayfa1.Cells(i, 6) = "341##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULZÜMRÜTEVLER" Then Sayfa1.Cells(i, 6) = "341##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAYDINEVLER" Then Sayfa1.Cells(i, 6) = "341##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULPENDİK" Then Sayfa1.Cells(i, 6) = "341##23"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇARŞI" Then Sayfa1.Cells(i, 6) = "341##23"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULDOLAYOBA" Then Sayfa1.Cells(i, 6) = "341##23"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇAMÇEŞME" Then Sayfa1.Cells(i, 6) = "341##23"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULESENYALI" Then Sayfa1.Cells(i, 6) = "341##23"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULŞEYHLİ" Then Sayfa1.Cells(i, 6) = "341##23"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYAYALAR" Then Sayfa1.Cells(i, 6) = "341##23"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYENİŞEHİR" Then Sayfa1.Cells(i, 6) = "341##23"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSANCAKTEPE" Then Sayfa1.Cells(i, 6) = "341##37"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSARIGAZİ" Then Sayfa1.Cells(i, 6) = "341##37"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYENİDOĞAN" Then Sayfa1.Cells(i, 6) = "341##37"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSAMANDIRA" Then Sayfa1.Cells(i, 6) = "341##37"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇAMLIK" Then Sayfa1.Cells(i, 6) = "341##37"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULŞİLE" Then Sayfa1.Cells(i, 6) = "341##27"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAĞVA" Then Sayfa1.Cells(i, 6) = "341##27"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSULTANBEYLİ" Then Sayfa1.Cells(i, 6) = "341##26"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMEHMETAKİF" Then Sayfa1.Cells(i, 6) = "341##26"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULNECİPFAZIL" Then Sayfa1.Cells(i, 6) = "341##26"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTURGUTREİS" Then Sayfa1.Cells(i, 6) = "341##26"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTUZLA" Then Sayfa1.Cells(i, 6) = "341##29"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULİSTASYON" Then Sayfa1.Cells(i, 6) = "341##29"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTERSANELER" Then Sayfa1.Cells(i, 6) = "341##29"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULİÇMELER" Then Sayfa1.Cells(i, 6) = "341##29"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAYDINLI" Then Sayfa1.Cells(i, 6) = "341##29"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULORHANLI" Then Sayfa1.Cells(i, 6) = "341##29"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAKFIRAT" Then Sayfa1.Cells(i, 6) = "341##29"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÜMRANİYE" Then Sayfa1.Cells(i, 6) = "341##30"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULATAKENT" Then Sayfa1.Cells(i, 6) = "341##30"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULATATÜRK" Then Sayfa1.Cells(i, 6) = "341##30"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULİNKILAP" Then Sayfa1.Cells(i, 6) = "341##30"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇAKMAK" Then Sayfa1.Cells(i, 6) = "341##30"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULIHLAMURKUYU" Then Sayfa1.Cells(i, 6) = "341##30"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAŞAĞIDUDULLU" Then Sayfa1.Cells(i, 6) = "341##30"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYUKARIDUDULLU" Then Sayfa1.Cells(i, 6) = "341##30"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULESENŞEHİR" Then Sayfa1.Cells(i, 6) = "341##30"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULREŞADİYE" Then Sayfa1.Cells(i, 6) = "341##30"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÜSKÜDAR" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULACIBADEM" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULALTUNİZADE" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBAĞLARBAŞI" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSELİMİYE" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÜSKÜDAR" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKUZGUNCUK" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBEYLERBEYİ" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇENGELKÖY" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKANDİLLİ" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFERAH" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBULGURLU" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÜNALAN" Then Sayfa1.Cells(i, 6) = "341##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULARNAVUTKÖY" Then Sayfa1.Cells(i, 6) = "342##33"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBOĞAZKÖY" Then Sayfa1.Cells(i, 6) = "342##33"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBOLLUCA" Then Sayfa1.Cells(i, 6) = "342##33"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHARAÇÇI" Then Sayfa1.Cells(i, 6) = "342##33"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTAŞOLUK" Then Sayfa1.Cells(i, 6) = "342##33"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULDURUSU" Then Sayfa1.Cells(i, 6) = "342##33"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBOYALIK" Then Sayfa1.Cells(i, 6) = "342##33"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAVCILAR" Then Sayfa1.Cells(i, 6) = "342##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAMBARLI" Then Sayfa1.Cells(i, 6) = "342##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGÜMÜŞPALA" Then Sayfa1.Cells(i, 6) = "342##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFİRUZKÖY" Then Sayfa1.Cells(i, 6) = "342##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBAĞCILAR" Then Sayfa1.Cells(i, 6) = "342##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBARBAROS" Then Sayfa1.Cells(i, 6) = "342##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKEMALPAŞA" Then Sayfa1.Cells(i, 6) = "342##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKİRAZLI" Then Sayfa1.Cells(i, 6) = "342##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGÜNEŞLİ" Then Sayfa1.Cells(i, 6) = "342##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULDEMİRKAPI" Then Sayfa1.Cells(i, 6) = "342##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMAHMUTBEY" Then Sayfa1.Cells(i, 6) = "342##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYEŞİLBAĞ" Then Sayfa1.Cells(i, 6) = "342##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBAHÇELİEVLER" Then Sayfa1.Cells(i, 6) = "342##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSİYAVUŞPAŞA" Then Sayfa1.Cells(i, 6) = "342##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSOĞANLI" Then Sayfa1.Cells(i, 6) = "342##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULCUMHURİYET" Then Sayfa1.Cells(i, 6) = "342##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULŞİRİNEVLER" Then Sayfa1.Cells(i, 6) = "342##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHÜRRİYET" Then Sayfa1.Cells(i, 6) = "342##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKOCASİNAN" Then Sayfa1.Cells(i, 6) = "342##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFEVZİÇAKMAK" Then Sayfa1.Cells(i, 6) = "342##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇOBANÇEŞME" Then Sayfa1.Cells(i, 6) = "342##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYENİBOSNA" Then Sayfa1.Cells(i, 6) = "342##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBAKIRKÖY" Then Sayfa1.Cells(i, 6) = "342##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULZEYTİNLİK" Then Sayfa1.Cells(i, 6) = "342##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULCEVİZLİK" Then Sayfa1.Cells(i, 6) = "342##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKARTALTEPE" Then Sayfa1.Cells(i, 6) = "342##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULZUHURATBABA" Then Sayfa1.Cells(i, 6) = "342##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYEŞİLKÖY" Then Sayfa1.Cells(i, 6) = "342##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFLORYA" Then Sayfa1.Cells(i, 6) = "342##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULATAKÖY" Then Sayfa1.Cells(i, 6) = "342##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBAŞAKŞEHİR" Then Sayfa1.Cells(i, 6) = "342##36"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULİKİTELLİ" Then Sayfa1.Cells(i, 6) = "342##36"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULATIŞALANI" Then Sayfa1.Cells(i, 6) = "342##36"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMEHMETAKİF" Then Sayfa1.Cells(i, 6) = "342##36"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBAHÇEŞEHİR" Then Sayfa1.Cells(i, 6) = "342##36"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBAYRAMPAŞA" Then Sayfa1.Cells(i, 6) = "342##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULNUMUNEBAĞ" Then Sayfa1.Cells(i, 6) = "342##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULALTINTEPSİ" Then Sayfa1.Cells(i, 6) = "342##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMURATPAŞA" Then Sayfa1.Cells(i, 6) = "342##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYILDIRIM" Then Sayfa1.Cells(i, 6) = "342##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBEŞİKTAŞ" Then Sayfa1.Cells(i, 6) = "342##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULLEVENT" Then Sayfa1.Cells(i, 6) = "342##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAKATLAR" Then Sayfa1.Cells(i, 6) = "342##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULETİLER" Then Sayfa1.Cells(i, 6) = "342##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULLEVAZIM" Then Sayfa1.Cells(i, 6) = "342##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBEBEK" Then Sayfa1.Cells(i, 6) = "342##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULORTAKÖY" Then Sayfa1.Cells(i, 6) = "342##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGAYRETTEPE" Then Sayfa1.Cells(i, 6) = "342##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULABBASAĞA" Then Sayfa1.Cells(i, 6) = "342##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTÜRKALİ" Then Sayfa1.Cells(i, 6) = "342##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBEYLİKDÜZÜ" Then Sayfa1.Cells(i, 6) = "342##35"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKAVAKLI" Then Sayfa1.Cells(i, 6) = "342##35"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGÜRPINAR" Then Sayfa1.Cells(i, 6) = "342##35"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYAKUPLU" Then Sayfa1.Cells(i, 6) = "342##35"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBEYOĞLU" Then Sayfa1.Cells(i, 6) = "342##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULARAPCAMİ" Then Sayfa1.Cells(i, 6) = "342##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKEMANKEŞ" Then Sayfa1.Cells(i, 6) = "342##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULPÜRTELAŞ" Then Sayfa1.Cells(i, 6) = "342##09"
End If
Next i
End Sub



Kod: Tümünü seç
Private Sub CommandButton16_Click()
UserForm4.Show
End Sub


Kod: Tümünü seç
Private Sub CommandButton3_Click() ''''''''''''''''''''''222

Dim i As Integer
For i = 2 To Sayfa2.Cells(1, 9).Text
If Cells(i, 4) & Cells(i, 5) = "İSTANBULİSTİKLAL" Then
Sayfa1.Cells(i, 6) = "342##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULCİHANGİR" Then Sayfa1.Cells(i, 6) = "342##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTARLABAŞI" Then Sayfa1.Cells(i, 6) = "342##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTAKSİM" Then Sayfa1.Cells(i, 6) = "342##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKASIMPAŞA" Then Sayfa1.Cells(i, 6) = "342##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHALICIOĞLU" Then Sayfa1.Cells(i, 6) = "342##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBÜYÜKÇEKMECE" Then Sayfa1.Cells(i, 6) = "342##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKUMBURGAZ" Then Sayfa1.Cells(i, 6) = "342##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMİMARSİNAN" Then Sayfa1.Cells(i, 6) = "342##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTEPECİK" Then Sayfa1.Cells(i, 6) = "342##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKAMİLOBA" Then Sayfa1.Cells(i, 6) = "342##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMURATBEY" Then Sayfa1.Cells(i, 6) = "342##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULCELALİYE" Then Sayfa1.Cells(i, 6) = "342##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇATALCA" Then Sayfa1.Cells(i, 6) = "342##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBİNKILIÇ" Then Sayfa1.Cells(i, 6) = "342##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇİFTLİKKÖY" Then Sayfa1.Cells(i, 6) = "342##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKARACAKÖY" Then Sayfa1.Cells(i, 6) = "342##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULDİĞER" Then Sayfa1.Cells(i, 6) = "342##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULESENLER" Then Sayfa1.Cells(i, 6) = "342##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKARABAYIR" Then Sayfa1.Cells(i, 6) = "342##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBİRLİK" Then Sayfa1.Cells(i, 6) = "342##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULESENYURT" Then Sayfa1.Cells(i, 6) = "342##37"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKIRAÇ" Then Sayfa1.Cells(i, 6) = "342##37"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHARAMİDERE" Then Sayfa1.Cells(i, 6) = "342##37"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYEŞİLKENT" Then Sayfa1.Cells(i, 6) = "342##37"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHOŞDERE" Then Sayfa1.Cells(i, 6) = "342##37"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULEYÜP" Then Sayfa1.Cells(i, 6) = "342##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULRAMİ" Then Sayfa1.Cells(i, 6) = "342##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULALİBEYKÖY" Then Sayfa1.Cells(i, 6) = "342##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYEŞİLPINAR" Then Sayfa1.Cells(i, 6) = "342##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇIRÇIR" Then Sayfa1.Cells(i, 6) = "342##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGÖKTÜRK" Then Sayfa1.Cells(i, 6) = "342##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFATİH" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAKDENİZ" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKÜÇÜKMUSTAFAPAŞA" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFENER" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKARAGÜMRÜK" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAKSARAY" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHASEKİ" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKOCAMUSTAFAPAŞA" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMEVLANAKAPI" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYEDİKULE" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULCAĞALOĞLU" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSİRKECİ" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTAHTAKALE" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMAHMUTPAŞA" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSULTANAHMET" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBEYAZIT" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKUMKAPI" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULVEFA" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULEMİNÖNÜ" Then Sayfa1.Cells(i, 6) = "342##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULG.OSMANPAŞA" Then Sayfa1.Cells(i, 6) = "342##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYILDIZTABYA" Then Sayfa1.Cells(i, 6) = "342##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGAZİOSMANPAŞA" Then Sayfa1.Cells(i, 6) = "342##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKÜÇÜKKÖY" Then Sayfa1.Cells(i, 6) = "342##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGÜNGÖREN" Then Sayfa1.Cells(i, 6) = "342##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAKINCILAR" Then Sayfa1.Cells(i, 6) = "342##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTOZKOPARAN" Then Sayfa1.Cells(i, 6) = "342##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULABDURRAHMANNAFİZGÜRMAN" Then Sayfa1.Cells(i, 6) = "342##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHADIMKÖY" Then Sayfa1.Cells(i, 6) = "342##38"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULK.ÇEKMECE" Then Sayfa1.Cells(i, 6) = "342##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULCENNET" Then Sayfa1.Cells(i, 6) = "342##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSEFAKÖY" Then Sayfa1.Cells(i, 6) = "342##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHALKALI" Then Sayfa1.Cells(i, 6) = "342##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYARIMBURGAZ" Then Sayfa1.Cells(i, 6) = "342##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKÜÇÜKÇEKMECE" Then Sayfa1.Cells(i, 6) = "342##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKAĞITHANE" Then Sayfa1.Cells(i, 6) = "342##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULZİNCİRLİKUYU" Then Sayfa1.Cells(i, 6) = "342##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇAĞLAYAN" Then Sayfa1.Cells(i, 6) = "342##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKAĞITHANE" Then Sayfa1.Cells(i, 6) = "342##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHAMİDİYE" Then Sayfa1.Cells(i, 6) = "342##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGÜLTEPE" Then Sayfa1.Cells(i, 6) = "342##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇELİKTEPE" Then Sayfa1.Cells(i, 6) = "342##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULŞİRİNTEPE" Then Sayfa1.Cells(i, 6) = "342##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSEYRANTEPE" Then Sayfa1.Cells(i, 6) = "342##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULK.BURGAZ" Then Sayfa1.Cells(i, 6) = "342##39"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKEMERBURGAZ" Then Sayfa1.Cells(i, 6) = "342##39"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSARIYER" Then Sayfa1.Cells(i, 6) = "342##24"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBÜYÜKDERE" Then Sayfa1.Cells(i, 6) = "342##24"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTARABYA" Then Sayfa1.Cells(i, 6) = "342##24"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULİSTİNYE" Then Sayfa1.Cells(i, 6) = "342##24"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULEMİRGAN" Then Sayfa1.Cells(i, 6) = "342##24"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULRUMELİHİSARI" Then Sayfa1.Cells(i, 6) = "342##24"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBAHÇEKÖY" Then Sayfa1.Cells(i, 6) = "342##24"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSİLİVRİ" Then Sayfa1.Cells(i, 6) = "342##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULDEĞİRMENKÖY" Then Sayfa1.Cells(i, 6) = "342##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULGÜMÜŞYAKA" Then Sayfa1.Cells(i, 6) = "342##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSELİMPAŞA" Then Sayfa1.Cells(i, 6) = "342##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULÇANTA" Then Sayfa1.Cells(i, 6) = "342##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBÜYÜKÇAVUŞLU" Then Sayfa1.Cells(i, 6) = "342##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULŞİŞLİ" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMEŞRUTİYET" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULTEŞVİKİYE" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHARBİYE" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHALASKARGAZİ" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULPANGALTI" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULBOZKURT" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULFERİKÖY" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULDUATEPE" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULCUMHURİYET" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHALİDEEDİP" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULOKMEYDANI" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMECİDİYEKÖY" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULESENTEPE" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULAYAZAĞA" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMASLAK" Then Sayfa1.Cells(i, 6) = "342##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSULTANGAZİ" Then Sayfa1.Cells(i, 6) = "342##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULSULTANÇİFTLİĞİ" Then Sayfa1.Cells(i, 6) = "342##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULZÜBEYDEHANIM" Then Sayfa1.Cells(i, 6) = "342##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULCEBECİ" Then Sayfa1.Cells(i, 6) = "342##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULKAZIMKARABEKİR" Then Sayfa1.Cells(i, 6) = "342##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULHABİPLER" Then Sayfa1.Cells(i, 6) = "342##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYAYLA" Then Sayfa1.Cells(i, 6) = "342##40"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULYENİKÖY" Then Sayfa1.Cells(i, 6) = "342##41"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULMERKEZ" Then Sayfa1.Cells(i, 6) = "342##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "İSTANBULZEYTİNBURNU" Then Sayfa1.Cells(i, 6) = "342##32"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRALİAĞA" Then Sayfa1.Cells(i, 6) = "35##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRBALÇOVA" Then Sayfa1.Cells(i, 6) = "35##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRİNCİRALTI" Then Sayfa1.Cells(i, 6) = "35##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRBAYINDIR" Then Sayfa1.Cells(i, 6) = "35##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRBAYRAKLI" Then Sayfa1.Cells(i, 6) = "35##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRBERGAMA" Then Sayfa1.Cells(i, 6) = "35##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRBEYDAĞ" Then Sayfa1.Cells(i, 6) = "35##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRBORNOVA" Then Sayfa1.Cells(i, 6) = "35##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRPINARBAŞI" Then Sayfa1.Cells(i, 6) = "35##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRÇAMDİBİ" Then Sayfa1.Cells(i, 6) = "35##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRBUCA" Then Sayfa1.Cells(i, 6) = "35##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRŞİRİNYER" Then Sayfa1.Cells(i, 6) = "35##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRÇEŞME" Then Sayfa1.Cells(i, 6) = "35##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRALAÇATI" Then Sayfa1.Cells(i, 6) = "35##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRÇİĞLİ" Then Sayfa1.Cells(i, 6) = "35##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRMERKEZ" Then Sayfa1.Cells(i, 6) = "35##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRDİĞER" Then Sayfa1.Cells(i, 6) = "35##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRDİKİLİ" Then Sayfa1.Cells(i, 6) = "35##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRFOÇA" Then Sayfa1.Cells(i, 6) = "35##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRGAZİEMİR" Then Sayfa1.Cells(i, 6) = "35##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRGÜZELBAHÇE" Then Sayfa1.Cells(i, 6) = "35##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRKARABAĞLAR" Then Sayfa1.Cells(i, 6) = "35##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRKARABURUN" Then Sayfa1.Cells(i, 6) = "35##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRKARŞIYAKA" Then Sayfa1.Cells(i, 6) = "35##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRKEMALPAŞA" Then Sayfa1.Cells(i, 6) = "35##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRKINIK" Then Sayfa1.Cells(i, 6) = "35##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRKİRAZ" Then Sayfa1.Cells(i, 6) = "35##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRKONAK" Then Sayfa1.Cells(i, 6) = "35##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRYEİŞEHİR" Then Sayfa1.Cells(i, 6) = "35##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRALSANCAK" Then Sayfa1.Cells(i, 6) = "35##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRHATAY" Then Sayfa1.Cells(i, 6) = "35##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRMENDERES" Then Sayfa1.Cells(i, 6) = "35##21"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRMENEMEN" Then Sayfa1.Cells(i, 6) = "35##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRNARLIDERE" Then Sayfa1.Cells(i, 6) = "35##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRÖDEMİŞ" Then Sayfa1.Cells(i, 6) = "35##23"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRSEFERİHİSAR" Then Sayfa1.Cells(i, 6) = "35##24"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRSELÇUK" Then Sayfa1.Cells(i, 6) = "35##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRTİRE" Then Sayfa1.Cells(i, 6) = "35##26"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRTORBALI" Then Sayfa1.Cells(i, 6) = "35##27"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİRURLA" Then Sayfa1.Cells(i, 6) = "35##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAHRAMANMARAŞAFŞİN" Then Sayfa1.Cells(i, 6) = "46##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAHRAMANMARAŞANDIRIN" Then Sayfa1.Cells(i, 6) = "46##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAHRAMANMARAŞÇAĞLIYANCERİT" Then Sayfa1.Cells(i, 6) = "46##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAHRAMANMARAŞDİĞER" Then Sayfa1.Cells(i, 6) = "46##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAHRAMANMARAŞEKİNÖZÜ" Then Sayfa1.Cells(i, 6) = "46##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAHRAMANMARAŞELBİSTAN" Then Sayfa1.Cells(i, 6) = "46##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAHRAMANMARAŞGÖKSUN" Then Sayfa1.Cells(i, 6) = "46##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAHRAMANMARAŞMERKEZ" Then Sayfa1.Cells(i, 6) = "46##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAHRAMANMARAŞNURHAK" Then Sayfa1.Cells(i, 6) = "46##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAHRAMANMARAŞPAZARCIK" Then Sayfa1.Cells(i, 6) = "46##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAHRAMANMARAŞTÜRKOĞLU" Then Sayfa1.Cells(i, 6) = "46##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARABÜKDİĞER" Then Sayfa1.Cells(i, 6) = "78##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARABÜKEFLANİ" Then Sayfa1.Cells(i, 6) = "78##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARABÜKESKİPAZAR" Then Sayfa1.Cells(i, 6) = "78##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARABÜKMERKEZ" Then Sayfa1.Cells(i, 6) = "78##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARABÜKOVACIK" Then Sayfa1.Cells(i, 6) = "78##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARABÜKSAFRANBOLU" Then Sayfa1.Cells(i, 6) = "78##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARABÜKYENİCE" Then Sayfa1.Cells(i, 6) = "78##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARAMANAYRANCI" Then Sayfa1.Cells(i, 6) = "70##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARAMANBAŞYAYLA" Then Sayfa1.Cells(i, 6) = "70##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARAMANDİĞER" Then Sayfa1.Cells(i, 6) = "70##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARAMANERMENEK" Then Sayfa1.Cells(i, 6) = "70##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARAMANKAZIMKARABEKİR" Then Sayfa1.Cells(i, 6) = "70##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARAMANMERKEZ" Then Sayfa1.Cells(i, 6) = "70##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARAMANSARIVELİLER" Then Sayfa1.Cells(i, 6) = "70##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARSAKYAKA" Then Sayfa1.Cells(i, 6) = "36##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARSARPAÇAY" Then Sayfa1.Cells(i, 6) = "36##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARSDİĞER" Then Sayfa1.Cells(i, 6) = "36##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARSDİGOR" Then Sayfa1.Cells(i, 6) = "36##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARSKAĞIZMAN" Then Sayfa1.Cells(i, 6) = "36##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARSMERKEZ" Then Sayfa1.Cells(i, 6) = "36##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARSSARIKAMIŞ" Then Sayfa1.Cells(i, 6) = "36##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARSSELİM" Then Sayfa1.Cells(i, 6) = "36##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "KARSSUSUZ" Then Sayfa1.Cells(i, 6) = "36##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUABANA" Then Sayfa1.Cells(i, 6) = "37##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUAĞLI" Then Sayfa1.Cells(i, 6) = "37##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUARAÇ" Then Sayfa1.Cells(i, 6) = "37##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUAZDAVAY" Then Sayfa1.Cells(i, 6) = "37##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUBOZKURT" Then Sayfa1.Cells(i, 6) = "37##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUÇATALZEYTİN" Then Sayfa1.Cells(i, 6) = "37##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUCİDE" Then Sayfa1.Cells(i, 6) = "37##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUDADAY" Then Sayfa1.Cells(i, 6) = "37##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUDEVREKANİ" Then Sayfa1.Cells(i, 6) = "37##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUDİĞER" Then Sayfa1.Cells(i, 6) = "37##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUDOĞANYURT" Then Sayfa1.Cells(i, 6) = "37##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUHANÖNÜ" Then Sayfa1.Cells(i, 6) = "37##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUİHSANGAZİ" Then Sayfa1.Cells(i, 6) = "37##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUİNEBOLU" Then Sayfa1.Cells(i, 6) = "37##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUKÜRE" Then Sayfa1.Cells(i, 6) = "37##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUMERKEZ" Then Sayfa1.Cells(i, 6) = "37##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUPINARBAŞI" Then Sayfa1.Cells(i, 6) = "37##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUŞENPAZAR" Then Sayfa1.Cells(i, 6) = "37##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUSEYDİLER" Then Sayfa1.Cells(i, 6) = "37##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUTAŞKÖPRÜ" Then Sayfa1.Cells(i, 6) = "37##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "KASTAMONUTOSYA" Then Sayfa1.Cells(i, 6) = "37##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİAKKIŞLA" Then Sayfa1.Cells(i, 6) = "38##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİBÜNYAN" Then Sayfa1.Cells(i, 6) = "38##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİDEVELİ" Then Sayfa1.Cells(i, 6) = "38##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİMERKEZ" Then Sayfa1.Cells(i, 6) = "38##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİKAYSERİ" Then Sayfa1.Cells(i, 6) = "38##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİDİĞER" Then Sayfa1.Cells(i, 6) = "38##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİFELAHİYE" Then Sayfa1.Cells(i, 6) = "38##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİHACILAR" Then Sayfa1.Cells(i, 6) = "38##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİİNCESU" Then Sayfa1.Cells(i, 6) = "38##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİKOCASİNAN" Then Sayfa1.Cells(i, 6) = "38##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİMELİKGAZİ" Then Sayfa1.Cells(i, 6) = "38##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİÖZVATAN" Then Sayfa1.Cells(i, 6) = "38##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİPINARBAŞI" Then Sayfa1.Cells(i, 6) = "38##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİSARIOĞLAN" Then Sayfa1.Cells(i, 6) = "38##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİSARIZ" Then Sayfa1.Cells(i, 6) = "38##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİTALAS" Then Sayfa1.Cells(i, 6) = "38##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİTOMARZA" Then Sayfa1.Cells(i, 6) = "38##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİYAHYALI" Then Sayfa1.Cells(i, 6) = "38##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "KAYSERİYEŞİLHİSAR" Then Sayfa1.Cells(i, 6) = "38##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "KİLİSDİĞER" Then Sayfa1.Cells(i, 6) = "79##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KİLİSELBEYLİ" Then Sayfa1.Cells(i, 6) = "79##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KİLİSMERKEZ" Then Sayfa1.Cells(i, 6) = "79##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KİLİSMUSABEYLİ" Then Sayfa1.Cells(i, 6) = "79##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KİLİSPOLATELİ" Then Sayfa1.Cells(i, 6) = "79##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRIKKALEBAHŞILI" Then Sayfa1.Cells(i, 6) = "71##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRIKKALEBALİŞEYH" Then Sayfa1.Cells(i, 6) = "71##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRIKKALEÇELEBİ" Then Sayfa1.Cells(i, 6) = "71##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRIKKALEDELİCE" Then Sayfa1.Cells(i, 6) = "71##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRIKKALEDİĞER" Then Sayfa1.Cells(i, 6) = "71##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRIKKALEKARAKEÇİLİ" Then Sayfa1.Cells(i, 6) = "71##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRIKKALEKESKİN" Then Sayfa1.Cells(i, 6) = "71##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRIKKALEMERKEZ" Then Sayfa1.Cells(i, 6) = "71##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRIKKALESULAKYURT" Then Sayfa1.Cells(i, 6) = "71##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRIKKALEYAHŞİHAN" Then Sayfa1.Cells(i, 6) = "71##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRKLARELİBABAESKİ" Then Sayfa1.Cells(i, 6) = "39##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRKLARELİDEMİRKÖY" Then Sayfa1.Cells(i, 6) = "39##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRKLARELİDİĞER" Then Sayfa1.Cells(i, 6) = "39##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRKLARELİKOFÇAZ" Then Sayfa1.Cells(i, 6) = "39##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRKLARELİLÜLEBURGAZ" Then Sayfa1.Cells(i, 6) = "39##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRKLARELİMERKEZ" Then Sayfa1.Cells(i, 6) = "39##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRKLARELİPEHLİVANKÖY" Then Sayfa1.Cells(i, 6) = "39##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRKLARELİPINARHİSAR" Then Sayfa1.Cells(i, 6) = "39##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRKLARELİVİZE" Then Sayfa1.Cells(i, 6) = "39##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRŞEHİRAKÇAKENT" Then Sayfa1.Cells(i, 6) = "40##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRŞEHİRAKPINAR" Then Sayfa1.Cells(i, 6) = "40##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRŞEHİRBOZTEPE" Then Sayfa1.Cells(i, 6) = "40##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRŞEHİRÇİÇEKDAĞI" Then Sayfa1.Cells(i, 6) = "40##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRŞEHİRDİĞER" Then Sayfa1.Cells(i, 6) = "40##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRŞEHİRKAMAN" Then Sayfa1.Cells(i, 6) = "40##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRŞEHİRMERKEZ" Then Sayfa1.Cells(i, 6) = "40##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KIRŞEHİRMUCUR" Then Sayfa1.Cells(i, 6) = "40##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİBAŞİSKELE" Then Sayfa1.Cells(i, 6) = "41##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİÇAYIROVA" Then Sayfa1.Cells(i, 6) = "41##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİDARICA" Then Sayfa1.Cells(i, 6) = "41##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİDERİNCE" Then Sayfa1.Cells(i, 6) = "41##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİDİĞER" Then Sayfa1.Cells(i, 6) = "41##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİDİLOVASI" Then Sayfa1.Cells(i, 6) = "41##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİGEBZE" Then Sayfa1.Cells(i, 6) = "41##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİGÖLCÜK" Then Sayfa1.Cells(i, 6) = "41##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİİZMİT" Then Sayfa1.Cells(i, 6) = "41##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİMERKEZ" Then Sayfa1.Cells(i, 6) = "41##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİKANDRA" Then Sayfa1.Cells(i, 6) = "41##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİKARAMÜRSEL" Then Sayfa1.Cells(i, 6) = "41##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİKARTEPE" Then Sayfa1.Cells(i, 6) = "41##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "KOCAELİKÖRFEZ" Then Sayfa1.Cells(i, 6) = "41##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTBAŞİSKELE" Then Sayfa1.Cells(i, 6) = "41##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTÇAYIROVA" Then Sayfa1.Cells(i, 6) = "41##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTDARICA" Then Sayfa1.Cells(i, 6) = "41##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTDERİNCE" Then Sayfa1.Cells(i, 6) = "41##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTDİĞER" Then Sayfa1.Cells(i, 6) = "41##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTDİLOVASI" Then Sayfa1.Cells(i, 6) = "41##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTGEBZE" Then Sayfa1.Cells(i, 6) = "41##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTGÖLCÜK" Then Sayfa1.Cells(i, 6) = "41##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTİZMİT" Then Sayfa1.Cells(i, 6) = "41##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTMERKEZ" Then Sayfa1.Cells(i, 6) = "41##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTKANDRA" Then Sayfa1.Cells(i, 6) = "41##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTKARAMÜRSEL" Then Sayfa1.Cells(i, 6) = "41##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTKARTEPE" Then Sayfa1.Cells(i, 6) = "41##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İZMİTKÖRFEZ" Then Sayfa1.Cells(i, 6) = "41##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAAHIRLI" Then Sayfa1.Cells(i, 6) = "42##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAAKÖREN" Then Sayfa1.Cells(i, 6) = "42##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAAKŞEHİR" Then Sayfa1.Cells(i, 6) = "42##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAALTINEKİN" Then Sayfa1.Cells(i, 6) = "42##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYABEYŞEHİR" Then Sayfa1.Cells(i, 6) = "42##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYABOZKIR" Then Sayfa1.Cells(i, 6) = "42##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAÇELTİK" Then Sayfa1.Cells(i, 6) = "42##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYACİHANBEYLİ" Then Sayfa1.Cells(i, 6) = "42##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAÇUMRA" Then Sayfa1.Cells(i, 6) = "42##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYADERBENT" Then Sayfa1.Cells(i, 6) = "42##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYADEREBUCAK" Then Sayfa1.Cells(i, 6) = "42##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAMERKEZ" Then Sayfa1.Cells(i, 6) = "42##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAKONYA" Then Sayfa1.Cells(i, 6) = "42##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYADİĞER" Then Sayfa1.Cells(i, 6) = "42##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYADOĞANHİSAR" Then Sayfa1.Cells(i, 6) = "42##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAEMİRGAZİ" Then Sayfa1.Cells(i, 6) = "42##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAEREĞLİ" Then Sayfa1.Cells(i, 6) = "42##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAGÜNEYSINIR" Then Sayfa1.Cells(i, 6) = "42##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAHADİM" Then Sayfa1.Cells(i, 6) = "42##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAHALKAPINAR" Then Sayfa1.Cells(i, 6) = "42##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAHÜYÜK" Then Sayfa1.Cells(i, 6) = "42##21"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAİLGIN" Then Sayfa1.Cells(i, 6) = "42##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAKADINHANI" Then Sayfa1.Cells(i, 6) = "42##23"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAKARAPINAR" Then Sayfa1.Cells(i, 6) = "42##24"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAKARATAY" Then Sayfa1.Cells(i, 6) = "42##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAKULU" Then Sayfa1.Cells(i, 6) = "42##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAMERAM" Then Sayfa1.Cells(i, 6) = "42##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYASARAYÖNÜ" Then Sayfa1.Cells(i, 6) = "42##26"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYASELÇUKLU" Then Sayfa1.Cells(i, 6) = "42##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYASEYDİŞEHİR" Then Sayfa1.Cells(i, 6) = "42##27"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYATAŞKENT" Then Sayfa1.Cells(i, 6) = "42##28"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYATUZLUKÇU" Then Sayfa1.Cells(i, 6) = "42##29"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAYALIHÜYÜK" Then Sayfa1.Cells(i, 6) = "42##30"
ElseIf Cells(i, 4) & Cells(i, 5) = "KONYAYUNAK" Then Sayfa1.Cells(i, 6) = "42##31"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYAALTINTAŞ" Then Sayfa1.Cells(i, 6) = "43##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYAASLANAPA" Then Sayfa1.Cells(i, 6) = "43##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYAÇAVDARHİSAR" Then Sayfa1.Cells(i, 6) = "43##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYADİĞER" Then Sayfa1.Cells(i, 6) = "43##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYADOMANİÇ" Then Sayfa1.Cells(i, 6) = "43##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYADUMLUPINAR" Then Sayfa1.Cells(i, 6) = "43##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYAEMET" Then Sayfa1.Cells(i, 6) = "43##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYAGEDİZ" Then Sayfa1.Cells(i, 6) = "43##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYAHİSARCIK" Then Sayfa1.Cells(i, 6) = "43##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYAMERKEZ" Then Sayfa1.Cells(i, 6) = "43##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYAPAZARLAR" Then Sayfa1.Cells(i, 6) = "43##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYAŞAPHANE" Then Sayfa1.Cells(i, 6) = "43##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYASİMAV" Then Sayfa1.Cells(i, 6) = "43##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "KÜTAHYATAVŞANLI" Then Sayfa1.Cells(i, 6) = "43##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYAAKÇADAĞ" Then Sayfa1.Cells(i, 6) = "44##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYAARAPGİR" Then Sayfa1.Cells(i, 6) = "44##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYAARGUVAN" Then Sayfa1.Cells(i, 6) = "44##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYABATTALGAZİ" Then Sayfa1.Cells(i, 6) = "44##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYADARENDE" Then Sayfa1.Cells(i, 6) = "44##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYADİĞER" Then Sayfa1.Cells(i, 6) = "44##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYADOĞANŞEHİR" Then Sayfa1.Cells(i, 6) = "44##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYADOĞANYOL" Then Sayfa1.Cells(i, 6) = "44##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYAHEKİMHAN" Then Sayfa1.Cells(i, 6) = "44##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYAKALE" Then Sayfa1.Cells(i, 6) = "44##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYAKULUNCAK" Then Sayfa1.Cells(i, 6) = "44##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYAMERKEZ" Then Sayfa1.Cells(i, 6) = "44##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYAPÜTÜRGE" Then Sayfa1.Cells(i, 6) = "44##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYAYAZIHAN" Then Sayfa1.Cells(i, 6) = "44##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "MALATYAYEŞİLYURT" Then Sayfa1.Cells(i, 6) = "44##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSAAHMETLİ" Then Sayfa1.Cells(i, 6) = "45##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSAAKHİSAR" Then Sayfa1.Cells(i, 6) = "45##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSAALAŞEHİR" Then Sayfa1.Cells(i, 6) = "45##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSADEMİRCİ" Then Sayfa1.Cells(i, 6) = "45##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSADİĞER" Then Sayfa1.Cells(i, 6) = "45##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSAGÖLMARMARA" Then Sayfa1.Cells(i, 6) = "45##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSAGÖRDES" Then Sayfa1.Cells(i, 6) = "45##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSAKIRKAĞAÇ" Then Sayfa1.Cells(i, 6) = "45##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSAKÖPRÜBAŞI" Then Sayfa1.Cells(i, 6) = "45##09"
End If
Next i
End Sub


Kod: Tümünü seç
Private Sub CommandButton4_Click()   '''''''''''''''''''2222222
Dim i As Integer
For i = 2 To Sayfa2.Cells(1, 9).Text


If Cells(i, 4) & Cells(i, 5) = "MANİSAKULA" Then
Sayfa1.Cells(i, 6) = "45##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSAMERKEZ" Then Sayfa1.Cells(i, 6) = "45##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSASALİHLİ" Then Sayfa1.Cells(i, 6) = "45##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSASARIGÖL" Then Sayfa1.Cells(i, 6) = "45##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSASARUHANLI" Then Sayfa1.Cells(i, 6) = "45##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSASELENDİ" Then Sayfa1.Cells(i, 6) = "45##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSASOMA" Then Sayfa1.Cells(i, 6) = "45##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "MANİSATURGUTLU" Then Sayfa1.Cells(i, 6) = "45##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "MARDİNDARGEÇİT" Then Sayfa1.Cells(i, 6) = "47##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "MARDİNDERİK" Then Sayfa1.Cells(i, 6) = "47##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "MARDİNDİĞER" Then Sayfa1.Cells(i, 6) = "47##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "MARDİNKIZILTEPE" Then Sayfa1.Cells(i, 6) = "47##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "MARDİNMAZIDAĞI" Then Sayfa1.Cells(i, 6) = "47##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "MARDİNMERKEZ" Then Sayfa1.Cells(i, 6) = "47##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "MARDİNMİDYAT" Then Sayfa1.Cells(i, 6) = "47##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "MARDİNNUSAYBİN" Then Sayfa1.Cells(i, 6) = "47##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "MARDİNÖMERLİ" Then Sayfa1.Cells(i, 6) = "47##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "MARDİNSAVUR" Then Sayfa1.Cells(i, 6) = "47##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "MARDİNYEŞİLLİ" Then Sayfa1.Cells(i, 6) = "47##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNAKDENİZ" Then Sayfa1.Cells(i, 6) = "33##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNANAMUR" Then Sayfa1.Cells(i, 6) = "33##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNASPOS" Then Sayfa1.Cells(i, 6) = "33##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNAYDINCIK" Then Sayfa1.Cells(i, 6) = "33##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNBOZYAZI" Then Sayfa1.Cells(i, 6) = "33##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNÇAMLIYAYLA" Then Sayfa1.Cells(i, 6) = "33##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNDİĞER" Then Sayfa1.Cells(i, 6) = "33##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNERDEMLİ" Then Sayfa1.Cells(i, 6) = "33##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNGÜLNAR" Then Sayfa1.Cells(i, 6) = "33##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNMERSİN" Then Sayfa1.Cells(i, 6) = "33##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNMERKEZ" Then Sayfa1.Cells(i, 6) = "33##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNMEZİTLİ" Then Sayfa1.Cells(i, 6) = "33##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNMUT" Then Sayfa1.Cells(i, 6) = "33##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNSİLİFKE" Then Sayfa1.Cells(i, 6) = "33##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNTARSUS" Then Sayfa1.Cells(i, 6) = "33##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNTOROSLAR" Then Sayfa1.Cells(i, 6) = "33##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "MERSİNYENİŞEHİR" Then Sayfa1.Cells(i, 6) = "33##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELMERKEZ" Then Sayfa1.Cells(i, 6) = "33##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELAKDENİZ" Then Sayfa1.Cells(i, 6) = "33##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELANAMUR" Then Sayfa1.Cells(i, 6) = "33##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELASPOS" Then Sayfa1.Cells(i, 6) = "33##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELAYDINCIK" Then Sayfa1.Cells(i, 6) = "33##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELBOZYAZI" Then Sayfa1.Cells(i, 6) = "33##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELÇAMLIYAYLA" Then Sayfa1.Cells(i, 6) = "33##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELDİĞER" Then Sayfa1.Cells(i, 6) = "33##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELERDEMLİ" Then Sayfa1.Cells(i, 6) = "33##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELGÜLNAR" Then Sayfa1.Cells(i, 6) = "33##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELİÇEL" Then Sayfa1.Cells(i, 6) = "33##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELMEZİTLİ" Then Sayfa1.Cells(i, 6) = "33##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELMUT" Then Sayfa1.Cells(i, 6) = "33##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELSİLİFKE" Then Sayfa1.Cells(i, 6) = "33##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELTARSUS" Then Sayfa1.Cells(i, 6) = "33##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELTOROSLAR" Then Sayfa1.Cells(i, 6) = "33##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "İÇELYENİŞEHİR" Then Sayfa1.Cells(i, 6) = "33##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLABODRUM" Then Sayfa1.Cells(i, 6) = "48##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLADALAMAN" Then Sayfa1.Cells(i, 6) = "48##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLADATÇA" Then Sayfa1.Cells(i, 6) = "48##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLADİĞER" Then Sayfa1.Cells(i, 6) = "48##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLAFETHİYE" Then Sayfa1.Cells(i, 6) = "48##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLAKAVAKLIDERE" Then Sayfa1.Cells(i, 6) = "48##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLAKÖYCEĞİZ" Then Sayfa1.Cells(i, 6) = "48##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLAMARMARİS" Then Sayfa1.Cells(i, 6) = "48##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLAMERKEZ" Then Sayfa1.Cells(i, 6) = "48##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLAMİLAS" Then Sayfa1.Cells(i, 6) = "48##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLAORTACA" Then Sayfa1.Cells(i, 6) = "48##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLAULA" Then Sayfa1.Cells(i, 6) = "48##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUĞLAYATAĞAN" Then Sayfa1.Cells(i, 6) = "48##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUŞBULANIK" Then Sayfa1.Cells(i, 6) = "49##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUŞDİĞER" Then Sayfa1.Cells(i, 6) = "49##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUŞHASKÖY" Then Sayfa1.Cells(i, 6) = "49##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUŞKORKUT" Then Sayfa1.Cells(i, 6) = "49##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUŞMALAZGİRT" Then Sayfa1.Cells(i, 6) = "49##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUŞMERKEZ" Then Sayfa1.Cells(i, 6) = "49##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "MUŞVARTO" Then Sayfa1.Cells(i, 6) = "49##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "NEVŞEHİRACIGÖL" Then Sayfa1.Cells(i, 6) = "50##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "NEVŞEHİRAVANOS" Then Sayfa1.Cells(i, 6) = "50##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "NEVŞEHİRDERİNKUYU" Then Sayfa1.Cells(i, 6) = "50##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "NEVŞEHİRDİĞER" Then Sayfa1.Cells(i, 6) = "50##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "NEVŞEHİRGÜLŞEHİR" Then Sayfa1.Cells(i, 6) = "50##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "NEVŞEHİRHACIBEKTAŞ" Then Sayfa1.Cells(i, 6) = "50##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "NEVŞEHİRKOZAKLI" Then Sayfa1.Cells(i, 6) = "50##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "NEVŞEHİRMERKEZ" Then Sayfa1.Cells(i, 6) = "50##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "NEVŞEHİRÜRGÜP" Then Sayfa1.Cells(i, 6) = "50##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "NİĞDEALTUNHİSAR" Then Sayfa1.Cells(i, 6) = "51##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "NİĞDEBOR" Then Sayfa1.Cells(i, 6) = "51##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "NİĞDEÇAMARDI" Then Sayfa1.Cells(i, 6) = "51##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "NİĞDEÇİFTLİK" Then Sayfa1.Cells(i, 6) = "51##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "NİĞDEDİĞER" Then Sayfa1.Cells(i, 6) = "51##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "NİĞDEMERKEZ" Then Sayfa1.Cells(i, 6) = "51##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "NİĞDEULUKIŞLA" Then Sayfa1.Cells(i, 6) = "51##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUAKKUŞ" Then Sayfa1.Cells(i, 6) = "52##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUAYBASTI" Then Sayfa1.Cells(i, 6) = "52##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUÇAMAŞ" Then Sayfa1.Cells(i, 6) = "52##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUÇATALPINAR" Then Sayfa1.Cells(i, 6) = "52##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUÇAYBAŞI" Then Sayfa1.Cells(i, 6) = "52##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUDİĞER" Then Sayfa1.Cells(i, 6) = "52##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUFATSA" Then Sayfa1.Cells(i, 6) = "52##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUGÖLKÖY" Then Sayfa1.Cells(i, 6) = "52##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUGÜLYALI" Then Sayfa1.Cells(i, 6) = "52##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUGÜRGENTEPE" Then Sayfa1.Cells(i, 6) = "52##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUİKİZCE" Then Sayfa1.Cells(i, 6) = "52##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUKABADÜZ" Then Sayfa1.Cells(i, 6) = "52##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUKABATAŞ" Then Sayfa1.Cells(i, 6) = "52##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUKORGAN" Then Sayfa1.Cells(i, 6) = "52##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUKUMRU" Then Sayfa1.Cells(i, 6) = "52##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUMERKEZ" Then Sayfa1.Cells(i, 6) = "52##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUMESUDİYE" Then Sayfa1.Cells(i, 6) = "52##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUPERŞEMBE" Then Sayfa1.Cells(i, 6) = "52##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUULUBEY" Then Sayfa1.Cells(i, 6) = "52##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "ORDUÜNYE" Then Sayfa1.Cells(i, 6) = "52##19"
ElseIf Cells(i, 4) & Cells(i, 5) = "OSMANİYEBAHÇE" Then Sayfa1.Cells(i, 6) = "80##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "OSMANİYEDİĞER" Then Sayfa1.Cells(i, 6) = "80##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "OSMANİYEDÜZİÇİ" Then Sayfa1.Cells(i, 6) = "80##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "OSMANİYEHASANBEYLİ" Then Sayfa1.Cells(i, 6) = "80##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "OSMANİYEKADİRLİ" Then Sayfa1.Cells(i, 6) = "80##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "OSMANİYEMERKEZ" Then Sayfa1.Cells(i, 6) = "80##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "OSMANİYESUMBAS" Then Sayfa1.Cells(i, 6) = "80##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "OSMANİYETOPRAKKALE" Then Sayfa1.Cells(i, 6) = "80##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEARDEŞEN" Then Sayfa1.Cells(i, 6) = "53##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEÇAMLIHEMŞİN" Then Sayfa1.Cells(i, 6) = "53##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEÇAYELİ" Then Sayfa1.Cells(i, 6) = "53##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEDEREPAZARI" Then Sayfa1.Cells(i, 6) = "53##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEDİĞER" Then Sayfa1.Cells(i, 6) = "53##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEFINDIKLI" Then Sayfa1.Cells(i, 6) = "53##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEGÜNEYSU" Then Sayfa1.Cells(i, 6) = "53##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEHEMŞİN" Then Sayfa1.Cells(i, 6) = "53##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEİKİZDERE" Then Sayfa1.Cells(i, 6) = "53##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEİYİDERE" Then Sayfa1.Cells(i, 6) = "53##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEKALKANDERE" Then Sayfa1.Cells(i, 6) = "53##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEMERKEZ" Then Sayfa1.Cells(i, 6) = "53##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "RİZEPAZAR" Then Sayfa1.Cells(i, 6) = "53##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAADAPAZARI" Then Sayfa1.Cells(i, 6) = "54##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAMERKEZ" Then Sayfa1.Cells(i, 6) = "54##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAAKYAZI" Then Sayfa1.Cells(i, 6) = "54##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAARİFİYE" Then Sayfa1.Cells(i, 6) = "54##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYADİĞER" Then Sayfa1.Cells(i, 6) = "54##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAERENLER" Then Sayfa1.Cells(i, 6) = "54##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAFERİZLİ" Then Sayfa1.Cells(i, 6) = "54##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAGEYVE" Then Sayfa1.Cells(i, 6) = "54##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAHENDEK" Then Sayfa1.Cells(i, 6) = "54##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAKARAPÜRÇEK" Then Sayfa1.Cells(i, 6) = "54##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAKARASU" Then Sayfa1.Cells(i, 6) = "54##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAKAYNARCA" Then Sayfa1.Cells(i, 6) = "54##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAKOCAALİ" Then Sayfa1.Cells(i, 6) = "54##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYAPAMUKOVA" Then Sayfa1.Cells(i, 6) = "54##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYASAPANCA" Then Sayfa1.Cells(i, 6) = "54##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYASERDİVAN" Then Sayfa1.Cells(i, 6) = "54##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYASÖĞÜTLÜ" Then Sayfa1.Cells(i, 6) = "54##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAKARYATARAKLI" Then Sayfa1.Cells(i, 6) = "54##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIADAPAZARI" Then Sayfa1.Cells(i, 6) = "54##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIMERKEZ" Then Sayfa1.Cells(i, 6) = "54##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIAKYAZI" Then Sayfa1.Cells(i, 6) = "54##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIARİFİYE" Then Sayfa1.Cells(i, 6) = "54##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIDİĞER" Then Sayfa1.Cells(i, 6) = "54##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIERENLER" Then Sayfa1.Cells(i, 6) = "54##24"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIFERİZLİ" Then Sayfa1.Cells(i, 6) = "54##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIGEYVE" Then Sayfa1.Cells(i, 6) = "54##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIHENDEK" Then Sayfa1.Cells(i, 6) = "54##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIKARAPÜRÇEK" Then Sayfa1.Cells(i, 6) = "54##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIKARASU" Then Sayfa1.Cells(i, 6) = "54##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIKAYNARCA" Then Sayfa1.Cells(i, 6) = "54##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIKOCAALİ" Then Sayfa1.Cells(i, 6) = "54##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARIPAMUKOVA" Then Sayfa1.Cells(i, 6) = "54##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARISAPANCA" Then Sayfa1.Cells(i, 6) = "54##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARISERDİVAN" Then Sayfa1.Cells(i, 6) = "54##25"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARISÖĞÜTLÜ" Then Sayfa1.Cells(i, 6) = "54##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "ADAPAZARITARAKLI" Then Sayfa1.Cells(i, 6) = "54##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNALAÇAM" Then Sayfa1.Cells(i, 6) = "55##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNASARCIK" Then Sayfa1.Cells(i, 6) = "55##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNATAKUM" Then Sayfa1.Cells(i, 6) = "55##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNAYVACIK" Then Sayfa1.Cells(i, 6) = "55##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNBAFRA" Then Sayfa1.Cells(i, 6) = "55##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNCANİK" Then Sayfa1.Cells(i, 6) = "55##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNÇARŞAMBA" Then Sayfa1.Cells(i, 6) = "55##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNDİĞER" Then Sayfa1.Cells(i, 6) = "55##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNHAVZA" Then Sayfa1.Cells(i, 6) = "55##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNİLKADIM" Then Sayfa1.Cells(i, 6) = "55##20"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNKAVAK" Then Sayfa1.Cells(i, 6) = "55##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNLADİK" Then Sayfa1.Cells(i, 6) = "55##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNMERKEZ" Then Sayfa1.Cells(i, 6) = "55##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNONDOKUZMAYIS" Then Sayfa1.Cells(i, 6) = "55##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNSALIPAZARI" Then Sayfa1.Cells(i, 6) = "55##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNTEKKEKÖY" Then Sayfa1.Cells(i, 6) = "55##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNTERME" Then Sayfa1.Cells(i, 6) = "55##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNVEZİRKÖPRÜ" Then Sayfa1.Cells(i, 6) = "55##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "SAMSUNYAKAKENT" Then Sayfa1.Cells(i, 6) = "55##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFAAKÇAKALE" Then Sayfa1.Cells(i, 6) = "63##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFABİRECİK" Then Sayfa1.Cells(i, 6) = "63##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFABOZOVA" Then Sayfa1.Cells(i, 6) = "63##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFACEYLANPINAR" Then Sayfa1.Cells(i, 6) = "63##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFADİĞER" Then Sayfa1.Cells(i, 6) = "63##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFAHALFETİ" Then Sayfa1.Cells(i, 6) = "63##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFAHARRAN" Then Sayfa1.Cells(i, 6) = "63##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFAHİLVAN" Then Sayfa1.Cells(i, 6) = "63##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFAMERKEZ" Then Sayfa1.Cells(i, 6) = "63##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFASİVEREK" Then Sayfa1.Cells(i, 6) = "63##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFASURUÇ" Then Sayfa1.Cells(i, 6) = "63##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞANLIURFAVİRANŞEHİR" Then Sayfa1.Cells(i, 6) = "63##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFAAKÇAKALE" Then Sayfa1.Cells(i, 6) = "63##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFABİRECİK" Then Sayfa1.Cells(i, 6) = "63##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFABOZOVA" Then Sayfa1.Cells(i, 6) = "63##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFACEYLANPINAR" Then Sayfa1.Cells(i, 6) = "63##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFADİĞER" Then Sayfa1.Cells(i, 6) = "63##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFAHALFETİ" Then Sayfa1.Cells(i, 6) = "63##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFAHARRAN" Then Sayfa1.Cells(i, 6) = "63##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFAHİLVAN" Then Sayfa1.Cells(i, 6) = "63##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFAMERKEZ" Then Sayfa1.Cells(i, 6) = "63##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFASİVEREK" Then Sayfa1.Cells(i, 6) = "63##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFASURUÇ" Then Sayfa1.Cells(i, 6) = "63##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "Ş.URFAVİRANŞEHİR" Then Sayfa1.Cells(i, 6) = "63##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİİRTAYDINLAR" Then Sayfa1.Cells(i, 6) = "56##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİİRTBAYKAN" Then Sayfa1.Cells(i, 6) = "56##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİİRTDİĞER" Then Sayfa1.Cells(i, 6) = "56##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİİRTERUH" Then Sayfa1.Cells(i, 6) = "56##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİİRTKURTALAN" Then Sayfa1.Cells(i, 6) = "56##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİİRTMERKEZ" Then Sayfa1.Cells(i, 6) = "56##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİİRTPERVARİ" Then Sayfa1.Cells(i, 6) = "56##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİİRTŞİRVAN" Then Sayfa1.Cells(i, 6) = "56##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİNOPAYANCIK" Then Sayfa1.Cells(i, 6) = "57##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİNOPBOYABAT" Then Sayfa1.Cells(i, 6) = "57##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİNOPDİĞER" Then Sayfa1.Cells(i, 6) = "57##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİNOPDİKMEN" Then Sayfa1.Cells(i, 6) = "57##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİNOPDURAĞAN" Then Sayfa1.Cells(i, 6) = "57##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİNOPERFELEK" Then Sayfa1.Cells(i, 6) = "57##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİNOPGERZE" Then Sayfa1.Cells(i, 6) = "57##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİNOPMERKEZ" Then Sayfa1.Cells(i, 6) = "57##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİNOPSARAYDÜZÜ" Then Sayfa1.Cells(i, 6) = "57##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİNOPTÜRKELİ" Then Sayfa1.Cells(i, 6) = "57##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞIRNAKBEYTÜŞŞEBAP" Then Sayfa1.Cells(i, 6) = "73##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞIRNAKCİZRE" Then Sayfa1.Cells(i, 6) = "73##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞIRNAKDİĞER" Then Sayfa1.Cells(i, 6) = "73##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞIRNAKGÜÇLÜKONAK" Then Sayfa1.Cells(i, 6) = "73##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞIRNAKİDİL" Then Sayfa1.Cells(i, 6) = "73##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞIRNAKMERKEZ" Then Sayfa1.Cells(i, 6) = "73##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞIRNAKSİLOPİ" Then Sayfa1.Cells(i, 6) = "73##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ŞIRNAKULUDERE" Then Sayfa1.Cells(i, 6) = "73##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASAKINCILAR" Then Sayfa1.Cells(i, 6) = "58##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASALTINYAYLA" Then Sayfa1.Cells(i, 6) = "58##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASDİĞER" Then Sayfa1.Cells(i, 6) = "58##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASDİVRİĞİ" Then Sayfa1.Cells(i, 6) = "58##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASDOĞANŞAR" Then Sayfa1.Cells(i, 6) = "58##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASGEMEREK" Then Sayfa1.Cells(i, 6) = "58##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASGÖLOVA" Then Sayfa1.Cells(i, 6) = "58##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASGÜRÜN" Then Sayfa1.Cells(i, 6) = "58##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASHAFİK" Then Sayfa1.Cells(i, 6) = "58##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASİMRANLI" Then Sayfa1.Cells(i, 6) = "58##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASKANGAL" Then Sayfa1.Cells(i, 6) = "58##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASKOYULHİSAR" Then Sayfa1.Cells(i, 6) = "58##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASMERKEZ" Then Sayfa1.Cells(i, 6) = "58##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASŞARKIŞLA" Then Sayfa1.Cells(i, 6) = "58##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASSUŞEHRİ" Then Sayfa1.Cells(i, 6) = "58##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASULAŞ" Then Sayfa1.Cells(i, 6) = "58##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASYILDIZELİ" Then Sayfa1.Cells(i, 6) = "58##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "SİVASZARA" Then Sayfa1.Cells(i, 6) = "58##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "TEKİRDAĞÇERKEZKÖY" Then Sayfa1.Cells(i, 6) = "59##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "TEKİRDAĞÇORLU" Then Sayfa1.Cells(i, 6) = "59##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "TEKİRDAĞDİĞER" Then Sayfa1.Cells(i, 6) = "59##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "TEKİRDAĞHAYRABOLU" Then Sayfa1.Cells(i, 6) = "59##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "TEKİRDAĞMALKARA" Then Sayfa1.Cells(i, 6) = "59##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "TEKİRDAĞEREĞLİ" Then Sayfa1.Cells(i, 6) = "59##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "TEKİRDAĞMARMARAEREĞLİSİ" Then Sayfa1.Cells(i, 6) = "59##22"
ElseIf Cells(i, 4) & Cells(i, 5) = "TEKİRDAĞMERKEZ" Then Sayfa1.Cells(i, 6) = "59##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "TEKİRDAĞMURATLI" Then Sayfa1.Cells(i, 6) = "59##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "TEKİRDAĞSARAY" Then Sayfa1.Cells(i, 6) = "59##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "TEKİRDAĞŞARKÖY" Then Sayfa1.Cells(i, 6) = "59##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATALMUS" Then Sayfa1.Cells(i, 6) = "60##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATARTOVA" Then Sayfa1.Cells(i, 6) = "60##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATBAŞÇİFTLİK" Then Sayfa1.Cells(i, 6) = "60##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATDİĞER" Then Sayfa1.Cells(i, 6) = "60##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATERBAA" Then Sayfa1.Cells(i, 6) = "60##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATMERKEZ" Then Sayfa1.Cells(i, 6) = "60##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATNİKSAR" Then Sayfa1.Cells(i, 6) = "60##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATPAZAR" Then Sayfa1.Cells(i, 6) = "60##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATREŞADİYE" Then Sayfa1.Cells(i, 6) = "60##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATSULUSARAY" Then Sayfa1.Cells(i, 6) = "60##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATTURHAL" Then Sayfa1.Cells(i, 6) = "60##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATYEŞİLYURT" Then Sayfa1.Cells(i, 6) = "60##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "TOKATZİLE" Then Sayfa1.Cells(i, 6) = "60##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONAKÇAABAT" Then Sayfa1.Cells(i, 6) = "61##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONARAKLI" Then Sayfa1.Cells(i, 6) = "61##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONARSİN" Then Sayfa1.Cells(i, 6) = "61##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONBEŞİKDÜZÜ" Then Sayfa1.Cells(i, 6) = "61##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONÇARŞIBAŞI" Then Sayfa1.Cells(i, 6) = "61##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONÇAYKARA" Then Sayfa1.Cells(i, 6) = "61##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONDERNEKPAZARI" Then Sayfa1.Cells(i, 6) = "61##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONDİĞER" Then Sayfa1.Cells(i, 6) = "61##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONDÜZKÖY" Then Sayfa1.Cells(i, 6) = "61##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONHAYRAT" Then Sayfa1.Cells(i, 6) = "61##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONKÖPRÜBAŞI" Then Sayfa1.Cells(i, 6) = "61##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONMAÇKA" Then Sayfa1.Cells(i, 6) = "61##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONMERKEZ" Then Sayfa1.Cells(i, 6) = "61##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONOF" Then Sayfa1.Cells(i, 6) = "61##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONŞALPAZARI" Then Sayfa1.Cells(i, 6) = "61##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONSÜRMENE" Then Sayfa1.Cells(i, 6) = "61##15"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONTONYA" Then Sayfa1.Cells(i, 6) = "61##16"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONVAKFIKEBİR" Then Sayfa1.Cells(i, 6) = "61##17"
ElseIf Cells(i, 4) & Cells(i, 5) = "TRABZONYOMRA" Then Sayfa1.Cells(i, 6) = "61##18"
ElseIf Cells(i, 4) & Cells(i, 5) = "TUNCELİÇEMİŞGEZEK" Then Sayfa1.Cells(i, 6) = "62##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "TUNCELİDİĞER" Then Sayfa1.Cells(i, 6) = "62##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "TUNCELİHOZAT" Then Sayfa1.Cells(i, 6) = "62##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "TUNCELİMAZGİRT" Then Sayfa1.Cells(i, 6) = "62##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "TUNCELİMERKEZ" Then Sayfa1.Cells(i, 6) = "62##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "TUNCELİNAZIMİYE" Then Sayfa1.Cells(i, 6) = "62##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "TUNCELİOVACIK" Then Sayfa1.Cells(i, 6) = "62##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "TUNCELİPERTEK" Then Sayfa1.Cells(i, 6) = "62##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "TUNCELİPÜLÜMÜR" Then Sayfa1.Cells(i, 6) = "62##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "UŞAKBANAZ" Then Sayfa1.Cells(i, 6) = "64##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "UŞAKDİĞER" Then Sayfa1.Cells(i, 6) = "64##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "UŞAKEŞME" Then Sayfa1.Cells(i, 6) = "64##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "UŞAKKARAHALLI" Then Sayfa1.Cells(i, 6) = "64##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "UŞAKMERKEZ" Then Sayfa1.Cells(i, 6) = "64##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "UŞAKSİVASLI" Then Sayfa1.Cells(i, 6) = "64##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "UŞAKULUBEY" Then Sayfa1.Cells(i, 6) = "64##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANBAHÇESARAY" Then Sayfa1.Cells(i, 6) = "65##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANBAŞKALE" Then Sayfa1.Cells(i, 6) = "65##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANÇALDIRAN" Then Sayfa1.Cells(i, 6) = "65##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANÇATAK" Then Sayfa1.Cells(i, 6) = "65##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANDİĞER" Then Sayfa1.Cells(i, 6) = "65##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANEDREMİT" Then Sayfa1.Cells(i, 6) = "65##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANERCİŞ" Then Sayfa1.Cells(i, 6) = "65##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANGEVAŞ" Then Sayfa1.Cells(i, 6) = "65##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANGÜRPINAR" Then Sayfa1.Cells(i, 6) = "65##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANMERKEZ" Then Sayfa1.Cells(i, 6) = "65##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANMURADİYE" Then Sayfa1.Cells(i, 6) = "65##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANÖZALP" Then Sayfa1.Cells(i, 6) = "65##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "VANSARAY" Then Sayfa1.Cells(i, 6) = "65##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "YALOVAALTINOVA" Then Sayfa1.Cells(i, 6) = "77##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "YALOVAARMUTLU" Then Sayfa1.Cells(i, 6) = "77##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "YALOVAÇİFTLİKKÖY" Then Sayfa1.Cells(i, 6) = "77##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "YALOVAÇINARCIK" Then Sayfa1.Cells(i, 6) = "77##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "YALOVADİĞER" Then Sayfa1.Cells(i, 6) = "77##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "YALOVAMERKEZ" Then Sayfa1.Cells(i, 6) = "77##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "YALOVATERMAL" Then Sayfa1.Cells(i, 6) = "77##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATAKDAĞMADENİ" Then Sayfa1.Cells(i, 6) = "66##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATAYDINCIK" Then Sayfa1.Cells(i, 6) = "66##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATBOĞAZLIYAN" Then Sayfa1.Cells(i, 6) = "66##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATÇANDIR" Then Sayfa1.Cells(i, 6) = "66##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATÇAYIRALAN" Then Sayfa1.Cells(i, 6) = "66##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATÇEKEREK" Then Sayfa1.Cells(i, 6) = "66##07"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATDİĞER" Then Sayfa1.Cells(i, 6) = "66##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATKADIŞEHRİ" Then Sayfa1.Cells(i, 6) = "66##08"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATMERKEZ" Then Sayfa1.Cells(i, 6) = "66##01"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATSARAYKENT" Then Sayfa1.Cells(i, 6) = "66##09"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATSARIKAYA" Then Sayfa1.Cells(i, 6) = "66##10"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATŞEFAATLİ" Then Sayfa1.Cells(i, 6) = "66##12"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATSORGUN" Then Sayfa1.Cells(i, 6) = "66##11"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATYENİFAKILI" Then Sayfa1.Cells(i, 6) = "66##13"
ElseIf Cells(i, 4) & Cells(i, 5) = "YOZGATYERKÖY" Then Sayfa1.Cells(i, 6) = "66##14"
ElseIf Cells(i, 4) & Cells(i, 5) = "ZONGULDAKALAPLI" Then Sayfa1.Cells(i, 6) = "67##02"
ElseIf Cells(i, 4) & Cells(i, 5) = "ZONGULDAKÇAYCUMA" Then Sayfa1.Cells(i, 6) = "67##03"
ElseIf Cells(i, 4) & Cells(i, 5) = "ZONGULDAKDEVREK" Then Sayfa1.Cells(i, 6) = "67##04"
ElseIf Cells(i, 4) & Cells(i, 5) = "ZONGULDAKDİĞER" Then Sayfa1.Cells(i, 6) = "67##96"
ElseIf Cells(i, 4) & Cells(i, 5) = "ZONGULDAKKARADENİZEREĞLİ" Then Sayfa1.Cells(i, 6) = "67##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ZONGULDAKEREĞLİ" Then Sayfa1.Cells(i, 6) = "67##05"
ElseIf Cells(i, 4) & Cells(i, 5) = "ZONGULDAKGÖKCEBEY" Then Sayfa1.Cells(i, 6) = "67##06"
ElseIf Cells(i, 4) & Cells(i, 5) = "ZONGULDAKMERKEZ" Then Sayfa1.Cells(i, 6) = "67##01"
End If
Next i
End Sub
Kullanıcı avatarı
shoca
Yeni Başlamış
 
Adı Soyadı:Seyfi TANDOĞAN
Kayıt: 09 Ekm 2010 09:21
Konum: BURSA
Meslek: Öğretmen
Yaş: 31
İleti: 36
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: Yavaşlayan :D En Sonunda Tıkanan Döngü

İleti#2)  Tarkan VURAL » 13 May 2011 00:32

Yanıt alabilmek için profil bilgilerinizi güncellemelisiniz.
Resim
www.yazilim.technology

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...

Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 19:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 41
İleti: 25507
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM

Bumerang - Yazarkafe

Cevap: Cevap: Yavaşlayan :D En Sonunda Tıkanan Döngü

İleti#3)  shoca » 13 May 2011 00:37

Tarkan VURAL yazdı:Yanıt alabilmek için profil bilgilerinizi güncellemelisiniz.


Güncelledim :)
Kullanıcı avatarı
shoca
Yeni Başlamış
 
Adı Soyadı:Seyfi TANDOĞAN
Kayıt: 09 Ekm 2010 09:21
Konum: BURSA
Meslek: Öğretmen
Yaş: 31
İleti: 36
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: Yavaşlayan :D En Sonunda Tıkanan Döngü

İleti#4)  Tarkan VURAL » 13 May 2011 01:35

Daha sağlıklı bir yol var. Kodlara yazdığınız verileri bir sayfa içine sabitleyip, aramaları bu sayfadan direkt yaptırabilirsiniz. Çok daha hızlı sonuç verecektir.
Resim
www.yazilim.technology

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...

Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 19:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 41
İleti: 25507
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe