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 > <http://b-excel.blogspot.com/2013/09/belajarvba-011-range-01-berdasar-alamat.html> > . > > 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 >> >> > >
