Index-Match İki Kriter VBA

[Jeeday]

Selam arkadaşlar

Aşağıdaki excel formülünü vba'ya çevirmek istiyorum fakat hata veriyor... (Type mismatch)

=INDEX('1. TUR'!A15:A462;MATCH(1;('1. TUR'!N15:N462=B28)*('1. TUR'!AA15:AA462=C28);0);1)

B28 ve C28 örnek olarak verilmiştir....

AWF = Application.WorksheetFunction
SF.Cells(i, "A") = AWF.Index(S0.Range("A15:A462"), AWF.Match(1, (S0.Range("N15:N462") = SF.Cells(i, "B")) * (S0.Range("AA15:AA462") = SF.Cells(i, "C")), 0), 1)

 

[hamitcan]

Dosya eklerseniz daha çabuk cevap bulabilirsiniz.

 

[Ömer BARAN]

Merhaba.
Formülünüzü gerek 1. TUR ismi verilmiş ve gerekse de ismi bundan farklı olan bir sayfada
aşağıdaki şekilde uyguladığımda sorunsuz sonuç veriyor.
Dizi formülü olmak zorunda olduğunu (MATCH işlevi içindeki işlem bir dizi oluşturuyor) unutmayınız.
Dizi formülü olarak uygulamayınca sonuç #YOK hatası veriyor.

With Range("[B][COLOR="red"]formül uygulanan hücre[/COLOR][/B]")
    .[COLOR="red"][B]FormulaArray[/B][/COLOR] = "=INDEX('1. TUR'!A15:A462,MATCH(1,('1. TUR'!N15:N462=B28)*('1. TUR'!AA15:AA462=C28),0),1)"
    .Value = .Value
End With