Re: ]] XL-mania [[ Cara mengulang "value "kan hasil vlookup

 

Kalau begitu, macronya kita buat lebih fleksible dalam menentukan titik awalnya (ActiveCell) maupun Rangenya (Rng).

Macronya adalah sbb:

Sub CopyPasteValue()
    Dim Rng As Range
    Set Rng = ActiveCell.CurrentRegion
    Set Rng = ActiveCell.Resize(Rng.Rows.Count)
    ActiveCell.Copy Rng
    Rng.Value = Rng.Value
End Sub

Penjelasan:

Deklarasi (Dim) variable Rng sebagai (As) Range pada baris ke 1 bertujuan untuk mempercepat jalannya macro.

Set variable Rng mulai dari ActiveCell s/d banyaknya data (CurrentRegion) pada baris ke 2 bertujuan untuk menentukan Range.

Set variable Rng mulai dari ActiveCell s/d banyaknya baris yang berisi data (Resize(Rng.Rows.Count)) pada baris ke 3 bertujuan untuk menyesuaikan Range.

ActiveCell.Copy Rng pada baris ke 4 berujuan untuk mengcopy formula pada ActiveCell ke Rng.
Rng.value = Rng.Value pada baris ke 5 bertujuan untuk mempastvaluekan formula yang ada pada Rng (termasuk ActiveCell).

Semoga bermanfaat.

Salam,

Hendrik Karnadi

---

From: Dwi Agustiawan Untari <dwi.untari234@gmail.com>
To: XL-mania@yahoogroups.com
Sent: Saturday, 21 July 2012, 13:53
Subject: Re: ]] XL-mania [[ Cara mengulang "value "kan hasil vlookup

 

Dear Pak Hendrik

Terimakasih sharing ilmu macronya, sebelumnya saya sama sekali belum
bisa macro, jadi untuk mempelajari file yg bpk kirim pun saya
memahaminya lama, tapi alhamdulillah udah bisa seperti yang punya
bapak.

pertanyaan selanjutnya, itu di atas (Range F2) khan bentuknya masih
rumus, bukan value, bagaimana jika yang atas juga berbentuk value?
yang kedua, itu saat mau mengisi cell nya , kita harus di klik/select
terlebih dahulu, bagaimana jika barisnya sampai ribuan pak, khan ngga
mungkin juga klik satu demi satu.

Mohon bantuannya lagi ya pak

Terimakasih sebelumnya
Salam

On 7/20/12, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:
> Barangkali contoh Macro sederhana ini bisa dikembangkan. Cara kerjanya sama
> dengan manual, yaitu Copy dulu formulanya baru di Value
>
> Contoh Macronya adalah sebagai berikut:
> Sub CopyPasteValue()
>     Range("F2").Copy Selection
>     Selection = Selection.Value
> End Sub
>
>
> Pertama - tama formula pada Range("F2") dicopy ke sel tujuan  yang disorot
> (Selection)
> kemudian Selection yang masih berupaformula di Value.
>
> Salam,
> Hendrik Karnadi
>
>
>
> ________________________________
> From: s4kty <dwi.untari234@gmail.com>
> To: XL-mania@yahoogroups.com
> Sent: Tuesday, 17 July 2012, 5:39
> Subject: ]] XL-mania [[ Cara mengulang "value "kan hasil vlookup
>
>
>
> Dear XL mania,
>
> Bagaimana caranya agar rumus vlookup kita saat data yang kita rumus sangat
> banyak hasilnya langsung value tanpa harus copy paste value, karena kemarin
> saya coba kalau kita copy manual vlookupnya dan kita value kan dengan manual
> ( copy paste value ) computer saya langsung nge hang karena banyaknya rumus
> vlookup.
>
> saya pernah lihat rumus macronya, karena saya awam macro, saya ingin belajar
> langkah2 untuk mem value kan rumus vlokkup tersebut
>
> Mohon bantuannya
>
> Salam
> Dwi
>
>
>

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 46

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat beribadah puasa...                                        |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___