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

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 » 12 May 2011 23: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 08:21
Konum: BURSA
Meslek: Öğretmen
Yaş: 30
İleti: 36
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

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

İleti#2)  Tarkan VURAL » 12 May 2011 23:32

Yanıt alabilmek için profil bilgilerinizi güncellemelisiniz.
ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...



İ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.
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 41
İleti: 24083
 
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 » 12 May 2011 23: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 08:21
Konum: BURSA
Meslek: Öğretmen
Yaş: 30
İ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 00: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.
ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...



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


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot] ve 0 misafir

Bumerang - Yazarkafe