Hai Danny,
Maksudnya begini :
Apakah di file Anda tersebut,
1. tampak ada jejeran nama-nama sheet dibawah cells excel di atas status
bar ?
[image: Inline image 2]
2. bolehkah user meng-klik kanan nama sebuah sheet dalam tab sheet ?
[image: Inline image 3]
btw,
A. cara isi combobox dengan nama-nama sheet yang ada :
> proses loop setiap sheet dalam workbook, lalu additem nama sheet ke
combobox
> contoh :
dim sht as worksheet
cboSht.clear 'buang isi combobox bernama cboSht
for each sht in thisworkbook.worksheets 'disetiap worksheet dalam
workbook
cbosht.additem sht.name 'tambah item berbunyi namanya sheet
yang sedang diproses ke cboSht
next sht 'ke sheet berikutnya kalau masih ada
B. cara copy sheet
>> contoh :
with thisworkbook.sheets
.item("nama sheet yang akan di-copy").copy after:= .item(
.count )
end with
>> mau pakai variabel biar lebih jelas ?
dim shtSumber as worksheet
dim lJumlahSheets as long, shtTerakhirYangAda as worksheet
set shtSumber=thisworkbook.sheets("nama sheet yang akan di-copy")
lJumlahSheets=thisworkbook.sheets.count
set shtTerakhirYangAda=thisworkbook.sheets( lJumlahSheets )
shtSumber.copy after:= shtTerakhirYangAda
>> silakan mau pakai yang mana saja bisa. Sesuaikan rujukan object sumber
dan lokasi target sesuai kebutuhan setempat.
Wassalam,
Kid
2015-03-19 15:02 GMT+11:00 [email protected] [belajar-excel] <
[email protected]>:
>
>
> Toby : yang waktu itu sudah bisa mas, terima kasih banyak ya hehehe
>
> Kid : maksudnya user tidak bisa copy atau move sheet yang ada yaa?
>
>
