Veri Süzme ile ilgili bir soru

[bedri41]

Bir sutunda veri süzdüğüm zaman en üstteki ismin başka bir hücrede yazmasını istiyorum.

 

[hamitcan]

Sayfa1'in kod kısmına ekleyip dener misiniz ?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
[b10] = Cells(Range("a15:b5000").SpecialCells(xlCellTypeVisible).Row, 2)
Application.EnableEvents = True
End Sub

 

[bedri41]

Kodları ilgili sayfaya kopyaladım olmadı. Hatta buton ekleyip modül içerisinde de denedim ama malesef sonuç üretmiyor.

 

[hamitcan]

Evet haklsınız, tetikleme yapmıyor. O zaman verdiğim aşağıdaki satırı bir buton içine ekleyip deneyin.

[b10] = Cells(Range("a15:b500").SpecialCells(xlCellTypeVisible).Row, 2)

 

[bedri41]

Sn. Hamitcan
Çok teşekkür ederim şimdi çalışıyor.

Ancak formül ile veya buton gerektirmeyen çözümler olursada paylaşılmasını rica ederim.

 

[hamitcan]

Biraz kandırmacayla birşeyler yaptık.

 

[bedri41]

Çok tşk. ederim. Supersiniz

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak bu işlemi fonksiyonlada yapabilirsiniz.

B10 hücresine aşağıdaki formülü uygulayınız. Dizi formüldür. CTRL+SHIFT+ENTER tuşlarına basarak formül girişini tamamlayınız.

=İNDİS(B15:B65536;KAÇINCI(1;ALTTOPLAM(3;KAYDIR(B15:B65536;SATIR(B15:B65536)-SATIR(A15);;1));0))

 

[bedri41]

Harika çözümler, Sn. Ayhan teşekkür ederim dosyamda sanırım sizin formüllü çözümünüzü kullanacağım.