coba,
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
For n = 1 To LR - 4
Cells(4 + n, i) = "=VLOOKUP(A" & (4 + n) & ",Source!$A$2:$B$9,2,0)"
Next n
End If
Next i
End Sub
>semoga bermanfaat
________________________________
From: hery wahyudi <[email protected]>
To: [email protected]
Sent: Fri, February 19, 2010 2:43:09 PM
Subject: Re: [belajar-excel] Placed Result
mungkin seperti data terlampir
kodenya agak berantakan, saya juga masih belajar
mungkin Bu Guru Siti ada Solusi yang lebih tepat
cmiiw
tq
Miturut Khozhot kados ingkang kaserat ing ngandap meniko:
Dear Suhu,
>
>
>
>Ada lagee yg mo ditanyain nech.
>
>
>Kucoba.... coba merangkai kode
>Kode kurangkai... error ku dapat
>Kucoba-coba menganti kode.....
>Kode ku tetap error ku dapat....
>xi...xi...xi. ..
>
>
>Bukan syair lagu tapi mirip.....nyanyiin az heu...heu... .heu...
>Intinya masih terus pengen belajar dengan kinds of cases by
>Macro.
>
>
>Soal
>Weukbuk terdiri dari dua weuksit, yauti :
>satu.weuksit Source, en
>dua. weuksit Result.
>Data result terus berubah (dalam hal ini ngoacak-ngacak) , sedang
>data yang ada di weuksit te-es-be pengen masuk ke weuksit Result dimana
>kolomnya disesuaikan dengan data yang ada di sel B2 yang seperti
>biasanya dengan warna kesukaan q yauti "Kuning" ketika di pencet tombol
>Update".
>
>
>Por ditail, si fail enklosed.
>
>
>--
>Wassalam,
>ヂヂン コマルヂン
>...zhot thea
>Using Opera's revolutionary e-mail client:
>http://www.opera. com/mail/
--
Template
Hery Wahyudi
