• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Web den sahur iftar saatlerini otomatik alma yapılır mı?

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Excelismail

Excelismail

Yeni Üye
Katılım
22 Mar 2022
Mesajlar
170
Çözümler
2
Aldığı beğeni
57
Excel V
Office 365 TR
Hayırlı Ramazanlar, hayırlı günler.

Ekte eklediğimi Tüm illerin excel ramazan 2022 imsakiyesine ve inşallah gelecek seneler de dahil olmak üzere illerin sahur ve iftar vakitlerini otomatik olarak eklenebilir mi?

Eğer olursa; İmsak ve iftar bilgileri Din İşleri Yüksek Kurulu : Dini Bilgilendirme Platformu siteden gelecek. Çalışma sayfası Vakitler sayfası; A sütüne iller, B sütün tarih, C sütun sahur ve D sütun iftar olarak gelsin.
 

Ekli dosyalar

Tarihe göre sırala Oylara göre sırala
Rica ederim. Ben vakitlerin temini için uğraştım. Sizin dosyanıza özgü bir işlem yapmadım. Bundan sonrası sizin kendi çabanıza bağlıdır. İyi geceler.
 
Olumlu oy 0 Negatif oyla
Şu tarih ve saat olayını hallettim.
Öncedende dediğim gibi bir adet combo daha eklenir ve il ile bağlantılı ilçeler ordan seçilerek vakitler alınır bence.


sss.png
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
Hocam aynısını tablo üzerinde vba'sız yaptım. Şöyle: sütun ekledim. B sütüne günleri getirdim. sonra bir hücrede =+A2+E2 A2; 22.04.2022 ve E2; Sahur vakti 04:59 aşağıya doğru çektim ve oldu. Sonra aynısını iftarda uyguladım. =+a2+f2 formülü ile.
 
Olumlu oy 0 Negatif oyla
Sütun eklemeye felan gerek yok abey.
Kod hallediyor zaten.
Ayrıca ilçe comboda ekledim.
il seçince arka planda internetten bağlantılı ilçeyi getiriyor.
Butona tıklayıncada işlem tamam.Gifte gösterdim.
Dosyayı ekledim örnek olması açısından.

rrzzz.gif
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
Refaz Üstat, webden tablo çekme işini biz kökten hallettik. Bütün illeri ve ilçeleri çektirdik.
Naçizane bunun için vakit kaybetmeye gerek yoktur. Zaten bütün veri elimizde var. Yazdığınız kodlar her kullanımda netten çekmek yerine elimizdeki datadan çekebilir.
 
Olumlu oy 0 Negatif oyla
Formül aradan çıkıyor demek ki. Refaz@ hocam tüm iller ve ilçeleri hepsini ben yapabilir miyim? Kod bilgim yok ama denemek isterim.
 
Olumlu oy 0 Negatif oyla
ubak' Alıntı:
Refaz Üstat, webden tablo çekme işini biz kökten hallettik. Bütün illeri ve ilçeleri çektirdik.
Naçizane bunun için vakit kaybetmeye gerek yoktur. Zaten bütün veri elimizde var. Yazdığınız kodlar her kullanımda netten çekmek yerine elimizdeki datadan çekebilir.
Genişletmek için tıkla...
Örnek olması içindi abey.
Normalde zaten bir yerden tüm iller ve ilçeler normal excele alınır internetten çektirmedende.
Seçime görede veriler gelebilir aslında.
 
Olumlu oy 0 Negatif oyla
Alttaki kod ilave ettim.
Sabitler sayfası D5 e kaydettirdim onu silip deneyebilirsiniz doğrulununu.
Tabii Butondan imsakiye çağırınca gelir.



C#: 
Private Function Fitre() As String

   Fitre = ""

   Const URL = "https://kurul.diyanet.gov.tr/Duyuru-Detay/Duyurular/858/2022-yili-fitre-miktari-belli-oldu"
   Dim xxxx As Object, http As Object, html As Object


    Set http = CreateObject("MSXML2.XMLHTTP")
    Set html = CreateObject("htmlFile")
    With http
        .Open "GET", URL, False
        .send
        html.body.innerHTML = .responseText
    End With
      
    For Each xxxx In html.getElementsByClassName("panel-body")(0).getElementsByTagName("li")
        With xxxx.getElementsByTagName("strong")
            If .Length Then Fitre = .Item(0).innerText
        End With
    Next
    
    Set xxxx = Nothing: Set http = Nothing: Set http = html
    
End Function
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
2022 yılı için site adresinden aldım 2023 için adres değişirse hata olabilir.
Varsa bildiğiniz site ordan aldıralım.

Önceki mesajdaki alttaki 2022 yi değişkene bağlayıp otomatikleştirebilirz ama belki 858 de değişebilir.
Kod: 
Const URL = "https://kurul.diyanet.gov.tr/Duyuru-Detay/Duyurular/858/2022-yili-fitre-miktari-belli-oldu"
 
Olumlu oy 0 Negatif oyla
Hocam geç cevap veriyorum. genelde olaya hakim olmadığım için genelde ondan geri dönüş geç oluyor.


Hocam bu site den de; Ramazan 2022 İmsakiye çekilebilir. İmsakiye yi hazırlarken bu siteden veri kopyala yapıştır ile alıyordum sonra bu site hata verince bu Din İşleri Yüksek Kurulu : Dini Bilgilendirme Platformu kullanmaya başladım.

Ayrıca il ilçe getir yaptığımda; objcet dosen't support this property or method hata veriyor ben mi yanlış bir şey yaptım?
 
Olumlu oy 0 Negatif oyla
Visual Basicte
Tools>References ten Microsoft HTML Object Library yi aktif edin.
il seçin, ilçe seçin İMSAKİYE BİLGİLERİNİ AL butonuna tıklayın.
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
Dosyayı az değiştirdim.
il ve ilçe seçilip veri gelince ilçe siliniyordu düzelttim.
Birde heri getirmeden sonra 10 saniye felan bekleyin.
Onada bir çözüm yapınca eklerim.
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
muratboz06' Alıntı:
Ekli dosyayı görüntüle 7218
Genişletmek için tıkla...
Aslında onlar seçilmesede çalışması için alttaki gibi yapmıştım ve bende onlar seçilideğil yinede çalışıyor abey.
Hata belki me.combo yazmıştım sayfa2.combo gibi yazmadığım için vermiştir.
Bende her türlü çalışıyor.

Kod: 
Set http = CreateObject("MSXML2.XMLHTTP")
Set html = CreateObject("htmlFile")
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst