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 <himmah....@gmail.com>
> **
>
>
> 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 <mr.nm...@gmail.com>:
>
> > 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 <himmah....@gmail.com>
> >
> >> **
>
> >>
> >>
> >> 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
> >>
> >>
> >
>
>
>
