Hai Luthfie, Bagian yang merah adalah penggunaan fungsi Index dan Match dalam VBA. Jika penggunaan sebuah fungsi melalui worksheetfunction dalam VBA menghasilkan error value, maka akan muncul pesan error. Coba sebelum baris yang di-merah tersebut diberi : On Error Resume Next
Nanti akan tampak hasilnya tidak sesuai harapan karena ada data yang error alias hasil formulanya error. Kemudian, perbaiki area data dalam sheet yang dirujuk oleh baris yang dimerah. Wassalam, Kid. 2012/10/18 luthfie_27 <[email protected]> > Cells(r, 12).Value = > > Application.WorksheetFunction.Index(Range(Sheet1.Cells(6, 5), > > Sheet1.Cells(idxRowAHS, 5)), _ > > Application.WorksheetFunction.Match(Sheet2.Cells(r, 2), > > Range(Sheet1.Cells(6, 3), Sheet1.Cells(idxRowAHS, 3)), 0))
