• 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ü İl merkezleri ve tüm ilçeleri getirme

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ı günler.


Ek kısmına eklediğim çalışma sayfasında, bir ili seçtiğimizde örneğin İstanbul il merkezini hem de tüm ilçelerin aynı anda tabloya getirebilir mi?
 

Ekli dosyalar

Çözüm
Refaz
Artık 29 da olsa 30 da olsa otomatiğe bağlattım ve for each ile yazılan gereksiz kodları değiştirdim abey.
Denersiniz.Kodlar altta bunu sizin ilçe eklediğiniz dosyaya uygularsınız.
Birde resimdeki gibi boyadığım gibi yaptım sayfa adlarını özelliklerden.

77.png


Rich (BB code): 
Private Const urLL As String = "https://ramazan.diyanet.gov.tr/tr-TR/Imsakiye/Imsakiye?ilId="


Private Function yirmidokuz_otuz() As Byte
    Dim kac As Long, ii As Integer, kes As Byte, bulAdet As Object, ilSec As String
    
    yirmidokuz_otuz = 0
    ilSec = imsakiye.Cells(2, "i").Value
    
    If Trim(ilSec) = "" Then
        MsgBox "il sec.", vbCritical, "Hata": Exit Function
    End If
    
    On Error Resume Next
    kac = WorksheetFunction.Match(ilSec...
Tarihe göre sırala Oylara göre sırala
Bir deneme yaptım. İlçe değiştiğinde makro çalışır. Kontrol ediniz
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla

askan​

hocam değişikliği fark ettim. Peki, şimdi il ve ilçeleri imsakiye sayfasına aktara bilir mi? Zor bir şey mi istedim?
 
Olumlu oy 0 Negatif oyla
aktarılır hocam üzerinde biraz çalışırsak olur. Alt alta mı listelenecek ?
 
Olumlu oy 0 Negatif oyla
Hocam örnek dosya ekliyorum. Örnek dosya da Adana ili ve ilçeleri olduğu gibi. Bunları kopyala, yapıştır ile yaptım. Siz bir bakış açısı olması için faydalı olur diye eklemek istedim.
 

Ekli dosyalar

Olumlu oy 0 Negatif oyla
Hocam, Vakitler sayfasında sahur ve iftar kısmına; 2022 ekleye blir miyiz? çünkü kopyala yapıştır yaparken sahur ve iftar vakitlerini imsakiye sayfası D ve E sütunlarından yapıyorum. böylece 2022 senesi ekleniyor ve diğer kopyalama yaptığım imsakiye excel çalışma sayfası 06 nolu mesajda paylaştığımla ona göre yapınca imsakiye çalışıyor bu türlü çalışmıyor. inşallah anlatmışımdır.
 
Olumlu oy 0 Negatif oyla
Eğer olmazsa, hocam sizin yaptığınız mesaj 8 de Vakitler kısmına =+B2+D2 sahurda ve iftarda =+B2+E2 kullanıp devam ederim.
 
Olumlu oy 0 Negatif oyla

Refaz​

, Hocam on numara ama ben on değil on bir veriyorum yok yok hatta ad konmamış bir sayı veriyorum.

Tarih ve sahur ve iftar kısımlarını zaman kısmını nasıl yaptınız? Eğer uzun değilse gif ile anlata bilir misiniz?

Hocam bir nolu mesajdaki bazı illerin ilçeleri tabloya ekli değildi. Ekli olmayanları diyanet sitesi sayfa kaynağı görüntüle il id ve ilçeleri kendim ekledim. Bu bilgiyi siz daha önceki konularda vermiştiniz. Yaptım oldu.
 
Olumlu oy 0 Negatif oyla
Tamamdır hocam. Sizi yine yakın bir zamanda yine bu konu ile alakalı rahatsız edebilirim? Yeni konu ile birlikte.
 
Olumlu oy 0 Negatif oyla
Birde üstadın birisi verileri getirme kodu yazmıştı şu imsakiye sayfası için.
O koda göre yaptım biraz değiştirdim.
Kod internetteki tüm tablo sütunlarda dolaşıyor ve azda olsa biraz uzun sürüyordur.
Yani vakitler syfası için yazdığım koda bir ayar çekebilirsem belki biraz daha hızlanır ama bende acemiyim internetten çekme için.Yaparsam paylaşırım abey.
 
Olumlu oy 0 Negatif oyla
Hocam kodları buldum doğru mu?

Range("b2").Resize(UBound(arr, 2), 3).Value = WorksheetFunction.Transpose(arr)
.Range("B2:B" & .Cells(Rows.Count, 1).End(3).Row).NumberFormat = " dd mmmm yyyy dddd"
.Range("C2:D" & .Cells(Rows.Count, 1).End(3).Row).NumberFormat = "hh:mm"

Alt kısımlardaki yazarsan oluyor ve silersen olmuyor doğru mudur?

" dd mmmm yyyy dddd"

"hh:mm"
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst