Dari kalimat :
"pada sumber data yang di copy pada kolom No. terdapat rumus =Row()-5"
bisa diasumsikan bahwa :
1. header ada di baris 5
2. header diperkirakan mulai di kolom A
3. record pertama di baris 6 Excel
4. tidak ada baris kosong antar record
5. sheet lokasi tabel ini dalam keadaan aktif (sebagai sheet aktif)
Sebelum proses berakhir, pasang formula di kolom No. tersebut (sesuai
asumsi di atas, maka di kolom A, mulai A6 dst)
Kira-kira bunyinya begini :
range("a5").currentregion.resize(,1).formula="=n( a4 ) + 1"
range("a5").value="No."
activesheet.calculate
Wassalam,
Kid.
2012/9/12 Longinus Along <[email protected]>
> **
>
>
> Dear All Master,
>
> Terimaksih MR.Kid, untuk CB hapusnya sudah bisa, saya kombinasikan
> dengan code sebelumnya, sekarang, masalah saya muncul lagi, pada saat
> saya open file, maka file yang terpilih di buka datanya akan di copy ke
> workbook "TEST" ke Sheets "Partsdata" kemudian file yang tadi di open
> ditutup kembali,
> masalahnya adalah pada kolom No.,rumusnya hilang, maksud saya bagaimana
> supaya rumusnya
> ikut terkopy juga. Karena pada sumber data yang di copy pada kolom No.
> terdapat rumus =Row()-5
> Mohon pencerahan code nya agar rumus juga tercopy, contoh file terlampir,
> terimakasih banyak…
>
> Salam,
> Longinus
>
>
>
