Terimakasih Mr.Kid atas pencerahannya.
Salam,
HK
Sent from Samsung Mobile"Mr. Kid" <mr.nm...@gmail.com> wrote:Pak HK,
1. Tanpa properti value berarti menggunakan default properti milik object jika
dibutuhkan propertinya. Berhubung nilai data ada yang lebih dari 255 karakter,
maka yang dibutuhkan adalah objectnya. Yang ditranspose adalah objectnya.
Object range ketika digunakan oleh fungsi Join akan dimanfaatkan properti
defaultnya yaitu properti bernama Value. Proses ini akan sedikit melambat
dibanding ketika bisa menggunakan properti value. Biasanya dikomputer yang
sudah canggih sekarang ini, perlambatan tersebut tidak terlalu tampak.
Justru pertanyaannya adalah, kenapa kok data referensi disusun dengan
bersusah-susah berisi sampai lebih dari 255 karakter dalam 1 cell, padahal
masih bisa memproses sampai 65K cells. Jika 1 cell diisi item, berarti ada 65K
item. Jika 1 cell hanya diisi 10 item (pasti kurang dari 255 karakter per
cell), akan ada 65M item yang bisa diproses.
btw,
apapun penyebab hal itu, biarlah dipikirkan penanya sajah...
2. Hasil warnanya sama dengan sumber. Artinya yang dibutuhkan adalah copy paste
dan bukan penulisan suatu nilai. Script yang ada sekarang adalah penulisan
nilai, yaitu pada baris :
Range("G" & n) = rng(i).value
yang sebaiknya ditulis eksplisit menjadi :
Range("G" & n).value = rng(i).value
Proses copy paste agar bisa seperti sumbernya :
rng(i).copy range("g" & n )
Sayangnya, proses copas diatas akan meng-copas semuanya, termasuk formula jika
di sumber data ada yang berformula.
Jika hasilnya hanya values disertai format sumber data :
rng(i).copy
range("g" & n ).pastespecial xlpastevalues
range("g" & n ).pastespecial xlpasteformats
Wassalam,
Kid.
2014/1/14 hendrik karnadi <hendrikkarn...@yahoo.com>
Hai Mely,
Error yang disebabkan karena "Typo" atau typing error memang bagian yang paling
sulit dari pembuatan suatu program, sehingga diperlukan pemahaman yang mendalam
dan ketelitian untuk memperbaikinya .
Tertulis sebelumnya:
sNames = "," &
LCase(Replace(Join(Application.Transpose(Sheets("VBA").Range("E5",
Range("E5").End(xlDown)).Value), ","), ", ", ",")) & ","
seharusnya (seperti "petuah" Mr. Kid):
sNames = "," &
LCase(Replace(Join(Application.WorksheetFunction.Transpose(Sheets("VBA").Range("E5",
Sheets("VBA").Range("E5").End(xlDown))), ","), ", ", ",")) & ","
Bagian yang merah dihilangkan dan yang biru ditambahkan (mungkin Mr. Kid bisa
lebih menjelaskan mengapa harus ditulis seperti itu .....).
Pertanyaan No. 2 (warna font sama) juga masih belum bisa saya jawab, mudah2an
Mr. Kid, Mis Jan atau para pakar lainnya bisa menambahkan codenya.
Salam,
HK
On Tuesday, 14 January 2014, 17:24, Mr. Kid <mr.nm...@gmail.com> wrote:
Error disebabkan karena typo dalam mengisi input parameter setiap function yang
digunakan dalam baris sNames = blabla
Coba diubah menjadi :
sNames = "," & _
LCase( _
Replace( _
Join( _
Application.WorksheetFunction.Transpose( _
Sheets("VBA").Range( _
"E5" _
,
Sheets("VBA").Range("E5").End(xlDown) _
) _
) _
, "," _
) _
, ", " _
, "," _
) _
) _
& ","
Wassalam,
Kid.
2014/1/14 Melyana Silaban <melyana.2...@gmail.com>
Mr.HK & Mr.Kid,
Maaf dah lama nggak update ke milis.
Saat ini saya sdh menggunakan metode yg bapak-bapak berikan (kombinasi).
Saya masih memakai macro dari Mr.Kid (yg awal yg hanya single cell) &
dikombinasi formula dari Mr.HK (untuk menggabung semua data dlm 1 cell).
Terlampir ini adalah update permasalahan yg saya ingin mendapat pencerahan dari
para master.
Inti pertanyaannya:
ingin dapat improvisasi dari macro terakhir Mr.Kid spy compatible mengolah data
dgn jumlah yg relatif banyak.
ingin membuat hasil akhir dgn warna font sama dgn data sumber di kolom A
Terima kasih banyak.
Salam,
Mely
2014/1/6 hendrik karnadi <hendrikkarn...@yahoo.com>
Menurut pendapat saya fungsi dari Mr. Kid ini..(Join(Application.Transpose(....
bisa dipakai untuk menggabungkan data vertikal menjadi horisontal (sheet REFF
ALL), sedangkan untuk membandingkannya dengan kolom A pada Sheets TABEL SINGLE
CELL atau TABEL MULTI CELL maka data gabungan tsb perlu "diseragamkan" dulu
dengan fungsi Replace sebelum dibandingkan dengan fungsi Instr.
Salam,
HK
On Monday, 6 January 2014, 11:18, Melyana Silaban <melyana.2...@gmail.com>
wrote:
Mr.HK,
Maaf sebelumnya, ternyata file yg saya kirim size-nya over limit sesuai syarat
dalam milis, sehingga tidak bisa terkirim. OK, ini saya re-send file tsb dgn
meng-compress-nya terlebih dulu. Silahkan dicoba.
Terima kasih.
Wassalam,
Mely
2014/1/5 hendrik karnadi <hendrikkarn...@yahoo.com>
Hai Mely,
Sambil menunggu anda posting ulang file yang masih error saya coba aplikasikan
"petuah" Mr. Kid dalam file sebelumnya.
File berikut update macronya terlampir (aplikasi dijalankan pada sheet VBA).
Terima kasih kepada Mr. Kid yang telah memberikan pencerahan.
Salam,
HK
On Sunday, 5 January 2014, 18:09, Melyana Silaban <melyana.2...@gmail.com>
wrote:
Mr.HK,
Sebetulnya saya sdh mencoba beberapa tips dari Mr.Kid, tapi untuk macronya
masih belum dicoba. Saya masih explorer di excel formulanya Mr.Kid. Macro saya
masih follow dari Mr.HK, ketika syntax saya update untuk menambahkan cell di
C(syntax " Range("CX")"). Saya menemui kendala ternyata penambahan in terbatas
hingga cell ke 68 (untuk cell C69 dst error). Akurasi pengolahan sudah OK jika
data hanya maximal 68 cell. Karena keterbatasan kemampuan saya, akhirnya
sementara saya gunakan tips gabungan dari Mr.Kid Mr.HK. Proses untuk membuat
data referensi dalam satu cell saya follow formula Mr.Kid(bukan yg pivottable)
sedangkan untuk compare data kedua kolom, saya gunakan macro dasar dari Mr.HK.
Terlampir adalah contoh percobaan dari saya. Dan syukur-syukur jika ada
tambahan ilmu yg bisa saya peroleh dari bapak-bapak sekalian.
Terima kasih.
Wassalam
Mely
--- Mods ---
File lampiran dibatasi 250KB. File lampiran yang lebih dari 250KB akan dilepas
dari email.
Silakan posting (reply) file lampiran yang sesuai peraturan milis (max 250KB).
----------------
2014/1/3 hendrik karnadi <hendrikkarn...@yahoo.com>
Hai Mely,
Sdh coba update pake macronya Mr. Kid ?
Kl sdh, boleh dong dishare.
Salam,
HK
