Help!! Index-Match disertai Penjumlahan + Perkalian + Pembagian

  1. ‹ Older
  2. 4 tahun lalu

    @Chris212 ...supaya tidak menjadi error dan ada pesan " Unit / Kegiatan - Harus di isi "
    apkah ada scriptnya ?

    iya ada

  3. @manweljs_

  4. Di sunting 4 tahun lalu oleh manweljs_

    @Chris212

    setelah with bSh tambahkan :

    ...
            For Each sel In .Range("I2:I" & b)
                If sel = "" Or Range("b" & sel.Row) = "" Then
                    MsgBox "semua baris di kolom unit dan kolom kegiatan harus diisi"
                    Exit Sub
                End If
            Next
    ...

  5. @manweljs_
    master untuk hasil harga bisakah di script untuk rasionya
    tapi dalam kondisi hasil harga yang di script itu yang tidak terjumlah oleh hasil harga lainya ( hasil harga terjumlah itu = total hasil harga )

  6. Di sunting 4 tahun lalu oleh manweljs_

    @Chris212

    coba cek lampiran

  7. Di sunting 4 tahun lalu oleh Chris212

    @manweljs_
    setelah saya lihat
    saya masih bingung untuk script ini + itu berfungsi untuk apa ?
    apakah mungkin bisa menggunakan angka 2 / 2 keatas misalkan 3 , 4 dan seterusnya ?
    maaf jika pertanyaan saya mungkin aneh , karena saya ingin tau script yg digunakan berfungsi untuk apa ( heheeheh )

    o = WorksheetFunction.CountIfs(rngA, Range("A" & i), rngB, Range("B" & i))
    p = WorksheetFunction.CountIfs(Range("A2:A" & b), Range("A" & i), Range("B2:B" & b), Range("B" & i))
    If o > 1 And o = p Then
    rasio = WorksheetFunction.SumIfs(rngO, rngA, Range("A" & i), rngB, Range("B" & i)) / Range("r" & i)
    ElseIf o = 1 And p = 1 Then
    rasio = Range("O" & i) / Range("R" & i)
    End If

    If Err.Number Then rasio = ""
    Err.Clear
    End Function

  8. @Chris212

    saya jelaskan pakai formula aja ya. cek kolom AA sampai AC, fungsi Rasio tersebut prosesnya sama dengan formula yang saya gunakan di file terlampir

  9. Di sunting 4 tahun lalu oleh Chris212

    @manweljs_
    setelah saya coba coba , saya mulai paham dari script > 1

    saat saya menambahkan script untuk kolom T-W
    berjalan normal , pertanyaan saya

    1. script yg saya tambahkan di T-W apkah script itu sudah benar ? jika dilihat dari @manweljs_ ( atau mungkin ada script yg tidak perlu)
    2. saat saya memilih tuslah ( saya buat mode list ) macro saya jalan otomatis padhal belum saya klik run

    , apakah ini efek dari script
    Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("N1"), Target) Is Nothing Then Call Bbse 'tuslah If Not Intersect(Range("S1"), Target) Is Nothing Then Call Bbse ' rasio End Sub

  10. @Chris212

    setelah saya coba coba , saya mulai paham dari script > 1

    kalo > 1 artinya ada alat yang sama pada tanggal yang sama, gitu doank

    ...script yg saya tambahkan di T-W apkah script itu sudah benar ?...

    kalo menurut anda hasilnya sudah benar berarti sudah benar

    @Chris212 ...saat saya memilih tuslah ( saya buat mode list ) macro saya jalan otomatis padhal belum saya klik run, apakah ini efek dari script...

    betul, event Worksheet_Change tersebut di hapus aja kalo anda ingin makronya jalan setelah klik tombol run.

  11. @manweljs_

    sipp , master
    Terima kasih sudah dibantu selama ini
    Terima Kaish banyak

  12. Di sunting 4 tahun lalu oleh Chris212

    @manweljs_
    Mau tanya lagi , heheehe

    Sub SBLE()
    
    Dim a As Long, b As Long, r As Long, aSh As Worksheet, bSh As Worksheet
    Set aSh = Worksheets("HARGA_KONTRAK")
    Set bSh = Worksheets("KEMAJUAN_SBLE")
    
        a = aSh.Cells(Rows.Count, "B").End(xlUp).Row
        b = bSh.Cells(Rows.Count, "I").End(xlUp).Row
        
        With bSh
        For Each sel In .Range("A2:A" & b)
            If sel = "" Then
                    MsgBox "TANGGAL TIDAK BOLEH KOSONG"
            Exit Sub
            End If
        Next
        For Each sel In .Range("B2:B" & b)
            If sel = "" Then
                    MsgBox "UNIT TIDAK BOLEH KOSONG"
            Exit Sub
            End If
        Next
            For Each sel In .Range("I2:I" & b)
                i = sel.Row
                r = aSh.Range("B3:B" & a).Find(sel, , xlValues, xlWhole).Row
                .Cells(i, 11) = aSh.Cells(r, 8)
                .Cells(i, 12) = aSh.Cells(r, 9)
                .Cells(i, 13) = aSh.Cells(r, 4)

    runtime error 91 object variable or with block variable not set
    itu kenapa ya ?
    di r = aSh.Range("B3:B" & a).Find(sel, , xlValues, xlWhole).Row

  13. @Chris212 runtime error 91 object variable or with block variable not set
    itu kenapa ya ?
    di r = aSh.Range("B3:B" & a).Find(sel, , xlValues, xlWhole).Row

    mungkin nilai sel yang dicari tidak ditemukan sehingga nilai r jadi tidak ada

  14. @manweljs_
    jika dalam kasus seperti ini
    saya ada 2 workbook dengan posisi data sama
    book 1 sudah dengan rumus yg benar + berjalan normal
    saya copas ke ke book 2
    saat di jalankan dia error , kemungkinan yg salah ada dimana ?
    semua sudah disesuaikan ( yg diganti hanya nama sub ... () ) yg book 1 sble dan book 2 stwa
    data dalam posisi sama yg bada hnya jumlah sheet ( sumber data )

  15. @Chris212 saat di jalankan dia error , kemungkinan yg salah ada dimana ?

    tanpa melihat sendiri filenya, saya gak tau salahnya ada dimana. yang jelas untuk error diatas penyebabnya adalah nilai r tidak ada karena nilai sel tidak ditemukan

 

atau Mendaftar untuk ikut berdiskusi!