C# Birlikte Öğrenelim

  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

  Sub Oval3_Tıkla() Dim aranan As Range Dim alan As Range Set aranan = Range("F3") Set alan = Range("A1:D19") 'sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0) sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0) 'Range("H3") = sonuc Range("H4") = sonuc End Sub ========================================================================= Sub coketopla() Dim satis_tutari As Range Dim yil As Range Dim kriter As Range Set satis_tutari = Range("C:C") Set yil = Range("D:D") Set kriter = Range("F7") sonuc = Excel.WorksheetFunction.sumifs(satis_tutari, yil, kriter) Range("H8") = sonuc End Sub