Coba :
'Dim hasil As String
Dim ms As Long
dim xy as Long
For xy = 2 To 13
ms = Sheets("MASA").Range("a" & xy)
if worksheetfunction.countif( Sheets("BPS").Range("A3:A20") , ms ) <>
0 then
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
Sheets("BPS").Range("A3:A20"), 0), 10)
else
Sheets("MASA").Range("C" & xy)=vbnullstring
endif
Next xy
Wassalam,
Kid.
2012/10/30 him mah <[email protected]>
> **
>
>
> 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
>
>
