=kriterler(f5) yazayaım ama =kriterler(f6) ya göre işlem yapsın?

[hsayar]

Aşağıdaki kodu bu siteden aldım.
Filtre uygulanmış hücrenin bir altını seçince filtre uygulanmış değerleri veriyor ama ben bunu filtre uygulanmış hücreyi seçince yapmasını istiyorum. bunun içinde
f5 seçilmişse f6 ya göre işlem
a2 seçilmişse a3 e göre işlem
yapacak ilave nedir?

Function Kriterler(Rng As Range) As String
    Dim Filter As String
    Filter = ""
    On Error GoTo son
    With Rng.Parent.AutoFilter
        If Intersect(Rng, .Range) Is Nothing Then GoTo son
        With .Filters(Rng.Column - .Range.Column + 1)
            If Not .On Then GoTo son
            Filter = Replace(.Criteria1, "=", """", 2)
            Filter2 = Replace(.Criteria2, "=", """", 2)

            Select Case .Operator
                Case xlAnd
                    Filter = Filter & " ve " & Filter2
                Case xlOr
                    Filter = Filter & " veya " & Filter2
            End Select
                        
        End With
    End With
son:
Kriterler = Filter
End Function

 

[hsayar]

güncel yardımnlarınız bekliyorum

 

[hsayar]

yorumu oloan hocamız yokmu bazen karıştırıyorum filtre başlığı yerine bir alt hücreyi seçmem gerekiyor ama bazen filtre başlığını seçiyorum... dah sonra 1 saat neden günceelmeiyor diye düşünüyorum.

 

[hsayar]

demek exceli o kadarda kandıramıyormuşuz

 

[hsayar]

gerçekten kanıramazmıyız? Kriterler(başlıkalt&#305 yerine kriterler(başlık) girmek istiyorum

A2: SOYADI
a3: SAYAR
a4: soylu
a5: sayar
a6: soylu
ise
A1: =kriterler(a3)
yazarsam süzülen soyadını bana gösterir
aman ben
A1: =kriterler(A2)
ile sonuca ulaşmak istiyorum