rumus index match dengan macro vba

  1. 10 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 10 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 10 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 10 bulan yang lalu oleh goral
    test


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

 

atau Mendaftar untuk ikut berdiskusi!