terima kasih. mau tanya lagi misalnya data awalnya itu text yg isinya angka lebih dari 15 ketika dijalankan vba di atas hasi lnya menjadi number. supaya hasilnya tetap text bagaimana ya
2012/10/30, Mr. Kid <[email protected]>: > 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 >> >> >
