Wa'alaikumussalam Wr. Wb.
1. Eksekusi Simpan
>> Agar ada proses, maka proses transpose dilakukan pada prosedur akibat
penekanan tombol simpan dan bukan pada event change worksheet
>> Yang dicopy dirujuk langsung saja, dengan syarat, ada dalam 1 kolom atau
ada dalam 1 baris saja jika memang hasil paste hanya akan mengisi 1 baris
atau 1 kolom saja.
Contoh :
Data inputan yang akan disimpan ada di range C4:C9,C11:C15,C17:C20
maka proses copas transpose : (misal akan di copas transpose ke baris 17
mulai kolom A)
sheets("nama_sheetnya").range("C4:C9,C11:C15,C17:C20").copy * sheets("sheet
tujuan").range("A17")*.pastespecial xlpastevalues,transpose:=true
Ganti rujukan *biru *dengan cara merujuk yang dinamis yang sudah ada
diaplikasi sampeyan.
2. remove worksheet activex control
>> pada Excel 2007, coba lihat di ribbon Developer -> tekan Design Mode
agar dalam keadaan ON -> klik control yang akan dihapus -> tekan tombol
Delete
>> Hanya berlaku untuk control jenis activex. Pada form control (bukan
activex control) dilakukan dengan klik kanan pilih cut
>> Jika ribbon Developer tidak ada dalam jejeran ribbon di sisi atas layar,
tampilkan dengan :
Excel Options -> page Popular -> block Top Options blabla -> item Show
Developer ribbon -> pastikan tercentang -> tekan OK sampai kembali ke
worksheet
3. Pengecualian yang akan di-copy
>> sudah termaktub dalam nomor 1
4. Keluaran
>> Pakai formula ya
>> saya ndak mudeng maksudnya
5. Interface
>> Susunan yang cantik ? bukannya.... aku cantik dari hatiku
wakakakaka.... (ubah lagu jadi versi narsis)
>> Sepertinya ada grup-grup data. Bagaimana kalau item grupnya agak diberi
Indent biar masuk dikit. Jadi ndak perlu ubah banyak script bagian
baca-tulis data dari dan ke tempat lain
>> Kalau masih kurang cantik, ya operasi plastik saja, letakkan di kolom
beda, disebalah sana dan sini, tapi harus disertai ubah script baca-tulis
data dari dan ke tempat lain.
>> jadi, pokok masalahnya adalah mau mengubah script atau ndak.
Wassalam,
Kid.
2013/1/20 Triyoso Rustamaji <[email protected]>
> **
>
>
> assalamualaikum,
> para exeller yang terhormat dan pembaca sekalian.
> kasus terlampir mohon bantuan dan sarannya.
> sebagai pendahuluan,
> jika dilakukan eksekusi SIMPAN, jadi tidak seperti yang saya harapkan.
> saya berusaha utak atik kiriman pak Hendrik dan hasilnya gagal lagi
> (posting kiriman terdahulu)
> pertanyaan ada dalam file.
> atas bantuan nya saya ucapkan terimakasih.
>
> semoga kesehatan selalu tercurah kepada panjenengan semua,
> wassalamualaikum.
> triyoso.
>
>
>
