Di sunting 6 tahun lalu oleh robyrnl
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"
'angkut = rangesum
'Selection.Name = "" & rangesum
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
saya memanggil fungsi nya di formula bar dengan cara =angkut("16","E7")
tapi kalau seperti itu gak bisa di drag kebawah, nanti nilai nya menjadi sama semua, mohon bantuannya bagaimana supaya saya bisa drag dan mendapatkan nilai sesuai dengan data nya
