Son Deprem Bilgilerini Listeleme

Son Deprem Bilgilerini Listeleme dosyası, Boğaziçi Üniversitesi Kandilli Rasathanesi ve Deprem Araştırma Enstitüsü web sitesindeki son deprem listesini Excel'e aktarır. Veriler bir VBA makrosuyla çekilir ve sütunlara ayrılarak tablo halinde sunulur.

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

Dosyanın içeriği​

• SonDepremler: Kayıtların listelendiği sayfadır. Sütunlar: Tarih, Saat, Enlem(N), Boylam(E), Derinlik(km), MD, ML, Mw ve Yer. Dosyada yaklaşık 500 satırlık deprem kaydı yer alır. Güncelleme düğmesi bu sayfadadır.
• Sheet2: A1:C6 aralığında görsel bağlantıları bulunan yardımcı bir sayfadır. Deprem listesiyle ilgisi yoktur.

Kullanılan formüller​

• IMAGE: Yalnızca Sheet2 sayfasındaki 6 hücrede kullanılmıştır. exceldepo.com adresindeki görselleri hücreye getirir. Bu fonksiyonu desteklemeyen Excel sürümlerinde bu hücrelerde hata görülebilir. Deprem listesi sayfasında formül yoktur.

Makrolar​

Dosyada XD modülü içinde SonDepremler adlı tek bir makro vardır. Makro şunları yapar:

1. SonDepremler sayfasındaki filtreyi kapatır ve 2. satırdan itibaren tüm eski kayıtları siler.
2. MSXML2.XMLHTTP ile Kandilli Rasathanesi'nin son depremler sayfasına GET isteği gönderir.
3. Gelen sayfadaki <pre> bloğunu alır, satırlara böler ve yalnızca başlık satırı ile tarih ile başlayan satırları 3. satırdan itibaren yazar.
4. Satırları sabit genişliğe göre sütunlara ayırır, başlık satırını kalın yapar, tabloya açık gri kenarlık verir ve sütun genişliklerini otomatik ayarlar.

Kodda dosya silme ya da başka bir yere veri gönderme işlemi görünmez. Tek dış bağlantı, veriyi okumak için kullanılan Kandilli adresidir. Makro çalıştığında sayfadaki mevcut kayıtlar silinip yeniden yazılır, bu nedenle elle eklediğiniz notlar kaybolur.

Nasıl kullanılır​

1. Dosyayı indirin ve açın, güvenlik uyarısında makroları etkinleştirin.
2. SonDepremler sayfasına geçin.
3. Üstteki Güncelle düğmesine tıklayın.
4. Liste en son kayıtlarla yenilenir. Güncel veri için işlemi gerektiğinde tekrarlayın.

Veri çekmek için internet bağlantısı gerekir. Kandilli sitesinin sayfa yapısı değişirse makronun düzenlenmesi gerekebilir.

Not: Dosya ücretsiz paylaşılmaktadır, indirmek için üye olmanız yeterlidir. Kodlar özel bir yöntemle şifrelenmiştir. Paylaşım koşulu olarak, öğrenmeye ve desteğe istekliyseniz bir yardım kuruluşuna yapacağınız bağışın makbuzunu WhatsApp hattımıza iletmeniz beklenmektedir.

Enkazda yaşamını yitirenlere Allah'tan rahmet, kederli ailelerine sabır dileriz. Başımız sağ olsun.