Excel'de filtrelemeden sonra ilk görünür hücrenin değerini nasıl bulup alabilirim?

Bazı durumlarda, filtrelenmiş bir listedeki ilk görünür hücrenin değerini almanız gerekebilir. Bunu nasıl başarabilirsiniz? Bu makale, bu sorunu çözmek için yöntemler gösterecektir.

Dizi formülü ile filtrelemeden sonra ilk görünür hücrenin değerini bulma ve alma
VBA ile filtrelemeden sonra ilk görünür hücrenin değerini bulma ve alma

Dizi formülü ile filtrelemeden sonra ilk görünür hücrenin değerini bulma ve alma

Aşağıdaki dizi formülünü kullanarak filtrelenmiş bir listedeki ilk görünür hücrenin değerini alabilirsiniz. Lütfen şu adımları izleyin.

1. İlk görünür değeri yerleştirmek için boş bir hücre seçin, aşağıdaki formülü girin ve ardından Ctrl + Shift + Enter tuşlarına aynı anda basın.

=İNDEKS(C2:C19;MİN(EĞER(ALTTOPLAM(3;KAYDIRMA(C2;SATIR(C2:C19)-SATIR(C2);0));SATIR(C2:C19)-SATIR(C2)+1)))

Not: Formülde, C2:C19, ilk görünür hücre değerini döndürmek istediğiniz filtrelenmiş listedir, C2 listenin ilk hücresidir. Gereksinimlerinize göre bunları değiştirebilirsiniz.

Sonra, yukarıdaki ekran görüntüsünde gösterildiği gibi, filtrelenmiş listedeki ilk görünür hücrenin değeri seçilen hücreye getirilecektir.

VBA ile filtrelemeden sonra ilk görünür hücrenin değerini bulma ve alma

Filtrelenmiş bir listedeki ilk görünür hücrenin değerini almak için yukarıdaki dizi formülünü kullanmanın yanı sıra, aşağıda verilen VBA betiğini çalıştırarak hızlıca ilk görünür hücreyi döndürebilirsiniz. Lütfen şu adımları izleyin.

1. Filtrelenmiş bir listenin ilk görünür hücre değerini yerleştirmek için E8 gibi boş bir hücre seçin.

2. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına aynı anda basın.

3. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.

VBA kodu: Excel'de filtrelemeden sonra ilk görünür hücrenin değerini bulma ve alma

Sub FirstVisibleCell()
   With Worksheets("Sheet1").AutoFilter.Range
       ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
    End With
End Sub

Not: Kodda, Sheet1, filtrelenmiş listeyi içeren sayfa adıdır. “C”, ilk görünür değeri almak istediğiniz sütun adıdır. Gereksinimlerinize göre bunları değiştirebilirsiniz.

4. Kodu çalıştırmak için F5 tuşuna basın, ardından C sütununda bulunan filtrelenmiş listenin ilk görünür hücresi anında E8 hücresine getirilecektir.