Bu dosya, bir hücreye tıkladığınızda hücrenin yanında kademeli olarak açılan üç ListBox ile seçim yapmanızı sağlar. Seçtiğiniz son değer, tıkladığınız hücreye yazılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Veri: Liste kaynaklarının bulunduğu sayfa. Başlıklar Site, Kurucu ve Destek şeklindedir. Örnek satırlarda ExcelDepo, ExcelDestek, OrkmesB, Ömer BARAN, Çıtır ve Mdemir adları yer alır.
- Sayfa2: A1 hücresinde "Tarih", C1 hücresinde "Görevi" başlığı olan, A1:D27 aralığında çalışma sayfası. Listeler bu sayfada çalışır.
- Sayfa2 (2): Sayfa2 ile aynı yapıda ve aynı makro koduna sahip ikinci kopya.
site (Veri!A2:A4), grub (B2:B4), Kurucu (C2:C4), Yonetici (D2:D4), Destek (E2:E4) ve Edepo (F2:F3). ListBox'lar bu adları ListFillRange olarak kullanır.Makrolar
Makrolar sayfa modüllerinde (Sayfa1 ve Sayfa2) yer alır. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem görünmemektedir. Makrolar sayfa olaylarıyla otomatik çalışır, ayrıca çalıştırmanız gerekmez.- Worksheet_SelectionChange: Tek bir hücre seçtiğinizde hücrenin üstüne ilk ListBox'ı yerleştirir ve
sitelistesiyle doldurur. Sayfa1'deki sürümde yalnızca 2. sütun (B) ve 2. satırdan itibaren çalışır. Sayfa2'de bu sınırlama yorum satırı haline getirilmiştir, yani her hücrede çalışır. - ListBox1_Click: Seçime göre ikinci ListBox'ı ilk listenin sağında açar. İlk seçenek için
Edepo, ikinci seçenek içingrublistesi yüklenir. - ListBox2_Click: Üçüncü ListBox'ı açar. Seçime göre
kurucu,yoneticiveyaDesteklistesi yüklenir. - ListBox3_Click: Seçilen değeri tıkladığınız hücreye yazar ve üç listeyi gizler.
- Worksheet_Activate: Sayfa açıldığında listeleri gizler.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Sayfa2 sayfasında bir hücreye tıklayın. İlk liste hücrenin üstünde açılır.
- İlk listeden bir değer seçin, ikinci liste sağında açılır.
- İkinci listeden seçim yapın, üçüncü liste açılır.
- Üçüncü listeden seçtiğiniz değer hücreye yazılır ve listeler kapanır.
- Listelerin içeriğini değiştirmek için Veri sayfasındaki ilgili aralıkları düzenleyin.