ambil data dari file berbeda untuk di rata2 (averageifs)

  1. 10 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

    2 Agu 2018 Terverifikasi Indonesia + 13.524 Poin
    Di sunting 10 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. Di sunting 10 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!