rumus index match dengan macro vba

  1. 6 bulan yang lalu

    mohon bantuan teman2 dan para suhu ,lagi bikin rumus untuk saya rubah ke macro vba,hanya hasilnya kok tidak sesuai yang diharapkan,ya

    rumus : =INDEX(CW!$B$2:$F$6;MATCH(A2;CW!$B$2:$B$6;0);4)

    dan saya coba ke vba seperti ini :

    Sub RumusIndexMatch()
    Dim BW As Worksheet, CW As Worksheet
    Dim lr1 As Long, lr2 As Long
    Application.ScreenUpdating = False
    Set BW = Sheets("BW")
    Set CW = Sheets("CW")
    lr1 = BW.Cells(Rows.Count, 1).End(xlUp).Row
    lr2 = CW.Cells(Rows.Count, 1).End(xlUp).Row
    BW.Range("D2:D" & lr1).Formula = Application.WorksheetFunction.Index(CW.Range("$B$2:$F$6"), Application.WorksheetFunction.Match(BW.Range("A2"), CW.Range("$B$2:$B$6"), 0), 4)
    Application.ScreenUpdating = True
    End Sub

    mohon dibantu dan dikoreksi,para suhu..kira2 yang salah penulisan codenya dimanakah?

  2. Di sunting 6 bulan yang lalu oleh manweljs_

    @goral

    belum saya coba, namun saya pernah dapat contoh skrip kasus serupa dari mas @Caton kira-kira seperti ini :

    ...
    myFormula = "=IFERROR(INDEX(CW!$B$2:$F$6,MATCH(BW!$A2,CW!$B$2:$B$6,0),4),"""")"
    BW.Range("D2:D" & lr1) = myFormula
    ...

    edit sedikit - tadi salah harusnya CW! saya tulis BW!, sudah saya perbaiki :D

  3. @manweljs_
    terimakasih,masukkannya,ya..
    saya coba dahulu :)

  4. Di sunting 6 bulan yang lalu oleh goral

    sukses,mas
    hanya,

    Set BW = Sheets("BW")
    Set CW = Sheets("CW")

    jadinya tidak terpakai yach
    karena pakai formula ini :

    myFormula = "=IFERROR(INDEX(CW!$B$2:$F$6,MATCH(BW!$A2,BW!$B$2:$B$6,0),4),"""")"

  5. @goral

    tetap dipakai untuk skrip anda yang ini

    ...
    lr1 = BW.Cells(Rows.Count, 1).End(xlUp).Row
    lr2 = CW.Cells(Rows.Count, 1).End(xlUp).Row
    ...

  6. edit sedikit - tadi salah harusnya CW! saya tulis BW!, sudah saya perbaiki :D

    iya,mas..sudah saya ganti tadi =D

    tetap dipakai untuk skrip anda yang ini

    iya,mas
    trimaksih banyak ya contoh skripnya :)

  7. mau tanya lagi mas
    gimana ya,caranya biar tampilan nya bisa seperti ini

  8. Di sunting 6 bulan yang lalu oleh goral
    test


    sudah mas =D
    tidak jadi,
    ternyata pake kode yach
    :)

 

atau Mendaftar untuk ikut berdiskusi!