Re: [belajar-excel] Placed Result

[Khozhot]

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 Using Opera's revolutionary e-mail client: http://www.opera.com/mail/ On Mon, 22 Feb 2010 09:08:49 +0700, anton suryadi <summon...@yahoo.com> wrote:   Saya lampirkan file nya (Tombol Update3), di komputer saya, tes dengan excel 2003 maupun 2007 kode tersebut berjalan dengan lancar... (?) >semoga bermanfaat From: Khozhot <khozhot2...@telkom.net> To: belajar-excel@yahoogroups.com Sent: Mon, February 22, 2010 8:48:15 AM Subject: Re: [belajar-excel] Placed Result Kalo yang ini q test koq gag bisa jalan yach. -- Wassalam. ...zhot thea Using Opera's revolutionary e-mail client: http://www.opera.com/mail/ On Sun, 21 Feb 2010 12:15:34 +0700, anton suryadi <summon...@yahoo.com> wrote:   kalo gini gimana, Sub Updating_Click() LR = Cells(Rows.Count, 1).End(xlUp).Row LC = Cells(4, Columns.Count).End(xlToLeft).Column For i = 2 To LC     If Cells(4, i) = Range("B2") Then         Range(Cells(5, i), Cells(LR, i)).ClearContents         For n = 5 To LR             If Cells(n, 1) <> "SUM" Then                 v = "=VLOOKUP(A" & n & ",Source!$A$2:$B$10,2,0)"                 Cells(n, i) = Evaluate(v)                 j = j + Cells(n, i)             ElseIf Cells(n, i) = "" Then                 Cells(n, i) = j                 j = 0             End If         Next n     End If Next i End Sub selamat belajar......... >semoga bermanfaat