karena (mungkin) mas Kid belum menujukan prosedur tsb untuk tabel result yg baru (yg sudah diberi sisipan dua bari SUM )
-------------------------------------------------------------------------------- ----- Original Message ----- From: Khozhot To: [email protected] Sent: Monday, February 22, 2010 3:10 PM Subject: Re: [belajar-excel] Placed Result Di komputah q hasil SUM nya koq ellol yach!??! Wassalam. ...zhot thea On Mon, 22 Feb 2010 14:20:42 +0700, Mr. Kid <[email protected]> wrote: 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.
