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
Yorumlar
Yorum Gönder