dikomputer saya kalau pakai worksheetfunction ngga bisa tapi kalau
pakai Application bisa, kira-kira kenapa ya
beda
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
Sheets("BPS").Range("A3:A20"), 0), 10)
dibandingkan dengan ini
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("j3:J20"),worksheetfunction.Match(ms,
Sheets("BPS").Range("A3:A20"), 0))
beda
Sheets("MASA").Range("C" & xy)=vbnullstring
dengan
Sheets("MASA").Range("C" & xy)=""
Pada tanggal 30/10/12, Mr. Kid <[email protected]> menulis:
> Cara 1 :
>>> ubah format number cell tujuan menjadi bertipe text tepat sebelum
> penulisan nilai kedalam cell
> range("tujuan").numberformat="@"
>
>>> lanjutkan dengan memasukkan nilai ke cell tujuan :
> range("tujuan").value = nilainya_bisa_jadi_hasil_worksheetfunction
>
> Cara 2 : (hanya bisa untuk cara pasang formula)
> Usai calculate formula :
> range("bla").formula ="=formulanya" 'pasang formula
> range("bla").parent.calculate 'calculate sheet
>
> lakukan copy paste values
> range("bla").copy
> range("bla").pastespecial xlpastevalues
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/30 him mah <[email protected]>
>
>> **
>>
>>
>> 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
>> >>
>> >>
>> >
>>
>>
>>
>
