Muzaffer AKYIL (Victorious) » Excel

İl – İlçe – Semt – Mahalle – Köy – Plaka – Posta Kodu Veritabanı

Muzaffer Ali AKYIL — Tue, 30 Nov 2010 13:40:21 +0000

Eğer web sitesi yada program yazan biri iseniz yada işiniz gereği il ilçe mahalle bilgisine ihtiyaç duyuyorsanız bu konu sizi çok ilgilendirmektedir.

PTT den 30.11.2010 tarihi itibariyle aldığım il – plaka – ilçe – semt – mahalle – köy – posta kodu veritabanını normal kullanıcıların ve biz programcıların kullanabileceği formatta sizlere sunuyorum.

GÜNCELLEME
~~19.08.2009 tarihi itibariyle PTT den alınan veritabanı ile köylerde dahil olmak üzere güncellenmiştir.~~
30.11.2010 tarihi itibariyle PTT den alınan veritabanı ile güncellenip 3 farklı coding ile yayınlanmıştır.

Nerede ?

İl İlçe Semt Mahalle Köy Plaka Posta Kodu – Excel 2003

İl İlçe Semt Mahalle Köy Plaka Posta Kodu – MySQL – Latin1 – ANSI

İl İlçe Semt Mahalle Köy Plaka Posta Kodu – MySQL – Latin5 – ANSI

İl İlçe Semt Mahalle Köy Plaka Posta Kodu – MySQL – UTF8

Nasıl ?

MySQL veritabanı şekliyle verilerin birbirine bağlantısı aşağıdaki gibidir ;

İl İlçe Semt Mahalle Köy Plaka Posta Kodu

MySQL Sorgu olarak şu şekilde kullanılabilir ;


SELECT il.IL_ID,
       il.IL_ADI_BUYUK,
       il.IL_ADI,
       il.IL_ADI_KUCUK,
       il.PLAKA,
       ilce.ILCE_ID,
       ilce.ILCE_ADI_BUYUK,
       ilce.ILCE_ADI,
       ilce.ILCE_ADI_KUCUK,
       semt.SEMT_ID,
       semt.SEMT_ADI_BUYUK,
       semt.SEMT_ADI,
       semt.SEMT_ADI_KUCUK,
       semt.POSTA_KODU,
       mahalle_koy.MAH_ID,
       mahalle_koy.MAHALLE_ADI_BUYUK,
       mahalle_koy.MAHALLE_ADI,
       mahalle_koy.MAHALLE_ADI_KUCUK
FROM   il
       LEFT JOIN ilce
            ON  ilce.IL_ID = il.IL_ID
       LEFT JOIN semt
            ON  semt.ILCE_ID = ilce.ILCE_ID
       LEFT JOIN mahalle_koy
            ON  mahalle_koy.SEMT_ID = semt.SEMT_ID

Kolay Gelsin…

Excel Mükerrer Kayıt Kontrolü

Muzaffer Ali AKYIL — Fri, 22 Feb 2008 10:13:56 +0000

Bir çok zaman Excel de bulunan bir listede bulunan mükerrer (birbiri ile aynı) kayıtlar başımızı ağrıtmıştır. Bu kayıtların tek tek kontrolü uzun zaman ve emek istemektedir. Peki bu mükerrer kayıtları Excel bizim için bir şekilde gösterebilir mi ?

Aşağıdaki işlemleri uyguladıktan sonra tabiki gösterebilir :)

Öncelikle mükerrer kayıtları arayacağımız alanı seçiyoruz ;

Ekle menüsü altında Ad – Tanımla’ya tıklayıp gelen pencerede istediğimiz bir ad yazıp Ekle diyoruz. Böylece Seçtiğimiz alanı bir liste olarak Excel’e tanıtmış oluyoruz.

Seçtiğimiz alan hala aktif iken Biçim menüsü Koşullu Biçimlendirme’ye tıklıyor ve Koşul 1 de Formül seçip yan tarafına

Eğer Excel Türkçe ise ;

=EĞER(EĞERSAY(TEST;A1)>1;DOĞRU; YANLIŞ)

Eğer Excel İngilizce ise ;

=IF(COUNTIF(TEST;A1)>1;TRUE; FALSE)

formulünü yazıyoruz.

Sonrasında bu koşul gerçekleştiğinde biçimlendirmenin nasıl olacağını Biçim’e tıklayarak belirliyoruz ve Tamam diyerek işlemi bitiriyoruz.

Formülde kullanılan TEST kelimesi sizin tanımladığını Ad – Tanımla da belirttiğiniz kelimedir. Değiştirmeyi unutmayınız.

Ve sonuç karşınızda artık mükerrer kayıtlarım belirlediğim biçimlendirme ile bana gösteriliyor.

Kolay Gelsin.

Ekran Görüntüleri :

Mükerrer Kayıt

Metine Dönüştür Makrosu

Muzaffer Ali AKYIL — Tue, 22 Jan 2008 11:37:28 +0000

Excelde çalışırken bazen başka bir kaynaktan Excele veri yapıştırdığınızda metinsel alanların metin olarak gelmediğini yada sayısal alanların sayı olarak tanımlanmadığını görürüz. Hatta bazen Tarih alanlarının metin alanı olarak tanıtıldıgını farkederiz. Böyle durumlarda Hücre Biçimledir ile Hücre tipini olması gereken tipe getiririz. Fakat Excel bunu algılamaz ve illaki o hücrelerin içine girip Enter basmamızı ister. Heleki uzun bir tablonuz varsa bu bazen ölüm olur. İşte aşağıdaki kod sizi bu dertten kurtaracak Makro yu içeriyor.

Bunu Excelde makro kaydederek ekleyin ve o sütunun en başına gelin, tanımladığınız kısayolu kullanın. Makro bir sonraki boş satıra kadar önüne gelen tüm hücrelere girip Enter basıcaktır.


Sub MetneCevir()
Dim bitti As Boolean
bitti = False
    MsgBox "Bir Sonraki Boş Satıra Kadar Hücreler Metine Çevirilecek"
    Do While bitti = False
    DoEvents
    If ActiveCell.FormulaR1C1 = "" Then
    bitti = True
    Exit Sub
    Else
    bitti = False
    End If
    ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1
    SendKeys "{DOWN}"
    Loop
End Sub

Kolay Gelsin.