Liste Kutusunu İhtiyaç Duyulduğunda Getirme

Bu dosya, bir hücre seçildiğinde liste kutusunun yalnızca ihtiyaç duyulduğunda ekranda belirmesini sağlayan makrolu bir Excel şablonudur. Liste kutusu sürekli sayfada durmaz; kullanıcı değeri seçtiğinde hücreye yazılır ve kutu otomatik olarak silinir.

Dosyanın içeriği​

• Sheet1: Veri girişinin yapıldığı sayfadır. C6:C18 aralığındaki hücreler liste kutusunun açılacağı alanı oluşturur.
• Control: Seçenek listesinin tutulduğu sayfadır. Liste A1:A6 aralığındadır ve ListRange adıyla tanımlıdır; ayrıca ListBox1 adı da Control!$A$1 hücresine bağlıdır.

Dosyada sayfa formülü bulunmaz; işlem tamamen makro ile yürütülür.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar dosya silme veya dış bağlantı gibi işlemler yapmaz. Kod Module1 modülünde yer alır.

• ShowList: Etkin hücrenin konumunda, hücre genişliğinde ve hücre yüksekliğinin 15 katı boyunda bir liste kutusu ekler. Kutuya ListRange bölgesindeki değerler metin olarak doldurulur. Kutu seçildiğinde List_Click makrosu çalışacak şekilde ayarlanır. İşlem sırasında hata oluşursa "Error in pick list routine" mesajı verilir ve kutu silinir.
• List_Click: Kutuda seçilen öğeyi başlangıçta etkin olan hücreye yazar, ardından liste kutusunu siler.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Control sayfasındaki A1:A6 aralığına listede görünmesini istediğiniz seçenekleri yazın.
3. Sheet1 sayfasında C6:C18 aralığından bir hücre seçin.
4. Makro penceresinden (Alt+F8) ShowList makrosunu çalıştırın; isterseniz bir düğme veya kısayol tuşu atayabilirsiniz.
5. Açılan liste kutusundan değeri seçin; değer hücreye yazılır ve kutu kapanır.

Liste farklı bir aralığa taşınacaksa ListRange adının başvurusu Ad Yöneticisi'nden güncellenir.