ikutan... dengan bahasa bluewater, kampungku
Sub TombolInput()
Dim AlamatCellSumber As String
Dim AlamatCellTujuan As String
AlamatCellSumber = "B5"
AlamatCellTujuan = Sheets("Sheet1").Range("C4")
Range(AlamatCellTujuan).Value = Range(AlamatCellSumber).Value
End Sub
' -----dapat diringkas menjadi ---
Sub TombolInput2()
Range(Sheets("Sheet1").Range("C4")) = Range("B5").Value
End Sub
catatan:
Property Value bagi Range adalah Default Property
Artinya di VBA kalau kita menuliskan code Object Range tanpa
menuliskan property nya
misalnya Range("A1")
VBA akan menyangkannya kita menulis Range("A1").Value
Keadaan ini sering kita manfaatkan untuk memperingkas penulisan coding.
2011/4/30 ghozi alkatiri <[email protected]>
> Assalamu alaikum
> setelah puas dengan jawaban dari pertanyaan (seri 1). masih dengan kasus yang
> sama tapi lebih lengkap lagi.
> bagaimana caranya membuat macro untuk mengcopy sebuah nilai dari satu cell
> yang hasilnya akan di paste special value di cell yang lainnya yang nilai
> referensi cell tujuannya sudah ditentukan dari sebuah perhitungan pada kolom
> input tertentu.
> wassalam
> Ghozi Alkatiri
