Sub düsey_ara_sayfa()
Dim aranan As Range
Dim alan As Range
Set aranan = Range("f4")
Set alan = Sheet1.Range("A1:D19")
sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0)
Range("H4") = sonuc
End Sub
========================================================================
Sub coketoplaa_sumifs() 'ÇokEtopla
Dim aranan As Range
Dim alan As Range
Dim kriter As Range
Set toplanan = Sheet1.Range("C:C") 'Satış Tutarı
Set kriter = Sheet1.Range("D:D") 'Yıl
Set aranan = Range("F8") 'Aranan Değer
sonuc = Excel.WorksheetFunction.sumifs(toplanan, kriter, aranan)
Range("H8") = sonuc
End Sub