Açılır listede boş yerine ilk öğeyi nasıl gösteririz?

Çalışma sayfasındaki açılır liste, veri girişi işlemini kolaylaştırabilir. Tek tek yazmak yerine sadece öğeleri seçmemiz yeterlidir. Ancak, bazen açılır listeye tıkladığınızda aşağıdaki ekran görüntüsünde gösterildiği gibi ilk veri öğesi yerine boş öğelere atlar. Bu durum, listenin sonundaki kaynak verilerin silinmesiyle oluşabilir. Her boş veri doğrulama hücresi için uzun bir listede tekrar yukarı kaydırmanız gerekebilir ve bu da can sıkıcı olabilir. Bu makalede, açılır listede her zaman ilk öğeyi nasıl gösterebileceğimizi ele alacağım.

Veri Doğrulama işlevi ile boş yerine açılır listedeki ilk öğeyi gösterme

VBA kodu ile boş yerine açılır listedeki ilk öğeyi otomatik olarak gösterme

Veri Doğrulama işlevi ile boş yerine açılır listedeki ilk öğeyi gösterme

Aslında, bu işlemi gerçekleştirmek için bir açılır liste oluştururken belirli bir formülü uygulamanız yeterlidir, lütfen şu adımları izleyin:

1. Açılır listeyi eklemek istediğiniz hücreleri seçin ve Veri > Veri Doğrulama > Veri Doğrulaması'na tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. Açılan Veri Doğrulama iletişim kutusunda, Ayarlar sekmesi altında İzin Verilen bölümünden Liste'yi seçin ve ardından bu formülü Kaynak metin kutusuna girin: =OFFSET(Sheet3!$A$1,0,0,COUNTA(Sheet3!$A:$A)-1,1), aşağıdaki ekran görüntüsüne bakın:

Not: Bu formülde, Sheet3, kaynak veri listesini içeren çalışma sayfasıdır ve A1, listedeki ilk hücre değeridir.

3. Ardından Tamam düğmesine tıklayın, şimdi açılır liste hücrelerine tıkladığınızda, kaynak verinin sonundaki hücre değerleri silinse bile ilk veri öğesi her zaman üstte gösterilir, aşağıdaki ekran görüntüsüne bakın:

VBA kodu ile boş yerine açılır listedeki ilk öğeyi otomatik olarak gösterme

Burada ayrıca, veri doğrulama hücrelerine tıkladığınızda açılır listedeki ilk öğeyi otomatik olarak gösterebilecek bir VBA kodunu da tanıtabilirim.

1. Açılır listeyi ekledikten sonra, açılır listeyi içeren çalışma sayfası sekmesini seçin ve sağ tıklayarak Görünüm Kodu'nu seçerek Microsoft Visual Basic for Applications penceresine gidin, ardından aşağıdaki kodu Modül'e kopyalayıp yapıştırın:

VBA kodu: Açılır listedeki ilk veri öğesini otomatik olarak gösterme:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20160725
    Dim xFormula As String
    On Error GoTo Out:
    xFormula = Target.Cells(1).Validation.Formula1
    If Left(xFormula, 1) = "=" Then
        Target.Cells(1) = Range(Mid(xFormula, 1)).Cells(1).Value
    End If
Out:
End Sub

2. Ardından kod penceresini kaydedip kapatın ve şimdi açılır liste hücresine tıkladığınızda ilk veri öğesi hemen gösterilecektir.