"Kalo isi langsung value dengan kode simple en dapet dimengerti ada lagi gak."
kalo ingin hasil proses sebelumnya tidak dihapus, n hasilnya berupa value,,
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
v = "=VLOOKUP(A" & (4 + n) & ",Source!$A$2:$B$9,2,0)"
Cells(4 + n, i) = Evaluate(v)
Next n
End If
Next i
End Sub
>semoga bermanfaat
________________________________
From: anton suryadi <summon...@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Fri, February 19, 2010 4:43:37 PM
Subject: Re: [belajar-excel] Placed Result
pak Kozhot, kalo gini gimana,
Sub Updating_Click( )
LR = Cells(Rows.Count, 1).End(xlUp) .Row
LC = Cells(4, Columns.Count) .End(xlToLeft) .Column
Range(Cells( 5, 2), Cells(LR, LC)).ClearContents 'tambahan
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: Khozhot <Khozhot2009@ telkom.net>
To: belajar-excel@ yahoogroups. com
Sent: Fri, February 19, 2010 4:10:25 PM
Subject: Re: [belajar-excel] Placed Result
Dear Pak Anton,
bagus nech rumusnya lebih simple dan cukup mudah untuk dimengeti.
Sayangnya, karena hasil di cell tujuan berupa Formula, jadi ketika diisi 1/1
(red: satu per satu) tiap kolom.
Hasilnya jadi sama cmua dach xi..xi...xi. ....
Tapi gapapa sech, satu lagi ilmu kudapat hari ini.
Kalo isi langsung value dengan kode simple en dapet dimengerti ada lagi gak.
Kayaknya sech mang gw yg belajar dari dasar jadi bukan g bisa dimengerti
melainkan gw nya az yg perlu banyak bimbingan atawa descripsi langkah kerjanya
kalleee heu.heu.heu. ...
Hatur nuhun.
--
Wassalam.
...zhot thea
Using Opera's revolutionary e-mail client: http://www.opera. com/mail/
On Fri, 19 Feb 2010 15:14:22 +0700, anton suryadi <summon...@yahoo. com> wrote:
>
>
>>
>
>>
>
>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 <h...@cresyn. com>
>To: > belajar-excel@ yahoogroups. com
>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
>
>
>
--
Wassalam.
...zhot thea
Using Opera's revolutionary e-mail client: http://www.opera. com/mail/
