Dear Longinus, Mungkin file ini bisa membantu.Untuk mengaktifkannya: 1.Buat
file Excel dan beri nama Book1.xlsx2.Simpan file tersebut di Drive C dan
Foldernya New folder ("C:\New folder\Book1.xlsx)3.Jalankan file ini dengan
mengclick Save, jika tidak bisa kemungkinan Assign Macronya berubah dan kalo
memang berubah Assign Macronya, coba di acktivekan Assign Macro
"SavetoAnotherSheet" TerimaKasih.
Pada Jumat, 15 Mei 2015 12:39, "Longinus Lee [email protected]
[belajar-excel]" <[email protected]> menulis:
Dear Mr. KID Oke Mr. KID., makasih banyak ya.. Salam,
Longinus On 15 May 2015 08:04, "'Mr. Kid' [email protected] [belajar-excel]"
<[email protected]> wrote:
Hai Longinus,
Milis mempunya blog yang juga membahas tentang VBA. Disana ada cara memilih
range yang dimulai darisini.
Misal : file z.xlsm akan menyalin data dari workbook bernama a.xlsx di sheet
bernama asal disimpan ke b.xlsx ke sheet bernama mydata
'buka workbook yang dibutuhkan
workbooks.open("drive:\pathnya\a.xlsx")
workbooks.open("drive:\pathnya\b.xlsx")
'copy sumber data di a.xlsx sheet asal yang berbentuk tabel yang baik tanpa
header
workbooks("a.xlsx").sheets("asal").range("a1").currentregion.offset(1).copy
'paste values beserta format number ke b.xlsx di sheet mydata pada baris kosong
(proses append data)
with workbooks("b.xlsx").sheets("mydata").range("a1")
.offset( .currentregion.rows.count ).pastespecial
xlpastevaluesandnumberformats
end with
'save lalu tutup workbook b.xlsx
workbooks("b.xlsx").close true
'tutup workbook a.xlsx tanpa save
workbooks("a.xlsx").close false
Regard,
Kid
2015-05-14 14:28 GMT+10:00 Longinus Lee [email protected] [belajar-excel]
<[email protected]>:
Dear BeExceller
Terlampir dua file, mohon bantu script nya.
1. copy data dari dataasli.exlb ke file databackup.xlsx, copy di bagian cell
atau range yg berisikan data saja, sedangkan bagian kosong tidak akan di copy
2.input data dan edit data ke workbook lain (database.xlsx), maksudnya saya
ingin menjadikan file database.xlsx sebagai tempat penyimpanan data aslinya.
seperti Mr.Kid jelasin ke saya bahwa file ecxel yg sdh di convert jadi file.exe
hanya berkerja sebagai engine saja.
Sebelum dan sesudahnya saya ucapkan terima kasih.
Salam,
Longinus
#yiv3737819212 #yiv3737819212 -- #yiv3737819212ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3737819212
#yiv3737819212ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3737819212
#yiv3737819212ygrp-mkp #yiv3737819212hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv3737819212 #yiv3737819212ygrp-mkp #yiv3737819212ads
{margin-bottom:10px;}#yiv3737819212 #yiv3737819212ygrp-mkp .yiv3737819212ad
{padding:0 0;}#yiv3737819212 #yiv3737819212ygrp-mkp .yiv3737819212ad p
{margin:0;}#yiv3737819212 #yiv3737819212ygrp-mkp .yiv3737819212ad a
{color:#0000ff;text-decoration:none;}#yiv3737819212 #yiv3737819212ygrp-sponsor
#yiv3737819212ygrp-lc {font-family:Arial;}#yiv3737819212
#yiv3737819212ygrp-sponsor #yiv3737819212ygrp-lc #yiv3737819212hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3737819212
#yiv3737819212ygrp-sponsor #yiv3737819212ygrp-lc .yiv3737819212ad
{margin-bottom:10px;padding:0 0;}#yiv3737819212 #yiv3737819212actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3737819212
#yiv3737819212activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3737819212
#yiv3737819212activity span {font-weight:700;}#yiv3737819212
#yiv3737819212activity span:first-child
{text-transform:uppercase;}#yiv3737819212 #yiv3737819212activity span a
{color:#5085b6;text-decoration:none;}#yiv3737819212 #yiv3737819212activity span
span {color:#ff7900;}#yiv3737819212 #yiv3737819212activity span
.yiv3737819212underline {text-decoration:underline;}#yiv3737819212
.yiv3737819212attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv3737819212 .yiv3737819212attach div a
{text-decoration:none;}#yiv3737819212 .yiv3737819212attach img
{border:none;padding-right:5px;}#yiv3737819212 .yiv3737819212attach label
{display:block;margin-bottom:5px;}#yiv3737819212 .yiv3737819212attach label a
{text-decoration:none;}#yiv3737819212 blockquote {margin:0 0 0
4px;}#yiv3737819212 .yiv3737819212bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv3737819212
.yiv3737819212bold a {text-decoration:none;}#yiv3737819212 dd.yiv3737819212last
p a {font-family:Verdana;font-weight:700;}#yiv3737819212 dd.yiv3737819212last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3737819212
dd.yiv3737819212last p span.yiv3737819212yshortcuts
{margin-right:0;}#yiv3737819212 div.yiv3737819212attach-table div div a
{text-decoration:none;}#yiv3737819212 div.yiv3737819212attach-table
{width:400px;}#yiv3737819212 div.yiv3737819212file-title a, #yiv3737819212
div.yiv3737819212file-title a:active, #yiv3737819212
div.yiv3737819212file-title a:hover, #yiv3737819212 div.yiv3737819212file-title
a:visited {text-decoration:none;}#yiv3737819212 div.yiv3737819212photo-title a,
#yiv3737819212 div.yiv3737819212photo-title a:active, #yiv3737819212
div.yiv3737819212photo-title a:hover, #yiv3737819212
div.yiv3737819212photo-title a:visited {text-decoration:none;}#yiv3737819212
div#yiv3737819212ygrp-mlmsg #yiv3737819212ygrp-msg p a
span.yiv3737819212yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3737819212
.yiv3737819212green {color:#628c2a;}#yiv3737819212 .yiv3737819212MsoNormal
{margin:0 0 0 0;}#yiv3737819212 o {font-size:0;}#yiv3737819212
#yiv3737819212photos div {float:left;width:72px;}#yiv3737819212
#yiv3737819212photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv3737819212
#yiv3737819212photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3737819212
#yiv3737819212reco-category {font-size:77%;}#yiv3737819212
#yiv3737819212reco-desc {font-size:77%;}#yiv3737819212 .yiv3737819212replbq
{margin:4px;}#yiv3737819212 #yiv3737819212ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv3737819212 #yiv3737819212ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3737819212
#yiv3737819212ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3737819212
#yiv3737819212ygrp-mlmsg select, #yiv3737819212 input, #yiv3737819212 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv3737819212
#yiv3737819212ygrp-mlmsg pre, #yiv3737819212 code {font:115%
monospace;}#yiv3737819212 #yiv3737819212ygrp-mlmsg *
{line-height:1.22em;}#yiv3737819212 #yiv3737819212ygrp-mlmsg #yiv3737819212logo
{padding-bottom:10px;}#yiv3737819212 #yiv3737819212ygrp-msg p a
{font-family:Verdana;}#yiv3737819212 #yiv3737819212ygrp-msg
p#yiv3737819212attach-count span {color:#1E66AE;font-weight:700;}#yiv3737819212
#yiv3737819212ygrp-reco #yiv3737819212reco-head
{color:#ff7900;font-weight:700;}#yiv3737819212 #yiv3737819212ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv3737819212 #yiv3737819212ygrp-sponsor
#yiv3737819212ov li a {font-size:130%;text-decoration:none;}#yiv3737819212
#yiv3737819212ygrp-sponsor #yiv3737819212ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv3737819212
#yiv3737819212ygrp-sponsor #yiv3737819212ov ul {margin:0;padding:0 0 0
8px;}#yiv3737819212 #yiv3737819212ygrp-text
{font-family:Georgia;}#yiv3737819212 #yiv3737819212ygrp-text p {margin:0 0 1em
0;}#yiv3737819212 #yiv3737819212ygrp-text tt {font-size:120%;}#yiv3737819212
#yiv3737819212ygrp-vital ul li:last-child {border-right:none
!important;}#yiv3737819212
save to another sheet.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
