saya coba buat rumus seperti ini
Dim hasil As String
Dim ms As Long
dim xy as Long
For xy = 2 To 13
ms = Sheets("MASA").Range("a" & xy)
hasil = Application.Index(Sheets("BPS").Range("A3:J20"),
Application.Match(ms, Sheets("BPS").Range("A3:A20), False), 10)
If IsError(hasil) Then hasil = "" Else hasil = hasil
Sheets("MASA").Range("C" & xy) = hasil
Next xy
ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time error 13
kemudian kalau ditambahkan resume next untuk data yang tidak ada
hasilnya adalah data sebelumnya
kalau yang seperti ini pemesahannya gimana ya
