range berfomula ke
kolom di kanan cell input
terima kasih atas tanggapannya.
sebenanrnya solusi yang bapak kirimkan hampir mendekati yang saya inginkan tapi
rupanya ada kesalahan teknis pada hasil di kolom ke dua dan ke tiga dari hasil
yang diharapkan.
misalkan saya menginput data
Dari: i Haps hapsari.stlizb...@gmail.com
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 19 Desember 2011 15:48
Judul: Re: [belajar-excel] kode macro untuk mengcopy range berfomula ke kolom
di kanan cell input
Pak Ghozi ysh,
Berikut ini dua cara makro
Ysh pak Ghozi,
*( A )*
Ada hal yg perlu mendapat perhatian; yaitu object Range : *TARGET* dan *
ActiveCell*
Keduanya (dalam Event Sheet_Change) punya address yg berbeda, bisa berbeda
jauh
tidak tertentu perbandingan jraknya
Jika target adalah sudah FIXED yaitu *cell yg berubah *
Misalnya
Waalaikumsalam, Pak Ghozi
Saya menggunakan vba untuk file contohnya.
Mudah-mudahan bisa membantu.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets(sheet1).Activate Then
If ActiveCell.Column = 1 Then
If Len(Cells((ActiveCell.Row - 1), ActiveCell.Column))
Assalaamu alaikum,
to the point saja.
saya ingin mengcopy range bernama yang berisi formula ke kolom (range ) di
kanan cell input.
setelah tercopy pada range target,hasilnya di range target di paste special
value . jadi yang ada tinggal nilai hasilnya saja tanpa formula.
bagaimana code macronya.
Wa alaikumussalam wr. wb.
Prinsip mengcopy paste special :
range_yang_akan _di_copy.copy
range_tujuan.pastespecial xlpastevalues
Dimana harus meletakkannya ?
1. ketika diharapkan setiap usai suatu event (seperti ubah nilai, aktifkan
sebuah cell (pindah yang diklik) dsb), maka letakkan pada event
wa'alaikum salam
mudah mudahan berikut ini tidak terlau jauh dari yg dimaksud pak ghozi
Sub Cara_Satu()
Dim r As Long, n As Long
' cara ini masih berorientasi formula di sheet
' metoda mensecel dan mengcopy range itu
' memerlukan waktu yg lebih lama (lamban)
' mengkopy formula
: Sabtu, 17 Desember 2011 20:17
Judul: Re: [belajar-excel] kode macro untuk mengcopy range berfomula ke kolom
di kanan cell input
wa'alaikum salam
mudah mudahan berikut ini tidak terlau jauh dari yg dimaksud pak ghozi
Sub Cara_Satu()
Dim r As Long, n As Long
' cara ini masih berorientasi
8 matches
Mail list logo
