• DİKKAT !

    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 Dosya Yükleme tamamen ücretsizdir.

Çö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

Yeni Üye
Katılım
22 Mar 2022
Mesajlar
170
Çözümler
2
Aldığı beğeni
60
Excel V
Office 365 TR
Konu Sahibi
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?
 
Çözüm
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


HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da Üye ol.
Bir deneme yaptım. İlçe değiştiğinde makro çalışır. Kontrol ediniz
 
Konu Sahibi

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?
 
aktarılır hocam üzerinde biraz çalışırsak olur. Alt alta mı listelenecek ?
 
Konu Sahibi
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.
 
Konu Sahibi
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.
 
Konu Sahibi
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.
 
Konu Sahibi

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.
 
Konu Sahibi
Tamamdır hocam. Sizi yine yakın bir zamanda yine bu konu ile alakalı rahatsız edebilirim? Yeni konu ile birlikte.
 
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.
 
Konu Sahibi
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"
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst