Wa’alaikumsalam mas Agus, dari yg anda sampaikan saya jdai paham sekarang dan
saya ucapkan banyak terima kasih...
Terus mau tau lebih lanjut nih saya mas Agus tentang script yang anda berikan
seperti berikut ;
Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy
.CellDragAndDrop = False (workbook_active)
Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial xlPasteValues
Pada script yang saya tandai merah, berarti setiap workbook di ganti nama maka
harus mengganti nama workbook yng sesuai pada script tersebut, begitu juga
sheet dan range_nya (begitu yang saya tangkap dari script anda)?, nah gmn biar
semuanya itu tidak mengganti jika nama workbook diganti, sheet juga bisa
seluruh sheet yang ada di workbook begitu juga Range_nya terserah yang mau
dicopy dan di paste.? Semoga berkenan kasih arahan..
From: [email protected] [mailto:[email protected]]
Sent: 26 Mei 2014 8:17
To: [email protected]
Subject: Re: [belajar-excel] paste value pakai vba
Kagem Mas Prazt;
Asalamualaikum warahmatullah.
Coba lihat kembali prosedur yang sudah anda buat.
ada prosedur yang mematikan copy paste
pada prosedur Workbook_Activate () terdapat perintah untuk mematikan copyPaste
.CellDragAndDrop = False
Jadi setiap berpindah workbook, selalu copy paste dimatikan.
scripsaya yang berbunyi:
Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy
Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial xlPasteValues
akan dibaca komputer menjadi:
Workbooks("a.xlsm").Worksheets("sheet1").Range("a1").Copy
.CellDragAndDrop = False (workbook_active)
Workbooks("B.xlsm").Worksheets("sheet1").Range("b5").PasteSpecial xlPasteValues
Jadi kesimpulannya selama prosedur untuk mematikan copy paste antar sheet masih
aktif dibuat macropun tidak akan bisa.
semoga saya tidak salah, jika ada mohon be excel yang lain meralatnya.
Terima kasih
wasalamualaikum warahmatullah.
NangAgus
On 5/24/2014 15:51, 'prazt' [email protected] [belajar-excel] wrote:
Matursuwun Mr HK dan mas Agus...maap kl aneh-aneh permintaannya soalnya saya
punya kasus begini, jika saya diable drag and drop (menggunakan VBA) difile A
maupun B trus saya copy isi cell B3 (misalnya) lalu saya paste (menggunakan
tombol paste) ke file B pada Sheet1 cell C3(misalnya) maka tombol paste
tersebut tidak aktif seperti file terlampir , nah pikir saya gmn kalau diakali
pastenya pakai VBA bisa tidak...mohon pencerahannya...
From: [email protected] [mailto:[email protected]]
Sent: 24 Mei 2014 12:33
To: [email protected]
Subject: RE: [belajar-excel]
Coba buka file B.
Ketik Activecell.Value = "=Worbook ("A").Sheet1.Range ("A1").Value
Salam,
HK
Sent from Samsung Mobile
"'prazt' [email protected] [belajar-excel]" <[email protected]>
wrote:
Dear All master, minta bimbingannya ya
bagaimana VBAnya untuk paste values dari workbook lain, misal dari File A pada
sheet1 saya copy isi cell A1 dan saya paste value (menggunakan macro) ke File B
pada sheet1 cell A1 atau B5..dengan kata lain area/lokasi paste valuenya adalah
area yang di blok/diselect tidak tentu..
_____
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus
<http://www.avast.com/> proteksi aktif.
_____
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus
<http://www.avast.com/> proteksi aktif.
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
