formül ile süz

[zetkatamet]

Arkadaşlar,
Çok uzun bir listem var. Şöyle bir ricam olacaktı.
Kullanıcı aranacak kelimeyi yazacak. Yazılacak formül ile aranan kelime o hücrenin içinde var ise işlem yaptırılacak.

Kullanıcı küçük harfte yazsa, büyük harfte yazsa işlem yapılabilir mi?

Konu ile ilgili dosya aşağıdaki linktedir.
Makrosuz çözüm olabilirse çok memnun olurum.

https://we.tl/lD5ZrhdZY4

Şimdiden teşekkürler.

 

[YUSUF44]

Aşağıdaki formülü deneyiniz:

=EĞERHATA(MİN(1;MBUL($D$1;C2));"")

 

[zetkatamet]

Sn.Yusuf44 çok teşekkür ederim.

 

[YUSUF44]

Eğer formülle 1 çıkanlar aynı zamanda süzülsün de derseniz aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D1]) Is Nothing Then Exit Sub
son = Cells(Rows.Count, "C").End(3).Row
    [C1:D1].AutoFilter
    ActiveSheet.Range("$C$1:$D$" & son).AutoFilter Field:=2, Criteria1:="<>"
End Sub

 

[zetkatamet]

tekrar teşekkürler Sn.Yusuf44.