ambil data dari file berbeda untuk di rata2 (averageifs)

  1. 3 bulan yang lalu

    bagaimana scripst untuk perhitungan averageifs jika sumber data dari file yang berbeda, tanpa buka file sumber

  2. ini contoh formulanya
    $E$2 = minggu
    AVERAGEIF('c:\Users\desta\Documents\DOCUMENTS\group a\DAILY\2018\[Bank Data item 1 2018.xlsx]sampo'!$E$5:$BCX$5;$E$2;'c:\Users\desta\Documents\DOCUMENTS\group a\DAILY\2018\[Bank Data item 1 2018.xlsx]sampo'!$E$14:$BCX$14)

  3. Caton

    Agu 2 Terverifikasi Indonesia + 12.008 Poin
    Di sunting 3 bulan yang lalu oleh Caton

    @absetiawan18 ...

    ... ini contoh formulanya ...

    Lebih baik lagi jika dikasih contoh file utama dan file datanya langsung... :)

    Ini pertanyaan yang sama dengan pertanyaan pada diskusi Ambil Data Dari File Lain ya? Dugaan saya, mas @absetiawan18 punya masalah dengan fungsi AVERAGEIF atau AVERAGEIFS yang menghasilkan nilai #VALUE! ketika digunakan dengan data eksternal ya?

    Saya kasih contoh solusi dengan formula saja ya mas, filenya terlampir. Kecuali mas @absetiawan18 mau solusinya pake macro, kita tunggu maestronya turun tangan (^_^)/

    Colek dikit mas @manweljs_ ah ... :D :D :D

  4. manweljs_

    Agu 2 Terverifikasi + 5.163 Poin
    Di sunting 3 bulan yang lalu oleh manweljs_

    :D :D

    asumsi E2 = Minggu ada di Sheet1

    Sub TesAverageIF()
    Application.ScreenUpdating = False
    Dim wb As Workbook, Target As Variant, x As Double
    
    Set wb = Workbooks.Open("C:\Users\desta\Documents\DOCUMENTS\group a\DAILY\2018\Bank Data item 1 2018.xlsx")
    xWb = "Bank Data item 1 2018.xlsx"
    xWs = "sampo"
    Target = Sheet1.Range("E2")
    
    x = WorksheetFunction.AverageIf(Workbooks(xWb).Worksheets(xWs).Range("E5:BCX5"), Target, _
        Workbooks(xWb).Worksheets(xWs).Range("E14:BCX14"))
        
    Sheet1.Range("A1") = x 'ganti sel untuk hasilnya
    wb.Close
    Application.ScreenUpdating = True
    End Sub

    gak tau jalan apa ngak (^_^)/

 

atau Mendaftar untuk ikut berdiskusi!