Selasa, 14 Januari 2014

[belajar-excel] Digest Number 2731

15 New Messages

Digest #2731
2b
Re: Sheets Form input,edit,delete [1 Attachment] by "hendrik karnadi" hendrikkarnadi
2c
3b
Re: Extraxt Data Yang Tidak Kosisten Panjangnya. by "Mr. Kid" nmkid.family@ymail.com
4a
Membuat code untuk menuliskan code macro by "Heru Safrudin" superheruu
6
Penjelasan rumus LARGE by "Tuti Hartati"

Messages

Tue Jan 14, 2014 7:11 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

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.nmkid@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.2012@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 <hendrikkarnadi@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&quot; dulu dengan fungsi Replace sebelum dibandingkan dengan fungsi Instr.
>>
>>Salam,
>>HK
>>
>>
>>
>>
>>
>>
>>
>>On Monday, 6 January 2014, 11:18, Melyana Silaban <melyana.2012@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 <hendrikkarnadi@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.2012@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 <hendrikkarnadi@yahoo.com>
>>>
>>>
>>>> 
>>>>Hai Mely,
>>>>Sdh coba update pake macronya Mr. Kid ?
>>>>Kl sdh, boleh dong dishare.
>>>>
>>>>Salam,
>>>>HK
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>>
>

Tue Jan 14, 2014 7:30 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Terima kasih Mr. Kid atas koreksinya.
Memang semakin banyak kita belajar akan semakin banyak yang kita tahu namun pada saat yang sama kita akan merasa bahwa masih banyak yang kita belum tahu, oleh karena itu jangan pernah berhenti belajar.

Salam,
HK


On Tuesday, 14 January 2014, 22:11, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:

 
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.nmkid@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.2012@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 <hendrikkarnadi@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&quot; dulu dengan fungsi Replace sebelum dibandingkan dengan fungsi Instr.
>>
>>Salam,
>>HK
>>
>>
>>
>>
>>
>>
>>
>>On Monday, 6 January 2014, 11:18, Melyana Silaban <melyana.2012@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 <hendrikkarnadi@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.2012@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 <hendrikkarnadi@yahoo.com>
>>>
>>>
>>>> 
>>>>Hai Mely,
>>>>Sdh coba update pake macronya Mr. Kid ?
>>>>Kl sdh, boleh dong dishare.
>>>>
>>>>Salam,
>>>>HK
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>>
>

Tue Jan 14, 2014 10:46 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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 <hendrikkarnadi@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.nmkid@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.2012@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 <hendrikkarnadi@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&quot; dulu dengan fungsi
> Replace sebelum dibandingkan dengan fungsi Instr.
>
> Salam,
> HK
>
>
>
>
>
> On Monday, 6 January 2014, 11:18, Melyana Silaban <
> melyana.2012@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 <hendrikkarnadi@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.[image: *:)
> happy]
>
> Salam,
> HK
>
>
> On Sunday, 5 January 2014, 18:09, Melyana Silaban <
> melyana.2012@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 <hendrikkarnadi@yahoo.com>
>
>
> Hai Mely,
> Sdh coba update pake macronya Mr. Kid ?
> Kl sdh, boleh dong dishare.
>
> Salam,
> HK
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Tue Jan 14, 2014 10:56 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Tambahan dikit :
3. Penggunaan object selalu diusahakan se-eksplisit mungkin, supaya lebih
compatible dan mudah dikonversi ke bahasa lainnya. Contohnya seperti
penggunaan fungsi Transpose milik Excel. Fungsi ini adalah sebuah methods
milik object worksheetfunction. Object worksheetfunction dimiliki oleh
object application. Maka ditulis :
application.worksheetfunction.transpose( blablabla )

dengan bentuk penulisan eksplisit seperti itu, ketika berpindah komputer
dan versi excel ataupun berbeda sp yang bisa menyebabkan berbedanya hirarki
object pada beberapa methods, maka pelacakannya akan mudah.

Wassalam,
Kid.

2014/1/15 Mr. Kid <mr.nmkid@gmail.com>

> 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 <hendrikkarnadi@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.nmkid@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.2012@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 <hendrikkarnadi@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&quot; dulu dengan fungsi
>> Replace sebelum dibandingkan dengan fungsi Instr.
>>
>> Salam,
>> HK
>>
>>
>>
>>
>>
>> On Monday, 6 January 2014, 11:18, Melyana Silaban <
>> melyana.2012@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 <hendrikkarnadi@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.[image: *:)
>> happy]
>>
>> Salam,
>> HK
>>
>>
>> On Sunday, 5 January 2014, 18:09, Melyana Silaban <
>> melyana.2012@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 <hendrikkarnadi@yahoo.com>
>>
>>
>> Hai Mely,
>> Sdh coba update pake macronya Mr. Kid ?
>> Kl sdh, boleh dong dishare.
>>
>> Salam,
>> HK
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>

Tue Jan 14, 2014 6:11 pm (PST) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Terimakasih Mr.Kid atas pencerahannya.

Salam, 
HK

Sent from Samsung Mobile"Mr. Kid" <mr.nmkid@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 <hendrikkarnadi@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.nmkid@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.2012@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 <hendrikkarnadi@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&quot; dulu dengan fungsi Replace sebelum dibandingkan dengan fungsi Instr.

Salam,
HK

On Monday, 6 January 2014, 11:18, Melyana Silaban <melyana.2012@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 <hendrikkarnadi@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.2012@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 <hendrikkarnadi@yahoo.com>
 
Hai Mely,
Sdh coba update pake macronya Mr. Kid ?
Kl sdh, boleh dong dishare.

Salam,
HK

Tue Jan 14, 2014 6:40 pm (PST) . Posted by:

dya27_biznies

Selamat pagi dan salam sejahtera selalu ! Saya adalah pendatang baru di dunia excel. Saya sangat awam mengenai pemrograman pake excel.
Saya ingin bertanya kepada para programmer2 excel mengenai masalah yang sedang saya hadapi :)


Gini Mas Programmer !
Saya pengen banget bikin aplikasi penyusutan pake excel tapi ada fasilitas input, edit, delete nya. Fasilitas input tetap dilakukan pake sheet excel bukan pake form VBA (atau apalah itu, saya gak ngerti :) ). Terlampir, ada contoh bahan aplikasi yang ingin saya buat (Worksheet terdiri dari 4 sheet sheet menu (bag depan), sheet x (untuk inpu,edit,delete data), sheet db (untuk database) dan sheet lap (untuk laporan). Pertanyaan saya adalah :
1. Bagaimana membuat hyperlink menu pake excel
Ketika worksheet aktif muncul "sheet menu". Klik "menu laporan" maka akan menuju ke "sheet laporan" tapi sheet yang lain tidak ditampilkan
2. Script untuk INPUT, EDIT, DELETE data seperti apa? ( pleaseeeee lihat template rancangan )
3. Script No 2 diatas bisa jalan gak kalo worksheet-nya ntar kita simpen dengan format ".xls" atau ".xlsx" ?
Saya ucapkan terima kasih atas kesediaan Mas untuk membantu saya.
Terima kasih !

Tue Jan 14, 2014 9:02 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Ini jawaban sementara, masih perlu difollow up.
Pada prinsipnya semua pertanyaan bisa diselesaikan dengan macro dan formula.

Untuk melengkapi datanya perlu dijelaskan berapa % nilai residu dan berapa tahun penyusutan untuk msg2 jenis asset (bisa dibuat daftar).

File macro bisa disimpan dalam berbagai file extension, yaitu ".xls" (Excel 2003), ".xlsb" atau ".xlsm" (Excel 2007 dan 2010) tetapi tidak bisa dengan ".xlsx". Pasti belum nyampe Excel 2013 kan ?

Macro hanya bisa dijalankan kalau macro securitynya sdh aktif.

Salam,
HK

On Wednesday, 15 January 2014, 9:40, "dya27_biznies@yahoo.co.id" <dya27_biznies@yahoo.co.id> wrote:

 
Selamat pagi dan salam sejahtera selalu !
Saya adalah pendatang baru di dunia excel. Saya sangat awam mengenai pemrograman pake excel.
Saya ingin bertanya kepada para programmer2 excel mengenai masalah yang sedang saya hadapi :)

Gini Mas Programmer !
Saya pengen banget bikin aplikasi penyusutan pake excel tapi ada fasilitas
input, edit, delete nya. Fasilitas input tetap dilakukan pake sheet
excel bukan pake form VBA (atau apalah itu, saya gak ngerti :)  ).
Terlampir, ada contoh bahan aplikasi yang ingin saya buat (Worksheet
terdiri dari 4 sheet sheet menu (bag depan), sheet x (untuk
inpu,edit,delete data), sheet db (untuk database) dan sheet lap (untuk
laporan). Pertanyaan saya adalah :
1. Bagaimana membuat hyperlink menu pake excel
    Ketika worksheet aktif muncul "sheet menu". Klik "menu laporan" maka
akan menuju ke "sheet laporan" tapi sheet yang lain tidak ditampilkan
2. Script untuk INPUT, EDIT, DELETE data seperti apa? ( pleaseeeee lihat  template rancangan )
3. Script No 2 diatas bisa jalan gak kalo worksheet-nya ntar kita simpen dengan format ".xls" atau ".xlsx" ?
    Saya ucapkan terima kasih atas kesediaan Mas untuk membantu saya.Terima kasih !

Tue Jan 14, 2014 9:41 pm (PST) . Posted by:

"Yadi Supriadi" dya27_biznies

Terima kasih atas jawabannya
Maaf pertanyaan nya kurang lengkap. Saya memakai metode peynusutan Garis Lurus. Umur assets saya buat dalam satuan bulan. Jadi jika umur assets 60 bulan=5 tahun akan % penyusutannya sebesar 20 %.
Saya pernah liat sample input,edit, hapus pake "form shhet" excel di forum ini. terlihat bahawa field2 yang akan dijadikan header di database posisinya teratur (Misal dari kolom A1:A8 ). Tapi Pertanyaan saya sebenarnya adalah tentang proses INPUT, EDIT, HAPUS jika Field2-nya (Assets No, Assets Type, Assets Name, Date Purchase dll) ngacak.Misal :
Cell K7    : Assets No
Cell K8    : Assets Type
Cell K19  : Assets Name            Cell AE19  : Quantity Purchase
Cell K21  : Date Purcahse          Cell AE21  : Price per Unit

Saya bingung untuk script :
* INPUT, EDIT, dan DELETE nya.
* Jika klik INPUT lagi maka data yang telah dimasukan ke-save di "sheet db" dan ter-copy ke "sheet lap"

Pada Rabu, 15 Januari 2014 12:02, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

 
Ini jawaban sementara, masih perlu difollow up.
Pada prinsipnya semua pertanyaan bisa diselesaikan dengan macro dan formula.

Untuk melengkapi datanya perlu dijelaskan berapa % nilai residu dan berapa tahun penyusutan untuk msg2 jenis asset (bisa dibuat daftar).

File macro bisa disimpan dalam berbagai file extension, yaitu ".xls" (Excel 2003), ".xlsb" atau ".xlsm" (Excel 2007 dan 2010) tetapi tidak bisa dengan ".xlsx". Pasti belum nyampe Excel 2013 kan ?

Macro hanya bisa dijalankan kalau macro securitynya sdh aktif.

Salam,
HK

On Wednesday, 15 January 2014, 9:40, "dya27_biznies@yahoo.co.id" <dya27_biznies@yahoo.co.id> wrote:

 
Selamat pagi dan salam sejahtera selalu !
Saya adalah pendatang baru di dunia excel. Saya sangat awam mengenai pemrograman pake excel.
Saya ingin bertanya kepada para programmer2 excel mengenai masalah yang sedang saya hadapi :)

Gini Mas Programmer !
Saya pengen banget bikin aplikasi penyusutan pake excel tapi ada fasilitas
input, edit, delete nya. Fasilitas input tetap dilakukan pake sheet
excel bukan pake form VBA (atau apalah itu, saya gak ngerti :)  ).
Terlampir, ada contoh bahan aplikasi yang ingin saya buat (Worksheet
terdiri dari 4 sheet sheet menu (bag depan), sheet x (untuk
inpu,edit,delete data), sheet db (untuk database) dan sheet lap (untuk
laporan). Pertanyaan saya adalah :
1. Bagaimana membuat hyperlink menu pake excel
    Ketika worksheet aktif muncul "sheet menu". Klik "menu laporan" maka
akan menuju ke "sheet laporan" tapi sheet yang lain tidak ditampilkan
2. Script untuk INPUT, EDIT, DELETE data seperti apa? ( pleaseeeee lihat  template rancangan )
3. Script No 2 diatas bisa jalan gak kalo worksheet-nya ntar kita simpen dengan format ".xls" atau ".xlsx" ?
    Saya ucapkan terima kasih atas kesediaan Mas untuk membantu saya.Terima kasih !

Tue Jan 14, 2014 8:28 pm (PST) . Posted by:

"Emi" emilestariklcc

Dear Mr Kid,

Text file itu adalah dari ftp, saya copy dan paste ke excel. Artinya bukan dengan cara import dari Data ---> From Text.
Apabila saya paste, data tersebut sudah siap berada di dalam kolumnya tanpa perlu dibuat text to column.
Masalahnya ada text yang sepatutnya berada di dalam column nya telah memasuki column yang lain.

Thanks

Wassalam

-Emi Lestari

On Tuesday, January 14, 2014 4:27 PM, Mr. Kid <mr.nmkid@gmail.com> wrote:

 
Boleh tahu seperti apa text file yang dibuka dengan Excel tersebut?
Atau bagaimana cara Anda membuka text file tersebut di Excel ?

Wassalam,
Kid.

2014/1/13 Emi <emilestariklcc@yahoo.com>

> 
>
>
>Teman dan Guru BeExcel,
>Sayapunya data  yang diimport dari text file lalu di paste ke
excel.
>Masalahnya  data nya tidak berada di kolum yang betul
disebabkan ada text yang panjang telah melebihi kolumnya sendiri.
> Hasil yang diinginkan ialah
>1.
Menghapus semua heading yang tidak perlu.
>2.
Amaun yang pertama di data asli adalah amaun cash, seterusnya amaun cheque,
Return cheque, Advance.
>3.
Keempat empat kolumn itu di jumlahkan di  kolumn Total.
>4.
Membuat autonumbering bagi setiap row di table hasil
>Terima
kasih.
>-Emi
Lestari
>
>
>
>
>
>
>
>

Tue Jan 14, 2014 9:11 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Dari ftp ya.

File yang diambil dari ftp berekstensi apa ?
Biasanya dibuka langsung (double click di nama file) ya ?
Bisa gak kalau file dari ftp tersebut di file open dari Excel ?

Wassalam,
Kid.

2014/1/15 Emi <emilestariklcc@yahoo.com>

>
>
> Dear Mr Kid,
>
> Text file itu adalah dari ftp, saya copy dan paste ke excel. Artinya
> bukan dengan cara import dari Data ---> From Text.
> Apabila saya paste, data tersebut sudah siap berada di dalam kolumnya
> tanpa perlu dibuat text to column.
> Masalahnya ada text yang sepatutnya berada di dalam column nya telah
> memasuki column yang lain.
>
> Thanks
> Wassalam
>
> -Emi Lestari
>
>
>
> On Tuesday, January 14, 2014 4:27 PM, Mr. Kid <mr.nmkid@gmail.com>
> wrote:
>
> Boleh tahu seperti apa text file yang dibuka dengan Excel tersebut?
> Atau bagaimana cara Anda membuka text file tersebut di Excel ?
>
> Wassalam,
> Kid.
>
>
>
> 2014/1/13 Emi <emilestariklcc@yahoo.com>
>
>
>
> Teman dan Guru BeExcel,
> Saya punya data yang diimport dari text file lalu di paste ke excel.
> Masalahnya data nya tidak berada di kolum yang betul disebabkan ada text
> yang panjang telah melebihi kolumnya sendiri.
> Hasil yang diinginkan ialah
> 1. Menghapus semua heading yang tidak perlu.
> 2. Amaun yang pertama di data asli adalah amaun cash, seterusnya amaun
> cheque, Return cheque, Advance.
> 3. Keempat empat kolumn itu di jumlahkan di kolumn Total.
> 4. Membuat autonumbering bagi setiap row di table hasil
> Terima kasih.
> -Emi Lestari
>
> [image: alt]
>
>
> [image: alt]
>
>
>
>
>
>

Tue Jan 14, 2014 11:09 pm (PST) . Posted by:

"Emi" emilestariklcc

Extensinya  .RP

Dilampirkan contoh data yang diimport langsung dari excel.(Data, From Text)

Cara buka file ftp ialah dgn double click.
Saya sudah coba buka dari excel, data, from other source, tapi tidak berhasil.

Terima kasih.

-Emi Lestari

On Wednesday, January 15, 2014 1:11 PM, Mr. Kid <mr.nmkid@gmail.com> wrote:

 
Dari ftp ya.

File yang diambil dari ftp berekstensi apa ?

Biasanya dibuka langsung (double click di nama file) ya ?

Bisa gak kalau file dari ftp tersebut di file open dari Excel ?

Wassalam,
Kid.

2014/1/15 Emi <emilestariklcc@yahoo.com>

> 
>Dear Mr Kid,
>
>
>Text file itu adalah dari ftp, saya copy dan paste ke excel. Artinya bukan dengan cara import dari Data ---> From Text.
>Apabila saya paste, data tersebut sudah siap berada di dalam kolumnya tanpa perlu dibuat text to column.
>Masalahnya ada text yang sepatutnya berada di dalam column nya telah memasuki column yang lain.
>
>
>Thanks
>
>Wassalam
>
>
>
>-Emi Lestari
>
>
>
>
>
>
>On Tuesday, January 14, 2014 4:27 PM, Mr. Kid <mr.nmkid@gmail.com> wrote:
>
> 
>Boleh tahu seperti apa text file yang dibuka dengan Excel tersebut?
>Atau bagaimana cara Anda membuka text file tersebut di Excel ?
>
>Wassalam,
>Kid.
>
>
>
>
>
>2014/1/13 Emi <emilestariklcc@yahoo.com>
>
>
>> 
>>
>>
>>Teman dan Guru BeExcel,
>>Sayapunya data  yang diimport dari text file lalu di paste ke
excel.
>>Masalahnya  data nya tidak berada di kolum yang betul
disebabkan ada text yang panjang telah melebihi kolumnya sendiri.
>> Hasil yang diinginkan ialah
>>1.
Menghapus semua heading yang tidak perlu.
>>2.
Amaun yang pertama di data asli adalah amaun cash, seterusnya amaun cheque,
Return cheque, Advance.
>>3.
Keempat empat kolumn itu di jumlahkan di  kolumn Total.
>>4.
Membuat autonumbering bagi setiap row di table hasil
>>Terima
kasih.
>>-Emi
Lestari
>>
>>
>>
>>
>>
>>
>>
>>
>
>
>

Tue Jan 14, 2014 11:37 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Melihat strukturnya, sepertinya file .rp tersebut adalah sebuah flatfile.

Berikut ini beberapa opsi dari sekian banyak cara membuka flatfile di Excel
secara langsung :
Cara 1 : copy file dari ftp ke sebuah folder di local komputer, rename
extension rp menjadi txt, buka file dari Excel dengan cara menu File ->
Open -> filter dipilih yang txt atau All FIles juga bisa -> pilih file
tersebut -> tekan Open -> muncul wizard text to column, gunakan fixed width
dan atur lebarnya.

Cara 2 : buka Excel -> menu File -> Open -> filter pilih All Files -> pilih
file berekstensi rp dari ftp -> tekan Open -> muncul wizard text to column
-> pilih fixed width -> atur lebar setiap kolom

Jadi, bukan menggunakan fitur Get External Data, tetapi menggunakan menu
File -> Open.

Wassalam,
Kid.

2014/1/15 Emi <emilestariklcc@yahoo.com>

>
>
> Extensinya .RP
>
> Dilampirkan contoh data yang diimport langsung dari excel.(Data, From Text)
> Cara buka file ftp ialah dgn double click.
> Saya sudah coba buka dari excel, data, from other source, tapi tidak
> berhasil.
>
>
> Terima kasih.
>
> -Emi Lestari
>
>
>
> On Wednesday, January 15, 2014 1:11 PM, Mr. Kid <mr.nmkid@gmail.com>
> wrote:
>
> Dari ftp ya.
>
> File yang diambil dari ftp berekstensi apa ?
> Biasanya dibuka langsung (double click di nama file) ya ?
> Bisa gak kalau file dari ftp tersebut di file open dari Excel ?
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014/1/15 Emi <emilestariklcc@yahoo.com>
>
>
> Dear Mr Kid,
>
> Text file itu adalah dari ftp, saya copy dan paste ke excel. Artinya
> bukan dengan cara import dari Data ---> From Text.
> Apabila saya paste, data tersebut sudah siap berada di dalam kolumnya
> tanpa perlu dibuat text to column.
> Masalahnya ada text yang sepatutnya berada di dalam column nya telah
> memasuki column yang lain.
>
> Thanks
> Wassalam
>
> -Emi Lestari
>
>
>
> On Tuesday, January 14, 2014 4:27 PM, Mr. Kid <mr.nmkid@gmail.com>
> wrote:
>
> Boleh tahu seperti apa text file yang dibuka dengan Excel tersebut?
> Atau bagaimana cara Anda membuka text file tersebut di Excel ?
>
> Wassalam,
> Kid.
>
>
>
> 2014/1/13 Emi <emilestariklcc@yahoo.com>
>
>
>
> Teman dan Guru BeExcel,
> Saya punya data yang diimport dari text file lalu di paste ke excel.
> Masalahnya data nya tidak berada di kolum yang betul disebabkan ada text
> yang panjang telah melebihi kolumnya sendiri.
> Hasil yang diinginkan ialah
> 1. Menghapus semua heading yang tidak perlu.
> 2. Amaun yang pertama di data asli adalah amaun cash, seterusnya amaun
> cheque, Return cheque, Advance.
> 3. Keempat empat kolumn itu di jumlahkan di kolumn Total.
> 4. Membuat autonumbering bagi setiap row di table hasil
> Terima kasih.
> -Emi Lestari
>
> [image: alt]
>
>
> [image: alt]
>
>
>
>
>
>
>
>
>

Tue Jan 14, 2014 11:34 pm (PST) . Posted by:

"Heru Safrudin" superheruu

Dear Master,

Bagaimana caranya membuat code untuk menuliskan beberapa baris code macro di
Vba project

Terima kasih

Salam

Heru Safrudin

Tue Jan 14, 2014 11:36 pm (PST) . Posted by:

"Agus Erwanto" erwanto_agus

----- Mods -----

Tuliskan detail pertanyaan dengan lengkap di badan email
Sertakan sample workbook, tidak harus berisi data kerja asli
ukuran file maksimal 250 KB
jika perlu jelaskan langkah pekerjaan manual / bentuk hasil yang diinginkan
____________

Tue Jan 14, 2014 11:51 pm (PST) . Posted by:

"Tuti Hartati"



Dear Mr.Kid,

Mohon penjelasannya mengenai rumus dibawah ini:
=LARGE(ROUND(INDEX($D$5:$AH$22,0,$AM$2),4)*10^7+$A$5:$A$22,A5)

Saya sudah cari tapi tidak paham maksudnya, Mohon ya Mr.Kid.

Terimakasih,

Tuti Hartati

GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 23.51

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)