• 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
Konu Sahibi
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
Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.
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
Merhaba.

Uzun uğraşlar sonucu alttaki gibi bir kod yapabildim.
Kod bilginiz varsa sanıyorum bu koda eklemeler yapıp ayarlayabiliriz.

ilgili siteden 504 ve 9193 gibi olanları buldum biri il diğeri ilçe.
Hepsini alıp güzel bir şekilde yaparsam paylaşırım dosyayı.
Ben fazla anlamıyorum internetten veri çekme ama araştırınca buldum bişeyler :)

HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da üye ol.
 
Olumlu oy 0 Negatif oyla
Yani bu kodlar çalışınca il ve ilçe değişiyor ilgili sitede.
Artık ordanda verileri sayfaya çekmek sanıyorum zor değil.
Sadece 81 ilin ilgili numaraları ve ilçenin numaralarını tek tek almam gerekecek o siteden incele yolu ile.
Gerisi kolay sanki.
Dediğim gibi bitince eklerim.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi

Refaz,​


Öncelikle hayırlı Ramazanlar. Yardım için teşekkürler, eyvallah.

Hocam, Refaz; sayfada bir buton olsa bu butona tıklasak tüm internetteki verileri çekse... Kod bilgim yok ekteki dosyayı hazırlarsanız paylaşırsanız sevinirim... Müteşekkir olurum.
 
Olumlu oy 0 Negatif oyla
Sizede hayırlı ramazanlar abey.
Comboboxtan seçilince yada butona tıklayınca ilgili siteye örnek adana gönderip orda adananın imsakiyeleri getirilir.Ama sonradan o verileri nasıl excele getireceğim kara kara düşünmekteyim :)
Keşke fazla anlasaydım ama umudum biraz azaldı :(
Yinede bişeyley yapınca eklerim.
İnternet adresinin sonuna il ve ilçeleri birleştirme olsaydı iş kolaydı ama vardır bir yolu.
 
Olumlu oy 0 Negatif oyla
Bir kere başlamış oldum bu konuya.
Bu yüzden dasyayı bitirdim.

Array(500, 9146) buraki 500 İL,9146 ise oluyor.Bunları sayfayı incele yaparak bulabilirsiniz.
Ben sadece Adana,Adıyaman ve Ankara için yaptım.
Kod çalışınca sendkeys den dolayı numlock kapanıyor bunun için internette çözüm var ve bu dosyayı kullanmaya gerek duyulmadığını düşündüğüm için eklemedim koda.
Kod çalışırken başka işlem yapmayın.
Çünkü giftede gösterdiğim gibi tarayıcı açılıyor veriler oraya gidince sayfadakileri kopyalıyor ve excele alıyor.
Tarayıcı çalışırken görünür olmalı.Aktarım adında sayfa ekledim silinmemesi gerekiyor kopyalanan veriler oraya gidiyor önce.

Eminim başka yolda vardır ama anlamıyorum veri çekme internetten.

reee.gif

HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da üye ol.
 

Ekli dosyalar

Son düzenleme:
Olumlu oy 0 Negatif oyla
Konu Sahibi

Refaz,​

Tekrarda sağ olasın. Çok uğraş emek vermişsin. Eyvallah.

Aşağıdaki kodlarda illerdeki rakamlara artıkça mı iller geliyor, bütün iş bura da yani illeri getiriyoruz?

Function getirSayi_iL_ilce(ByVal cbo As Object)
Select Case cbo.Value
Case "Adana": getirSayi_iL_ilce = Array(500, 9146)
Case "Adıyaman": getirSayi_iL_ilce = Array(501, 9158)
Case "Ankara": getirSayi_iL_ilce = Array(506, 9206)
Case Else: getirSayi_iL_ilce = Array(0, 0)
End Select
End Function
 
Olumlu oy 0 Negatif oyla
Bişey değil abey.
Evet case Ankara nın altına devam edilecek ve İl ve numaralar doğru yazılmalı.
Zaman buldukça uğraşırım belki explorer gösterilmeyebilinir ve ek sayfaya gerek olmayabilinir.
 
Olumlu oy 0 Negatif oyla
Abey siz dediklerimi tamamlayın inşAllah güzel olacak biraz ilerleme var bende.
Bayram namazlarını vs... ve İL adlarınıda otomatik çekebiliriz.
Yavaş yavaş ilerleme oluyor.
 
Olumlu oy 0 Negatif oyla
Abey.
Bugün biter dosya kopyalama,numlock ve extra sayfalara gerek kalmadı.
Gerekli ayarlamaları yapınca dosyayı eklerim.
 
Olumlu oy 0 Negatif oyla
Abey dosya bitti.
Adıyaman,Ankara ve Adana için yaptım.

Sabitler sayfasındaki bayram namazları saatlarine gerek yok onu ve bazı işlemleri ayarlarım bu akşam.
Gif ekledim.
Extra sayfaya nasıl veri geliyor diye tek tek veri aldırdım onuda değiştiririz sonra.
Deneye yanıla araştıra araştıra bu hale geldi.
Dediğim gibi akşam tam ilgilenirim.

Forumda o kadar internetten veri çekme anlayan var neden el atmıyorlar buda ayrı bir konu :)

rrr.gif



HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da üye ol.
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
Konu Sahibi
Sahurdan sonra illere 12 şer 12 şer değer verdim ama Aksaray’da kaldı. İl adını yazsamda hep Aksaray geldi.
 
Olumlu oy 0 Negatif oyla
Kodlar çalışıyor function kodunu ekleyin bakıp onuda koda ekleyelim.
Normalde mantıken o sitedeki kaynak kodlarındanda numara çekilebilinir ama tecrübesiz olduğum için bukadar oldu zaman olunca onuda otomatiğe bağlatırız belki.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi

Refaz,​

hocam Afyonkarahisar getirdim. sanırım oldu. Ama biraz bekleyince geliyor. Bir ekran resmi ekleyeyim.
 

Ekli dosyalar

  • Afyon.png
    Afyon.png
    93.8 KB · Gösterim: 6
Olumlu oy 0 Negatif oyla
mehmetveliyy' Alıntı:

Refaz,​

hocam Afyonkarahisar getirdim. sanırım oldu. Ama biraz bekleyince geliyor. Bir ekran resmi ekleyeyim.
Genişletmek için tıkla...
Abey bir kod buldum koddaki functionlara gerek kalmayacak galiba.Yani İl ve ilçeiçin numara aramaya gerek kalmayacak galiba.
Yani bir bekleyin dosyayı bitirince eklerim.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst