
New Member

January 24, 2018

Option Explicit Function angkut(seet As String, kotak As String) Dim rangesum As Variant Dim sum_range As Variant Dim cr_range1 As Range Dim cr_range2 As Range Dim cr_range3 As Range Dim cr_range4 As Range Dim kriteria1 As Variant Dim kriteria2 As Variant Dim kriteria3 As Variant Dim kriteria4 As Variant Dim kriteria5 As Variant Dim result As Variant Dim result2 As Variant Dim cel As Variant 'menetukan nilai masing - masing variable Set rangesum = ThisWorkbook.Sheets(seet).Range("N:N") Set cr_range1 = ThisWorkbook.Sheets(seet).Range("M:M") Set cr_range2 = ThisWorkbook.Sheets(seet).Range("U:U") Set cr_range3 = ThisWorkbook.Sheets(seet).Range("R:R") Set cr_range4 = ThisWorkbook.Sheets(seet).Range("L:L") kriteria1 = ThisWorkbook.Sheets("REKAP").Range(kotak) kriteria2 = "1" kriteria3 = "T" kriteria4 = "PNI" kriteria5 = "PNM" result = Application.WorksheetFunction.SumIfs(rangesum, cr_range1, kriteria1, cr_range2, _ kriteria2, cr_range3, kriteria3, cr_range4, kriteria4) result2 = Application.WorksheetFunction.SumIfs(rangesum, cr_range1, kriteria1, cr_range2, _ kriteria2, cr_range3, kriteria3, cr_range4, kriteria5) angkut = result + result2 End Function
i try to drag from cell F7 to down to get values but, i get same value from F7 cell. please help me fix my syntax

VIP

Trusted Members

December 7, 2016

Hi,
You probably know this already, but I give you this tip in case you haven't thought about it.
A simple way to get correct code is to record a new macro where you drag and copy the values from one cell and down. When you stop recording you have a code which you can alter and use for your specific needs.
Br,
Anders
1 Guest(s)
