İstanbul İlçelerinin Nöbetçi Eczanelerini Listeleme

Bu dosya, İstanbul ilçelerinden biri seçildiğinde o ilçenin güncel nöbetçi eczanelerini çekip tablo halinde listeler. Veriler İstanbul İl Sağlık Müdürlüğünün web sitesinden Power Query ile alınır; ilçe seçimi yapıldığında sorguyu yenileme işini bir VBA makrosu üstlenir.

Dosyanın içeriği​

• Nobetci_Eczaneler: Ana çalışma sayfasıdır. C3 hücresinde ilçe seçimi için bir liste (veri doğrulama) bulunur; seçim alanında ilçe adı görüntülenir (örnekte Çatalca). Sonuç tablosu B5:I6 aralığındadır ve Tarih, Eczane Adı, Faks ve Adres sütunlarını içerir.
• Data: Gizli sayfadır. A1:A40 aralığında ilçe adlarının listesi tutulur ve seçim listesi bu aralıktan beslenir.

Dosyada Power Query sorgusuyla bağlı üç tablo ve harici veri aralığı tanımları yer alır. Çalışma sayfalarında hücre formülü kullanılmaz; sonuçlar sorgudan gelir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

• Worksheet_Change: Nobetci_Eczaneler sayfasında C3 hücresi değiştiğinde otomatik çalışır. Ekran güncellemesini ve olay işlemeyi geçici olarak kapatır, sayfadaki Query3 tablosunun sorgusunu arka planda çalıştırmadan yeniler, ardından ayarları eski haline getirir.

Makro elle çalıştırılmaz; ilçe seçimi yapıldığında kendiliğinden devreye girer. Kodda dosya silme gibi zararlı bir işlem yoktur; yalnızca sorgu yenileme yapılır ve veri internet üzerinden alınır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. İnternet bağlantınızın açık olduğundan emin olun; sorgu verileri çevrimiçi kaynaktan alır.
3. Nobetci_Eczaneler sayfasında C3 hücresindeki listeden ilçeyi seçin.
4. Sorgu yenilendikten sonra B5:I6 bölgesindeki tabloda tarih, eczane adı, faks ve adres bilgileri güncellenir.
5. Başka bir ilçe için C3 hücresinden yeni seçim yapmanız yeterlidir.