sudah selesai ya kasusnya
kok panjang banget, kayanya pada asik..
yang ini tanpa loop sendiri (biar excel yang nge-loop-in
Application.ScreenUpdating = False
Dim rngTarget As Range
Set rngTarget = Range(Range("d2")).Offset(1). _
Resize(Range("a4").CurrentRegion.Rows.Count - 1)
rngTarget.FormulaArray = _
"=INDEX(Source!$B$1:$B$8,MATCH(Result!$A$5:$A$11,Source!$A$1:$A$8,0))"
rngTarget.Copy
rngTarget.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Kid.
2010/2/22 anton suryadi <summon...@yahoo.com>
>
>
> Terima kasih jg tuk bu guru ctv atas reviewnya,
>
> imho, tuk members [b-e] yang tertarik dan ingin mempelajari macro ataupun
> yg sedang dalam tahap awal belajar macro (seperti saya,,), kasus "Placed
> Result" dng berbagai solusi yang ada ini very recommended tuk dipelajari!
>
>
> Salam,
>
> anton suryadi
>
>
>
> ------------------------------
> *From:* siti Vi <setiyowati.d...@gmail.com>
>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Mon, February 22, 2010 9:45:43 AM
>
> *Subject:* Re: [belajar-excel] Placed Result
>
>
>
>
> *j* - nya pak anton itu kan sama dengan *AKUM* nya siti
> yaitu variable untuk *mengakumulasi- kan data bilangan *selama loop
> beraksi.
> jadi kalau mau dideclare harus sebagai BILANGAN
> As (double, single, integer, long )
> atau
> Dim j
> atau
> Dim j as Variant
>
> di pc siti, makro tsb bisa jalan
> thanks pak anton...
>
> malah code perintah utama
> Cells(n, i) = Evaluate(v)
> dapat diubah /persingkat menjadi
> Cells(n, i) = [v]
>
> ------------------------------
>
> ----- Original Message -----
> *From:* Khozhot <khozhot2...@telkom.net>
> *To:* belajar-excel@ yahoogroups. com <belajar-excel@yahoogroups.com>
> *Sent:* Monday, February 22, 2010 9:35 AM
> *Subject:* Re: [belajar-excel] Placed Result
>
> Oiah.... sorry, q yg salah kacih remarks untuk "j".
> "Dim j as String" en "Dim j as Range" duanyanya gag jalan.
> maklum masih belon ngerti fungsi/tujuannya, jadi q tebak2 az xi...xi...xi.
> ..
> Doumo Arigato Gozaimasu yo mas.....heu. heu.heu.. ...
> --
> Wassalam.
> *...zhot thea*
>
>
>
>
>
>
