[belajar-excel] Digest Number 2717

Milis Belajar Microsoft Excel Group

15 New Messages

Digest #2717

1a

Re: Fw: [belajar-excel] Membandingkan data pada 2 kolom & melihat ha by "Mr. Kid" nmkid.family@ymail.com

1b

Re: Fw: [belajar-excel] Membandingkan data pada 2 kolom & melihat ha by "Melyana Silaban"

1c

Re: Fw: [belajar-excel] Membandingkan data pada 2 kolom & melihat ha by "hendrik karnadi" hendrikkarnadi

2a

Re: Meringkas data [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

3a

Re: Copy berulang dari column ke row [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

3b

Re: Copy berulang dari column ke row by "rian" ryan_ahoy

4a

menghitung JPK by jalanmawar2_blok3

4b

Re: menghitung JPK [1 Attachment] by "Jan Raisin"

4c

Re: menghitung JPK [1 Attachment] by "Jan Raisin"

4d

Re: menghitung JPK [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

4e

Re: menghitung JPK by "Lukman Setiawan" jalanmawar2_blok3

5

Pisah angka by "Liem Suliem" liemsuliem

6a

Re: Pisah angka [1 Attachment] by "Hendrik Karnadi" hendrikkarnadi

6b

Re: Pisah angka by "Jan Raisin"

6c

Re: Pisah angka by "aji mumpung"

Messages

1a

Re: Fw: [belajar-excel] Membandingkan data pada 2 kolom & melihat ha

Thu Jan 2, 2014 1:39 pm (PST) . Posted by:

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

File terlampir.

Wassalam,
Kid.

2014/1/2 Melyana Silaban <melyana.2012@gmail.com>

>
>
> Ok, Mr.Kid, silahkan dicoba file terlampir ini & semoga bapak bisa
> menemukan solusi yang terbaik. Terima kasih sebelumnya.
>
> Wassalam,
> Mely
>
>
> 2014/1/1 Mr. Kid <mr.nmkid@gmail.com>
>
>>
>>
>> Boleh di share data yang kurang akurat tersebut.
>> Bisa jadi struktur perbandingannya sudah tidak sama dengan bentuk awal
>> kasus.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2014/1/1 Melyana Silaban <melyana.2012@gmail.com>
>>
>>>
>>>
>>> Terima kasih banyak atas penjelasan dari para master (Mr.Kid & Mr.HK).
>>> @Mr.Kid, sekarang saya mulai paham ternyata kolom tambahan tsb berfungsi
>>> sbg apa & pemanfaatan pivottable.
>>> @Mr.HK, akan saya coba explore sesuai advise yg diberikan(baik dari
>>> Mr.HK maupun masukan dari Mr.Kid untuk membuat looping thd cell pembanding
>>> atau meng-kombine seluruh kolom pembanding. Sepertinya saya prefer ke
>>> combine seluruh cell pembanding)
>>> Sekedar masukan seharian saya explore & sempat menemukan ntah apa
>>> istilahnya (apa benar istilahnya "bug"?) pada formula yg berikan oleh
>>> Mr.Kid (Opsi_formula 1). Yang mana formula tsb tidak bisa membedakan ketika
>>> kedua data ( Data 1 Vs Data 2) mempunyai kemiripan secara kode, yg mana
>>> menyebabkan hasilnya kurang akurat. Waktu itu saya coba dgn Data 1( X1~X10
>>> plus Y1~Y10 plus RX1~RX5) dan Data 2 (X6~X10 plus Y1~Y10 plus RX1~RX5).
>>> Hasil yg muncul " " (KOSONG), seharusnya X1~X5. Setelah saya ganti RX dgn
>>> RK, akhirnya muncul hasilnya X1~X5.
>>>
>>> Sekali lagi saya ucapkan terima kasih atas pencerahan yang diberikan
>>> para master, semoga ilmu ini terus bermanfaat sehingga pahala terus
>>> mengalir kepada para master.
>>>
>>> Wassalam,
>>> Mely
>>>
>>>
>>> 2014/1/1 Mr. Kid <mr.nmkid@gmail.com>
>>>
>>>
>>>>
>>>> Oh untuk kondisi data referensi lebih dari 1 cell, Pak Hendrik memilih
>>>> opsi kedua di email tentang opsi yang lalu, yaitu menggabungkan seluruh
>>>> teks referensi dan menyimpannya ke sebuah variabel.
>>>>
>>>> Variabel penyimpan teks gabungan referensi bernama sNames bertipe
>>>> string. Delimiternya karakter koma.
>>>> Misal data di kolom C mulai cell C1 dan rapat (tidak ada cell kosong
>>>> antara 2 nilai referensi). Kolom B dan kolom D kosong.
>>>> Penggabungan seluruh referensi dan menyimpannya ke variabel penyimpan
>>>> bernama sNames salah satu dari sekian banyak caranya antara lain bisa
>>>> berbunyi :
>>>> dim sNames as string
>>>> snames="," & LCase( Replace(Join( Application.Transpose(
>>>> *sheetreferensi*.range("c1").currentregion.value ) , "," ),", ",",") )
>>>> & ","
>>>>
>>>> 1. Penambahan karakter koma dalam ekspresi "," sebelum fungsi LCase
>>>> akan membuat referensi diawali karakter koma.
>>>> 2. fungsi LCase akan meng
>>>> 3. fungsi replace digunakan untuk mengganti karakter koma dan spasi menjadi
>>>> karakter koma saja.
>>>> 4. fungsi join akan menggabungkan array 1 dimensi menjadi sebuah teks
>>>> ber-delimiter tertentu (dalam hal ini adalah karakter koma).
>>>> karena range adalah object yang memiliki sebuah properti berupa array 2
>>>> dimensi, maka harus diubah lebih dulu menjadi array 1 dimensi dengan fungsi
>>>> bawaan Excel bernama Transpose yang dimiliki object Application. Pada data
>>>> disuatu range yang horisontal (1 baris Excel x banyak kolom Excel, maka
>>>> proses transpose dilakukan 2 kali.
>>>> 5. *sheetreferensi *bisa diganti dengan nama object module sheet di
>>>> VBP untuk sheet tersebut atau dengan bunyi
>>>> *Sheets("nama sheet pada tab sheet dalam workbook")*
>>>> 6. Penambahan karakter koma dalam ekspresi "," diakhir baris kode akan
>>>> membuat referensi diakhiri dengan karakter koma.
>>>>
>>>> Misal :
>>>> C1 berisi teks *Kolom2*
>>>> C2 berisi teks *SATU, DUA, TIGA*
>>>> C3 berisi teks *LIMA BELAS, TUJUH, DUA, DUA PULUH SATU*
>>>> maka sNames akan berisi :
>>>> ,*Kolom2*,*SATU,DUA,TIGA*,*LIMA BELAS,TUJUH,DUA,DUA PULUH SATU*,
>>>>
>>>> Pada bagian penggunaan Instr dalam proses loop yang berbunyi :
>>>>
>>>> If InStr(1, sNames, rng(i) & ", ") = 0 Then
>>>> diubah susunannya sebagai :
>>>> *IF Instr( snames , "," & lcase( rng(i).value ) & "," ) = 0 then *
>>>>
>>>> agar ketika nilai di rng(i) adalah teks berbunyi SATU benar-benar
>>>> dibandingkan dengan nilai dalam sNames dibagian bertuliskan SATU saja dan
>>>> bukan dibagian SATU yang ada di DUA PULUH SATU
>>>>
>>>> Wassalam,
>>>> Kid.
>>>>
>>>>
>>>>
>>>>
>>>> 2014/1/1 hendrik karnadi <hendrikkarnadi@yahoo.com>
>>>>
>>>>>
>>>>>
>>>>> Terima kasih Mr Kid atas masukannya.
>>>>>
>>>>> Hasil percobaan terakhir:
>>>>> Jika Ref nya terdiri dari 1 sel maka:
>>>>> sNames = Range("C2").Value & ", "
>>>>> diganti dengan
>>>>> sNames = Range("xx").Value & ", "
>>>>> dimana xx bisa berupa 1 sel lain, mis. C3, C4, dst.nya atau nama sel
>>>>> pada Worksheet (sel tsb harus diberi nama terlebih dahulu melalui
>>>>> Name Box atau Formula Name Manager).
>>>>>
>>>>> Jika Refnya lebih dari 1 sel (mis. C2 dan C3) maka penulisan codenya
>>>>> menjadi:
>>>>> sNames = Range("C2").Value & ", "
>>>>> diganti dengan
>>>>> sNames = Range("C2") & Range("C3").Value & ", "
>>>>> dengan syarat penulisan pada sel C2 nya diakhiri dengan tanda ", "
>>>>> (koma dan spasi tanpa apostrop), jika tidak maka data terakhir dianggap
>>>>> tidak ada (masuk dalam list).
>>>>>
>>>>> Silakan mencobanya.
>>>>>
>>>>> Salam,
>>>>> HK
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> On Wednesday, 1 January 2014, 1:07, Mr. Kid <mr.nmkid@gmail.com>
>>>>> wrote:
>>>>>
>>>>> Hai Mely,
>>>>>
>>>>> sorry, ternyata ada bagian yang belum terjawab ya, yaitu :
>>>>>
>>>>> *Kemudian soal kinerja excel menurun jika harus mengolah banyak data,
>>>>> gimana cara mensiasatinya agar kinerja excel tetap optimal, karena data yg
>>>>> akan diolah terkadang hampir 1000 baris (data1 dalam 1 kolom) & 500 baris
>>>>> (data2 yg ada koma & spasi) *
>>>>> imho,
>>>>> sheet opsi_pivottable bisa menjadi awalan yang mudah.
>>>>>
>>>>> Wassalam,
>>>>> Kid.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2013/12/31 Melyana Silaban <melyana.2012@gmail.com>
>>>>>
>>>>>
>>>>> Sekal lagi terima kasih banyak kepada para guru/master (Mr.Kid &
>>>>> Mr.HK).
>>>>>
>>>>> Kepada Mr.Kid, formula yg diberikan sangat luar biasa membantu.
>>>>> Hanya saja saya masih penasaran dgn kolom tambahan yg bapak berikan
>>>>> (kolom info 1 & 2). Kalau boleh dijelaskan, sebetulnya kolom tsb berfungsi
>>>>> sbg apa, sebab ketika saya coba men-delete-nya hasil formula tetap bisa
>>>>> bekerja dengan benar (tidak terpengaruh). Kemudian soal kinerja excel
>>>>> menurun jika harus mengolah banyak data, gimana cara mensiasatinya agar
>>>>> kinerja excel tetap optimal, karena data yg akan diolah terkadang hampir
>>>>> 1000 baris (data1 dalam 1 kolom) & 500 baris (data2 yg ada koma & spasi)
>>>>> Mohon pencerahannya, guru.
>>>>>
>>>>> Kepada Mr.HK, macro yg bapak berikan juga sangat luar biasa.
>>>>> Saya masih ada yg ingin tahu bagaimana cara menambahkan syntax untuk
>>>>> cell pembanding yg lokasinya berbeda dgn cell sebelumnya.Misal cell
>>>>> sebelumnya C2, jika ada data yg perlu dibandingkan lagi & berada di cell
>>>>> C3, C4, C5 dst. Gimana cara menambahkan syntaxnya, pak?
>>>>>
>>>>> Semoga amalan para guru mendapat balasan yg lebih besar dari
>>>>> Tuhan...aamiin
>>>>>
>>>>> Salam,
>>>>> Mely
>>>>>
>>>>>
>>>>> 2013/12/31 Mr. Kid <mr.nmkid@gmail.com>
>>>>>
>>>>>
>>>>> Hai Mely,
>>>>>
>>>>> File terlampir berusaha dengan formula (array formula<http://excel-mr-kid.blogspot.com/2011/03/array-formula-kenalan-yuuuk.html>).
>>>>> Juga ada contoh pemanfaatan beberapa fitur Excel seperti pivot table<http://excel-mr-kid.blogspot.com/2013/04/pivot-table-1-kenalan.html>
>>>>> .
>>>>>
>>>>> Wassalam,
>>>>> Kid.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2013/12/30 Melyana Silaban <melyana.2012@gmail.com>
>>>>>
>>>>>
>>>>> Para master & guru excel yang terhormat,
>>>>> Saya seorang siswi yang ingin belajar banyak soal excel.
>>>>> Terlampir ini adalah salah satu contoh persolan yg saya mohon bantuan
>>>>> kepada para master memberikan solusinya. Saya hendak membandingkan 2
>>>>> data & hasil
>>>>> yg diinginkan adalah hanya berbeda dari kedua data tsb. Selengkapnya
>>>>> spt dalam lampiran ini.
>>>>> Atas bantuannya saya sampaikan banyak terima kasih.
>>>>>
>>>>> wassalam,
>>>>> Mely
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (17) . Top ^

1b

Re: Fw: [belajar-excel] Membandingkan data pada 2 kolom & melihat ha

Thu Jan 2, 2014 5:11 pm (PST) . Posted by:

"Melyana Silaban"

Mr.Kid,
Terima kasih atas update filenya.

Wassalam,
Mely

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

>
>
> File terlampir.
>
> Wassalam,
> Kid.
>
>
>
> 2014/1/2 Melyana Silaban <melyana.2012@gmail.com>
>
>>
>>
>> Ok, Mr.Kid, silahkan dicoba file terlampir ini & semoga bapak bisa
>> menemukan solusi yang terbaik. Terima kasih sebelumnya.
>>
>> Wassalam,
>> Mely
>>
>>
>> 2014/1/1 Mr. Kid <mr.nmkid@gmail.com>
>>
>>>
>>>
>>> Boleh di share data yang kurang akurat tersebut.
>>> Bisa jadi struktur perbandingannya sudah tidak sama dengan bentuk awal
>>> kasus.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>> 2014/1/1 Melyana Silaban <melyana.2012@gmail.com>
>>>
>>>>
>>>>
>>>> Terima kasih banyak atas penjelasan dari para master (Mr.Kid & Mr.HK).
>>>> @Mr.Kid, sekarang saya mulai paham ternyata kolom tambahan tsb
>>>> berfungsi sbg apa & pemanfaatan pivottable.
>>>> @Mr.HK, akan saya coba explore sesuai advise yg diberikan(baik dari
>>>> Mr.HK maupun masukan dari Mr.Kid untuk membuat looping thd cell pembanding
>>>> atau meng-kombine seluruh kolom pembanding. Sepertinya saya prefer ke
>>>> combine seluruh cell pembanding)
>>>> Sekedar masukan seharian saya explore & sempat menemukan ntah apa
>>>> istilahnya (apa benar istilahnya "bug"?) pada formula yg berikan oleh
>>>> Mr.Kid (Opsi_formula 1). Yang mana formula tsb tidak bisa membedakan ketika
>>>> kedua data ( Data 1 Vs Data 2) mempunyai kemiripan secara kode, yg mana
>>>> menyebabkan hasilnya kurang akurat. Waktu itu saya coba dgn Data 1( X1~X10
>>>> plus Y1~Y10 plus RX1~RX5) dan Data 2 (X6~X10 plus Y1~Y10 plus RX1~RX5).
>>>> Hasil yg muncul " " (KOSONG), seharusnya X1~X5. Setelah saya ganti RX dgn
>>>> RK, akhirnya muncul hasilnya X1~X5.
>>>>
>>>> Sekali lagi saya ucapkan terima kasih atas pencerahan yang diberikan
>>>> para master, semoga ilmu ini terus bermanfaat sehingga pahala terus
>>>> mengalir kepada para master.
>>>>
>>>> Wassalam,
>>>> Mely
>>>>
>>>>
>>>> 2014/1/1 Mr. Kid <mr.nmkid@gmail.com>
>>>>
>>>>
>>>>>
>>>>> Oh untuk kondisi data referensi lebih dari 1 cell, Pak Hendrik memilih
>>>>> opsi kedua di email tentang opsi yang lalu, yaitu menggabungkan seluruh
>>>>> teks referensi dan menyimpannya ke sebuah variabel.
>>>>>
>>>>> Variabel penyimpan teks gabungan referensi bernama sNames bertipe
>>>>> string. Delimiternya karakter koma.
>>>>> Misal data di kolom C mulai cell C1 dan rapat (tidak ada cell kosong
>>>>> antara 2 nilai referensi). Kolom B dan kolom D kosong.
>>>>> Penggabungan seluruh referensi dan menyimpannya ke variabel penyimpan
>>>>> bernama sNames salah satu dari sekian banyak caranya antara lain bisa
>>>>> berbunyi :
>>>>> dim sNames as string
>>>>> snames="," & LCase( Replace(Join( Application.Transpose(
>>>>> *sheetreferensi*.range("c1").currentregion.value ) , "," ),", ",",")) & "
>>>>> ,"
>>>>>
>>>>> 1. Penambahan karakter koma dalam ekspresi "," sebelum fungsi LCase
>>>>> akan membuat referensi diawali karakter koma.
>>>>> 2. fungsi LCase akan meng
>>>>> 3. fungsi replace digunakan untuk mengganti karakter koma dan spasi menjadi
>>>>> karakter koma saja.
>>>>> 4. fungsi join akan menggabungkan array 1 dimensi menjadi sebuah teks
>>>>> ber-delimiter tertentu (dalam hal ini adalah karakter koma).
>>>>> karena range adalah object yang memiliki sebuah properti berupa array
>>>>> 2 dimensi, maka harus diubah lebih dulu menjadi array 1 dimensi dengan
>>>>> fungsi bawaan Excel bernama Transpose yang dimiliki object Application.
>>>>> Pada data disuatu range yang horisontal (1 baris Excel x banyak kolom
>>>>> Excel, maka proses transpose dilakukan 2 kali.
>>>>> 5. *sheetreferensi *bisa diganti dengan nama object module sheet di
>>>>> VBP untuk sheet tersebut atau dengan bunyi
>>>>> *Sheets("nama sheet pada tab sheet dalam workbook")*
>>>>> 6. Penambahan karakter koma dalam ekspresi "," diakhir baris kode
>>>>> akan membuat referensi diakhiri dengan karakter koma.
>>>>>
>>>>> Misal :
>>>>> C1 berisi teks *Kolom2*
>>>>> C2 berisi teks *SATU, DUA, TIGA*
>>>>> C3 berisi teks *LIMA BELAS, TUJUH, DUA, DUA PULUH SATU*
>>>>> maka sNames akan berisi :
>>>>> ,*Kolom2*,*SATU,DUA,TIGA*,*LIMA BELAS,TUJUH,DUA,DUA PULUH SATU*,
>>>>>
>>>>> Pada bagian penggunaan Instr dalam proses loop yang berbunyi :
>>>>>
>>>>> If InStr(1, sNames, rng(i) & ", ") = 0 Then
>>>>> diubah susunannya sebagai :
>>>>> *IF Instr( snames , "," & lcase( rng(i).value ) & "," ) = 0 then *
>>>>>
>>>>> agar ketika nilai di rng(i) adalah teks berbunyi SATU benar-benar
>>>>> dibandingkan dengan nilai dalam sNames dibagian bertuliskan SATU saja dan
>>>>> bukan dibagian SATU yang ada di DUA PULUH SATU
>>>>>
>>>>> Wassalam,
>>>>> Kid.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2014/1/1 hendrik karnadi <hendrikkarnadi@yahoo.com>
>>>>>
>>>>>>
>>>>>>
>>>>>> Terima kasih Mr Kid atas masukannya.
>>>>>>
>>>>>> Hasil percobaan terakhir:
>>>>>> Jika Ref nya terdiri dari 1 sel maka:
>>>>>> sNames = Range("C2").Value & ", "
>>>>>> diganti dengan
>>>>>> sNames = Range("xx").Value & ", "
>>>>>> dimana xx bisa berupa 1 sel lain, mis. C3, C4, dst.nya atau nama sel
>>>>>> pada Worksheet (sel tsb harus diberi nama terlebih dahulu melalui
>>>>>> Name Box atau Formula Name Manager).
>>>>>>
>>>>>> Jika Refnya lebih dari 1 sel (mis. C2 dan C3) maka penulisan codenya
>>>>>> menjadi:
>>>>>> sNames = Range("C2").Value & ", "
>>>>>> diganti dengan
>>>>>> sNames = Range("C2") & Range("C3").Value & ", "
>>>>>> dengan syarat penulisan pada sel C2 nya diakhiri dengan tanda ", "
>>>>>> (koma dan spasi tanpa apostrop), jika tidak maka data terakhir dianggap
>>>>>> tidak ada (masuk dalam list).
>>>>>>
>>>>>> Silakan mencobanya.
>>>>>>
>>>>>> Salam,
>>>>>> HK
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> On Wednesday, 1 January 2014, 1:07, Mr. Kid <mr.nmkid@gmail.com>
>>>>>> wrote:
>>>>>>
>>>>>> Hai Mely,
>>>>>>
>>>>>> sorry, ternyata ada bagian yang belum terjawab ya, yaitu :
>>>>>>
>>>>>> *Kemudian soal kinerja excel menurun jika harus mengolah banyak data,
>>>>>> gimana cara mensiasatinya agar kinerja excel tetap optimal, karena data yg
>>>>>> akan diolah terkadang hampir 1000 baris (data1 dalam 1 kolom) & 500 baris
>>>>>> (data2 yg ada koma & spasi) *
>>>>>> imho,
>>>>>> sheet opsi_pivottable bisa menjadi awalan yang mudah.
>>>>>>
>>>>>> Wassalam,
>>>>>> Kid.
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> 2013/12/31 Melyana Silaban <melyana.2012@gmail.com>
>>>>>>
>>>>>>
>>>>>> Sekal lagi terima kasih banyak kepada para guru/master (Mr.Kid &
>>>>>> Mr.HK).
>>>>>>
>>>>>> Kepada Mr.Kid, formula yg diberikan sangat luar biasa membantu.
>>>>>> Hanya saja saya masih penasaran dgn kolom tambahan yg bapak berikan
>>>>>> (kolom info 1 & 2). Kalau boleh dijelaskan, sebetulnya kolom tsb berfungsi
>>>>>> sbg apa, sebab ketika saya coba men-delete-nya hasil formula tetap bisa
>>>>>> bekerja dengan benar (tidak terpengaruh). Kemudian soal kinerja excel
>>>>>> menurun jika harus mengolah banyak data, gimana cara mensiasatinya agar
>>>>>> kinerja excel tetap optimal, karena data yg akan diolah terkadang hampir
>>>>>> 1000 baris (data1 dalam 1 kolom) & 500 baris (data2 yg ada koma & spasi)
>>>>>> Mohon pencerahannya, guru.
>>>>>>
>>>>>> Kepada Mr.HK, macro yg bapak berikan juga sangat luar biasa.
>>>>>> Saya masih ada yg ingin tahu bagaimana cara menambahkan syntax untuk
>>>>>> cell pembanding yg lokasinya berbeda dgn cell sebelumnya.Misal cell
>>>>>> sebelumnya C2, jika ada data yg perlu dibandingkan lagi & berada di cell
>>>>>> C3, C4, C5 dst. Gimana cara menambahkan syntaxnya, pak?
>>>>>>
>>>>>> Semoga amalan para guru mendapat balasan yg lebih besar dari
>>>>>> Tuhan...aamiin
>>>>>>
>>>>>> Salam,
>>>>>> Mely
>>>>>>
>>>>>>
>>>>>> 2013/12/31 Mr. Kid <mr.nmkid@gmail.com>
>>>>>>
>>>>>>
>>>>>> Hai Mely,
>>>>>>
>>>>>> File terlampir berusaha dengan formula (array formula<http://excel-mr-kid.blogspot.com/2011/03/array-formula-kenalan-yuuuk.html>).
>>>>>> Juga ada contoh pemanfaatan beberapa fitur Excel seperti pivot table<http://excel-mr-kid.blogspot.com/2013/04/pivot-table-1-kenalan.html>
>>>>>> .
>>>>>>
>>>>>> Wassalam,
>>>>>> Kid.
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> 2013/12/30 Melyana Silaban <melyana.2012@gmail.com>
>>>>>>
>>>>>>
>>>>>> Para master & guru excel yang terhormat,
>>>>>> Saya seorang siswi yang ingin belajar banyak soal excel.
>>>>>> Terlampir ini adalah salah satu contoh persolan yg saya mohon bantuan
>>>>>> kepada para master memberikan solusinya. Saya hendak membandingkan 2
>>>>>> data & hasil
>>>>>> yg diinginkan adalah hanya berbeda dari kedua data tsb. Selengkapnya
>>>>>> spt dalam lampiran ini.
>>>>>> Atas bantuannya saya sampaikan banyak terima kasih.
>>>>>>
>>>>>> wassalam,
>>>>>> Mely
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (17) . Top ^

1c

Re: Fw: [belajar-excel] Membandingkan data pada 2 kolom & melihat ha

Thu Jan 2, 2014 5:24 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Mely,
Sdh coba update pake macronya Mr. Kid ?
Kl sdh, boleh dong dishare.

Salam,
HK

On Friday, 3 January 2014, 8:11, Melyana Silaban <melyana.2012@gmail.com> wrote:

 
Mr.Kid,
Terima kasih atas update filenya.

Wassalam,
Mely

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

> 
>File terlampir.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2014/1/2 Melyana Silaban <melyana.2012@gmail.com>
>
>
>> 
>>Ok, Mr.Kid, silahkan dicoba file terlampir ini & semoga bapak bisa menemukan solusi yang terbaik. Terima kasih sebelumnya.
>>
>>
>>Wassalam,
>>Mely
>>
>>
>>
>>2014/1/1 Mr. Kid <mr.nmkid@gmail.com>
>>
>>
>>> 
>>>Boleh di share data yang kurang akurat tersebut.
>>>Bisa jadi struktur perbandingannya sudah tidak sama dengan bentuk awal kasus.
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>
>>>
>>>
>>>2014/1/1 Melyana Silaban <melyana.2012@gmail.com>
>>>
>>>
>>>> 
>>>>Terima kasih banyak atas penjelasan dari para master (Mr.Kid & Mr.HK).
>>>>@Mr.Kid, sekarang saya mulai paham ternyata kolom tambahan tsb berfungsi sbg apa & pemanfaatan pivottable.
>>>>@Mr.HK, akan saya coba explore sesuai advise yg diberikan(baik dari Mr.HK maupun masukan dari Mr.Kid untuk membuat looping thd cell pembanding atau meng-kombine seluruh kolom pembanding. Sepertinya saya prefer ke combine seluruh cell pembanding)
>>>>Sekedar masukan seharian saya explore & sempat menemukan ntah apa istilahnya (apa benar istilahnya "bug"?) pada formula yg berikan oleh Mr.Kid (Opsi_formula 1). Yang mana formula tsb tidak bisa membedakan ketika kedua data ( Data 1 Vs Data 2) mempunyai kemiripan secara kode, yg mana menyebabkan hasilnya kurang akurat. Waktu itu saya coba dgn Data 1( X1~X10 plus Y1~Y10 plus RX1~RX5) dan Data 2 (X6~X10 plus Y1~Y10 plus RX1~RX5). Hasil yg muncul " " (KOSONG), seharusnya X1~X5. Setelah saya ganti RX dgn RK, akhirnya muncul hasilnya X1~X5.
>>>>
>>>>
>>>>Sekali lagi saya ucapkan terima kasih atas pencerahan yang diberikan para master, semoga ilmu ini terus bermanfaat sehingga pahala terus mengalir kepada para master.
>>>>
>>>>
>>>>Wassalam,
>>>>Mely
>>>>
>>>>
>>>>
>>>>2014/1/1 Mr. Kid <mr.nmkid@gmail.com>
>>>>
>>>>
>>>>
>>>>> 
>>>>>Oh untuk kondisi data referensi lebih dari 1 cell, Pak Hendrik memilih opsi kedua di email tentang opsi yang lalu, yaitu menggabungkan seluruh teks referensi dan menyimpannya ke sebuah variabel.
>>>>>
>>>>>Variabel penyimpan teks gabungan referensi bernama sNames bertipe string. Delimiternya karakter koma.
>>>>>Misal data di kolom C mulai cell C1 dan rapat (tidak ada cell kosong antara 2 nilai referensi). Kolom B dan kolom D kosong.
>>>>>Penggabungan seluruh referensi dan menyimpannya ke variabel penyimpan bernama sNames salah satu dari sekian banyak caranya antara lain bisa berbunyi :
>>>>>dim sNames as string
>>>>>snames="," & LCase(Replace(Join( Application.Transpose( sheetreferensi.range("c1").currentregion.value ) , "," ),", ",",") ) & ","
>>>>>
>>>>>
>>>>>
>>>>>1. Penambahan karakter koma dalam ekspresi "," sebelum fungsi LCase akan membuat referensi diawali karakter koma.
>>>>>
>>>>>2. fungsi LCase akan meng
>>>>>
>>>>>3. fungsi replace digunakan untuk mengganti karakter koma dan spasi menjadi karakter koma saja.
>>>>>
>>>>>4. fungsi join akan menggabungkan array 1 dimensi menjadi sebuah teks ber-delimiter tertentu (dalam hal ini adalah karakter koma).
>>>>>
>>>>>karena range adalah object yang memiliki sebuah properti berupa array 2 dimensi, maka harus diubah lebih dulu menjadi array 1 dimensi dengan fungsi bawaan Excel bernama Transpose yang dimiliki object Application. Pada data disuatu range yang horisontal (1 baris Excel x banyak kolom Excel, maka proses transpose dilakukan 2 kali.
>>>>>
>>>>>5. sheetreferensi bisa diganti dengan nama object module sheet di VBP untuk sheet tersebut atau dengan bunyi
>>>>>        Sheets("nama sheet pada tab sheet dalam workbook")
>>>>>
>>>>>6. Penambahan karakter koma dalam ekspresi "," diakhir baris kode akan membuat referensi diakhiri dengan karakter koma.
>>>>>
>>>>>
>>>>>Misal :
>>>>>C1 berisi teks Kolom2
>>>>>
>>>>>C2 berisi teks SATU, DUA, TIGA
>>>>>
>>>>>C3 berisi teks LIMA BELAS, TUJUH, DUA, DUA PULUH SATU
>>>>>
>>>>>maka sNames akan berisi :
>>>>>
>>>>>,Kolom2,SATU,DUA,TIGA,LIMA BELAS,TUJUH,DUA,DUA PULUH SATU,
>>>>>
>>>>>
>>>>>
>>>>>Pada bagian penggunaan Instr dalam proses loop yang berbunyi :
>>>>>
>>>>>   If InStr(1, sNames, rng(i) & ", ") = 0 Then
>>>>>
diubah susunannya sebagai :
>>>>>
>>>>>   IF Instr( snames , "," & lcase( rng(i).value ) & "," ) = 0 then
>>>>>
>>>>>
>>>>>
>>>>>agar ketika nilai di rng(i) adalah teks berbunyi SATU benar-benar dibandingkan dengan nilai dalam sNames dibagian bertuliskan SATU saja dan bukan dibagian SATU yang ada di DUA PULUH SATU
>>>>>
>>>>>
>>>>>
>>>>>Wassalam,
>>>>>
>>>>>Kid.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>2014/1/1 hendrik karnadi <hendrikkarnadi@yahoo.com>
>>>>>
>>>>>
>>>>>> 
>>>>>>Terima kasih Mr Kid atas masukannya.
>>>>>>
>>>>>>
>>>>>>Hasil percobaan terakhir:
>>>>>>Jika Ref nya terdiri dari 1 sel maka:
>>>>>>
>>>>>>sNames = Range("C2").Value & ", "
>>>>>>
>>>>>>diganti dengan
>>>>>>sNames = Range("xx").Value & ", "
>>>>>>
>>>>>>dimana xx bisa berupa 1 sel lain, mis. C3, C4, dst.nya atau nama sel pada Worksheet(sel tsb harus diberi nama terlebih dahulu melalui Name Box atau Formula Name Manager).
>>>>>>
>>>>>>
>>>>>>Jika Refnya lebih dari 1 sel (mis. C2 dan C3) maka penulisan codenya menjadi:
>>>>>>sNames =Range("C2").Value & ", "
>>>>>>
>>>>>>diganti dengan
>>>>>>sNames = Range("C2") & Range("C3").Value & ", "
>>>>>>dengan syarat penulisan pada sel C2 nya diakhiri dengan tanda ", " (koma dan spasi tanpa apostrop), jika tidak maka data terakhir dianggap tidak ada (masuk dalam list).
>>>>>>
>>>>>>
>>>>>>Silakan mencobanya.
>>>>>>
>>>>>>
>>>>>>Salam,
>>>>>>HK
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>On Wednesday, 1 January 2014, 1:07, Mr. Kid <mr.nmkid@gmail.com> wrote:
>>>>>>
>>>>>> 
>>>>>>Hai Mely,
>>>>>>
>>>>>>sorry, ternyata ada bagian yang belum terjawab ya, yaitu :
>>>>>>Kemudian soal kinerja excel menurun jika harus mengolah banyak data,
gimana cara mensiasatinya agar kinerja excel tetap optimal, karena data
yg akan diolah terkadang hampir 1000 baris (data1 dalam 1 kolom) &
500 baris (data2 yg ada koma & spasi)
>>>>>>
>>>>>>imho,
>>>>>>sheet opsi_pivottable bisa menjadi awalan yang mudah.
>>>>>>
>>>>>>Wassalam,
>>>>>>Kid.
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>2013/12/31 Melyana Silaban <melyana.2012@gmail.com>
>>>>>>
>>>>>>
>>>>>>> 
>>>>>>>Sekal lagi terima kasih banyak kepada para guru/master (Mr.Kid & Mr.HK).
>>>>>>>
>>>>>>>Kepada Mr.Kid, formula yg diberikan sangat luar biasa membantu.
>>>>>>>Hanya saja saya masih penasaran dgn kolom tambahan yg bapak berikan (kolom info 1 & 2). Kalau boleh dijelaskan, sebetulnya kolom tsb berfungsi sbg apa, sebab ketika saya coba men-delete-nya hasil formula tetap bisa bekerja dengan benar (tidak terpengaruh). Kemudian soal kinerja excel menurun jika harus mengolah banyak data, gimana cara mensiasatinya agar kinerja excel tetap optimal, karena data yg akan diolah terkadang hampir 1000 baris (data1 dalam 1
kolom) & 500 baris (data2 yg ada koma & spasi)
>>>>>>>Mohon pencerahannya, guru.
>>>>>>>
>>>>>>>Kepada Mr.HK, macro yg bapak berikan juga sangat luar biasa.
>>>>>>>Saya masih ada yg ingin tahu bagaimana cara menambahkan syntax untuk cell pembanding yg lokasinya berbeda dgn cell sebelumnya.Misal cell sebelumnya C2, jika ada data yg perlu dibandingkan lagi & berada di cell C3, C4, C5 dst. Gimana cara menambahkan syntaxnya, pak?
>>>>>>>
>>>>>>>Semoga amalan para guru mendapat balasan yg lebih besar dari Tuhan...aamiin
>>>>>>>
>>>>>>>Salam,
>>>>>>>Mely
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>2013/12/31 Mr. Kid <mr.nmkid@gmail.com>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>> 
>>>>>>>>Hai Mely,
>>>>>>>>
>>>>>>>>File terlampir berusaha dengan formula (array formula). Juga ada contoh pemanfaatan beberapa fitur Excel seperti pivot table.
>>>>>>>>
>>>>>>>>
>>>>>>>>Wassalam,
>>>>>>>>Kid.
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>2013/12/30 Melyana Silaban <melyana.2012@gmail.com>
>>>>>>>>
>>>>>>>>
>>>>>>>>> 
>>>>>>>>>Para master & guru excel yang terhormat,
>>>>>>>>>Saya seorang siswi yang ingin belajar banyak soal excel.
>>>>>>>>>Terlampir ini adalah salah satu contoh persolan yg saya mohon bantuan
>>>>>>>>>kepada para master memberikan solusinya. Saya hendak membandingkan 2
>>>>>>>>>data & hasil
>>>>>>>>>yg diinginkan adalah hanya berbeda dari kedua data tsb. Selengkapnya
>>>>>>>>>spt dalam lampiran ini.
>>>>>>>>>Atas bantuannya saya sampaikan banyak terima kasih.
>>>>>>>>>
>>>>>>>>>wassalam,
>>>>>>>>>Mely
>>>>>>>>>
>>>>>>>>
>>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (17) . Top ^

2a

Re: Meringkas data [1 Attachment]

Thu Jan 2, 2014 2:29 pm (PST) . Posted by:

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

Nambahin dikit ya miss Jan,

Untuk penggunaan pivot table yang difilter dan hasil filter harus dinamis
mengikuti data, maka sebaiknya field yang difilter diletakkan dibagian Row
Field atau Column Field. Kemudian lakukan filter terhadap field tersebut.

Khusus untuk kolom data yang difilter adalah yang dimasukkan ke dalam area
values, maka memungkinkan juga untuk melakukan value filter.

Wassalam,
Kid.

2014/1/2 Jan Raisin <miss.jan.raisin@gmail.com>

>
>
> Hai Nunuk..
>
> coba lihat solusi pada file terlampir..
> beberapa cara dari banyak cara yang mungkin untuk solusi kasus yang anda
> tanyakan
>
> Salam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 2 Januari 2014 13.27, Nunuk Y Saptaningtyas <enyees@gmail.com>menulis:
>
>>
>>
>> Mohon bantuannya para master excel, meringkas data seperti dibawah ini,
>> saya harus pakai rumus apa ?
>>
>>
>> *DATA PEMBAYARAN*
>>
>>
>> *Data Awal*
>>
>> *NO*
>>
>> *NAMA*
>>
>> *UANG*
>>
>> 1
>>
>> AGUS
>>
>> 550
>>
>> 2
>>
>> BUDI
>>
>>
>>
>> 3
>>
>> CHARLIE
>>
>> 314
>>
>> 4
>>
>> DEDI
>>
>>
>>
>> 5
>>
>> FERDI
>>
>>
>>
>> 6
>>
>> GANDI
>>
>> 430
>>
>> 7
>>
>> HADI
>>
>>
>>
>> 8
>>
>> ILMAN
>>
>>
>>
>> 9
>>
>> JONI
>>
>> 650
>>
>> 10
>>
>> KATON
>>
>> 475
>>
>>
>>
>> *Menjadi seperti ini :*
>>
>> *NO*
>>
>> *NAMA*
>>
>> *UANG*
>>
>> 1
>>
>> AGUS
>>
>> 550
>>
>> 2
>>
>> CHARLIE
>>
>> 314
>>
>> 3
>>
>> GANDI
>>
>> 430
>>
>> 4
>>
>> JONI
>>
>> 650
>>
>> 5
>>
>> KATON
>>
>> 475
>>
>>
>> Terimakasih atas bantuannya.
>>
>> --
>> Regards,
>>
>> Nunuk Yuliani Saptaningtyas
>>
>> ***** Mods ******
>> link dihapus dari email
>> Peraturan milis Belajar Excel point B.6
>> Menyertakan link yang merujuk kepada halaman yang berisi iklan produk /
>> informasi yang tidak berhubungan dengan Excel / pertanyaan.
>> *******************
>>
>>
>>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

3a

Re: Copy berulang dari column ke row [1 Attachment]

Thu Jan 2, 2014 3:17 pm (PST) . Posted by:

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

Oh oke,

sambil menunggu yang suka VBA, mungkin script berikut bisa menjadi
alternatif.

Asumsi :
1. header data di sheet bernama (nama di tab sheet) Data Radio baris 1,
mulai di cell A1
2. cell yang diambil selalu di kolom yang telah ditentukan
>
Range("P1,S1,T1,U1,W1,X1,Y1,Z1,AC1,AG1,AH1,AI1,AJ1,AK1,AL1,AM1,AO1,AQ1";)
3. tidak ada baris kosong di antara 2 record pada tabel sumber data
4. header hasil di sheet bernama (nama di tab sheet) sheet1 baris 12 (1
baris sebelum record pertama hasil) mulai kolom A
5. strukturnya tetap, yaitu :
> kolom A adalah nomor urut,
> kolom B (1 kolom setelah kolom A) berisi 3 nilai data di 3 baris
berbeda yang urutannya sama dengan disumber data,
> kolom G (6 kolom setelah kolom A) berisi nilai data dari sumber
data di kolom tertentu sebanyak 18 baris yang urutannya sama dengan di
sumber data yang ditentukan

pada sebuah prosedur sub :

dim rngHeadRadio as range, rngHeadType as range, rngHasil as range
dim lNo as long

application.screenupdating=false
set rngHeadRadio=sheets("data radio").range("b1:d1") 'masih ingat
materi belajar VBA di blog milis tentang range ?
set rngHeadType=sheets("data
radio").range("p1,s1:u1,w1:z1,ac1,ag1:am1,ao1,aq1")
set rngHasil=sheets("sheet1&quot;).range("a12")

if rngheadradio.currentregion.rows.count<2 then
exit sub
endif

'masih ingat materi Belajar VBA tentang loop For...Next di blog milis ?
for lNo=1 to rngheadradio.currentregion.rows.count - 1
with rnghasil.offset( (lno-1)*18+1 ) 'ke baris penulisan di kolom
A sheet hasil

.value=lno 'tulis nomor urut

'copy data radio dari sumber dan paste values ditranspose
dilokasi penulisan pada kolom B (1 kolom dikanan kolom A hasil)
rngheadradio.offset( lno ).copy
.offset( 0,1 ).pastespecial xlpastevalues, transpose:=true

'copy data type dari sumber dan paste values ditranspose
dilokasi penulisan pada kolom G (6 kolom dikanan kolom A hasil)
rngheadtype.offset( lno ).copy
.offset( 0,6).pastespecial xlpastevalues, transpose:=true

end with
next lNo

application.screenupdating=true
msgbox "Done.",vbinformation

Wassalam,
Kid.

2014/1/2 Dedi Komarudin <dedikom81@yahoo.co.id>

>
>
> Terima kasih atas tanggapannya Mr. Kid mohon maaf jika penjelasan saya
> malah membingungkan.
>
> Maksudnya adalah saya ingin mengulang perintah di kolom G2 yang dimulai
> dari
> ( Aneka Rama) dengan merubah deret kolom menjadi deret baris seperti pada
> Sheet ("Data radio")
> Range("P1,S1,T1,U1,W1,X1,Y1,Z1,AC1,AG1,AH1,AI1,AJ1,AK1,AL1,AM1,AO1,AQ1";)
> menjadi Deret baris di Sheet 1 ( Colom C 13 dibawah Type Ad)
>
>
> begitu juga dengan harganya
> Range("P2,S2,T2,U2,W2,X2,Y2,Z2,AC2,AG2,AH2,AI2,AJ2,AK2,AL2,AM2,AO2,AQ2";)
> di sheet Data radio yang di tempatkan di (Colom G 13 di bawah Once Air
> Time ) sheet1
>
> perintah diatas akan berulang dengan memulai lagi di cell G3 ( B Radio )begitu selesai makan akan mengulang lagi di
> G4 seterusnya dan seterusnya sampai pada colom terakhir yaitu (Besakih
> Rasisonia d/h Swib)
>
> mohon maaf jika penjelasan saya kurang mengena.
> untuk lebih jelasnya saya lampirkan file kemarin dengan penambahan di
> sheet1.
> Sheet1 adalah sheet yang diharapkan.
>
> Atas segala tanggapan dan bantuannya saya ucapkan terima kasih.
>
>
> Salam
> Dedi Komarudin
>
>
>
>
>
>
>
>
>
>
>
>
>
> Pada Selasa, 31 Desember 2013 18:04, Mr. Kid <mr.nmkid@gmail.com>
> menulis:
>
> Hai Dedi,
>
> Salam kenal juga.
> Terus terang, saya ndak paham maksud kasusnya.
>
> Bagaimana jika dijelaskan lebih rinci termasuk step by step pengerjaan
> manualnya, misal data dari mana dibeginikan supaya jadi begitu.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
> 2013/12/28 Dedi Komarudin <dedikom81@yahoo.co.id>
>
>
> Dear BeExcellers,
> Salam Perkenalan
>
> Saya sedang mengerjakan pekerjaan rutin namun saya kebingungan untuk
> mengulang perintah yang sebelumnya saya record Macro .
>
> Dimulai di cell G2 = " Aneka rama" sampai dengan selesai.
> saya ingin memulainya lagi dari G3 =" B radio" sampai dengan selesai yang
> di tempatkan di A 31 dan sterusnya.
> File saya lampirkan
>
> Sheet Data Radio = Data sumber
> Sheet1 = data yang diharapkan
>
> Segala bantuannya saya ucapkan terima kasih
>
>
>
> Salam
> Dedi Komarudin
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (6) . Top ^

3b

Re: Copy berulang dari column ke row

Thu Jan 2, 2014 10:15 pm (PST) . Posted by:

"rian" ryan_ahoy

Om Kid,

Kalau solusinya bukan VB gmn? Saya masih belajar Excel jadi belum paham bagaimana menggunakan VB. 

Terima kasih

Regards
Rian

On Friday, January 3, 2014 6:18 AM, Mr. Kid <mr.nmkid@gmail.com> wrote:

 
Oh oke,

sambil menunggu yang suka VBA, mungkin script berikut bisa menjadi alternatif.

Asumsi :
1. header data di sheet bernama (nama di tab sheet) Data Radio baris 1, mulai di cell A1
2. cell yang diambil selalu di kolom yang telah ditentukan
       > Range("P1,S1,T1,U1,W1,X1,Y1,Z1,AC1,AG1,AH1,AI1,AJ1,AK1,AL1,AM1,AO1,AQ1";)
3. tidak ada baris kosong di antara 2 record pada tabel sumber data

4. header hasil di sheet bernama (nama di tab sheet) sheet1 baris 12 (1 baris sebelum record pertama hasil) mulai kolom A
5. strukturnya tetap, yaitu :
      > kolom A adalah nomor urut,
      > kolom B (1 kolom setelah kolom A) berisi 3 nilai data di 3 baris berbeda yang urutannya sama dengan disumber data,

      > kolom G (6 kolom setelah kolom A) berisi nilai data dari sumber data di kolom tertentu sebanyak 18 baris yang urutannya sama dengan di sumber data yang ditentukan

pada sebuah prosedur sub :

dim rngHeadRadio as range, rngHeadType as range, rngHasil as range

dim lNo as long

application.screenupdating=false

set rngHeadRadio=sheets("data radio").range("b1:d1")        'masih ingat materi belajar VBA di blog milis tentang range ?

set rngHeadType=sheets("data radio").range("p1,s1:u1,w1:z1,ac1,ag1:am1,ao1,aq1")

set rngHasil=sheets("sheet1&quot;).range("a12")

if rngheadradio.currentregion.rows.count<2 then

     exit sub

endif
 

'masih ingat materi Belajar VBA tentang loop For...Next di blog milis ?

for lNo=1 to rngheadradio.currentregion.rows.count - 1

      with rnghasil.offset( (lno-1)*18+1 )    'ke baris penulisan di kolom A sheet hasil

             .value=lno   'tulis nomor urut
            

            'copy data radio dari sumber dan paste values ditranspose dilokasi penulisan pada kolom B (1 kolom dikanan kolom A hasil)

            rngheadradio.offset( lno ).copy

            .offset( 0,1 ).pastespecial xlpastevalues, transpose:=true

            'copy data type dari sumber dan paste values ditranspose dilokasi penulisan pada kolom G (6 kolom dikanan kolom A hasil)

            rngheadtype.offset( lno ).copy

            .offset( 0,6).pastespecial xlpastevalues, transpose:=true

      end with

next lNo

application.screenupdating=true

msgbox "Done.",vbinformation

Wassalam,

Kid.

2014/1/2 Dedi Komarudin <dedikom81@yahoo.co.id>

> 
>Terima kasih atas tanggapannya Mr. Kid mohon maaf jika penjelasan saya malah membingungkan.
>
>Maksudnya adalah saya ingin mengulang perintah di kolom G2 yang dimulai dari
>( Aneka Rama) dengan merubah deret kolom menjadi deret baris seperti pada Sheet ("Data radio") Range("P1,S1,T1,U1,W1,X1,Y1,Z1,AC1,AG1,AH1,AI1,AJ1,AK1,AL1,AM1,AO1,AQ1";) menjadi Deret baris di Sheet 1 ( Colom C 13  dibawah Type Ad)
>
>
>begitu juga dengan harganya Range("P2,S2,T2,U2,W2,X2,Y2,Z2,AC2,AG2,AH2,AI2,AJ2,AK2,AL2,AM2,AO2,AQ2";)  di sheet Data radio yang di tempatkan di (Colom G 13 di bawah Once Air Time ) sheet1
>
>perintah diatas akan berulang dengan memulai lagi di cell G3 ( B Radio ) begitu selesai makan akan mengulang lagi di G4 seterusnya dan seterusnya  sampai pada colom terakhir yaitu (Besakih Rasisonia d/h Swib)
>
>mohon maaf jika penjelasan saya kurang mengena.
>untuk lebih jelasnya saya lampirkan file kemarin dengan penambahan di sheet1.
>Sheet1 adalah sheet yang diharapkan.
>
>Atas segala tanggapan dan bantuannya saya ucapkan terima kasih.
>
>
>Salam
>Dedi Komarudin
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>Pada Selasa, 31 Desember 2013 18:04, Mr. Kid <mr.nmkid@gmail.com> menulis:
>
> 
>Hai Dedi,
>
>Salam kenal juga.
>
>Terus terang, saya ndak paham maksud kasusnya.
>
>
>Bagaimana jika dijelaskan lebih rinci termasuk step by step pengerjaan manualnya, misal data dari mana dibeginikan supaya jadi begitu.
>
>
>Wassalam,
>
>Kid.
>
>
>
>
>
>
>
>
>
>
>
>
>
>2013/12/28 Dedi Komarudin <dedikom81@yahoo.co.id>
>
>
>> 
>>Dear BeExcellers,
>>Salam Perkenalan
>>
>>
>>
>>Saya sedang mengerjakan pekerjaan rutin namun saya kebingungan untuk mengulang perintah yang sebelumnya saya record Macro .
>>
>>
>>
>>Dimulai di cell G2 = " Aneka rama" sampai dengan selesai.
>>saya ingin memulainya lagi dari G3 =" B radio" sampai dengan selesai yang di tempatkan di A 31 dan sterusnya.
>>File saya lampirkan
>>
>>
>>Sheet Data Radio = Data sumber
>>Sheet1 = data yang diharapkan
>>
>>
>>
>>Segala bantuannya saya ucapkan terima kasih
>>
>>
>>
>>
>>
>>
>>
>>Salam
>>
>>Dedi Komarudin
>>
>>
>>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (6) . Top ^

4a

menghitung JPK

Thu Jan 2, 2014 6:55 pm (PST) . Posted by:

jalanmawar2_blok3

to, Para Master Excel

mohon bantuannya, untuk menghitung JPK, dengan keriteria
JIKA STATUS LAJANG : TOTAL GAJI /3%, APABILA GAJI DI ATAS 4725000, JPK NYA : 141.500,- JIKA STATUS KELUARGA : TOTAL GAJI /6%, APABILA GAJI DI ATAS 4725000, JPK NYA : 283500,-

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

4b

Re: menghitung JPK [1 Attachment]

Thu Jan 2, 2014 7:25 pm (PST) . Posted by:

"Jan Raisin"

Hai.. (aduh.. susah bener nyebut namanya..)

oke deh Dora the Explorer..
karena alamat emailnya kayak nama jalan.. yang pertama terlintas di pikiran
Jan adalah slogan si Dora
"aku peta.. aku peta.. "
xixixi ^_^

coba solusi pada file terlampir..
mungkin nanti akan ada BeExceller yang bisa membantu memendekkan formula
yang ada..

Salam,

-Miss Jan Raisin-

2014/1/3 <jalanmawar2_blok3@yahoo.com>

>
>
> to, Para Master Excel
>
> mohon bantuannya, untuk menghitung JPK, dengan keriteria
> JIKA STATUS LAJANG : TOTAL GAJI /3%, APABILA GAJI DI ATAS 4725000, JPK
> NYA : 141.500,- JIKA STATUS KELUARGA : TOTAL GAJI /6%, APABILA GAJI DI
> ATAS 4725000, JPK NYA : 283500,-
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

4c

Re: menghitung JPK [1 Attachment]

Thu Jan 2, 2014 7:30 pm (PST) . Posted by:

"Jan Raisin"

ups..

sedikit koreksi di tabel referensi..
nilai maksimum untuk Keluarga adalah *2*83.500 bukan *1*83.500

maaf.. thypo..

Salam,

-Miss Jan Raisin-

Pada 3 Januari 2014 10.25, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

> Hai.. (aduh.. susah bener nyebut namanya..)
>
> oke deh Dora the Explorer..
> karena alamat emailnya kayak nama jalan.. yang pertama terlintas di
> pikiran Jan adalah slogan si Dora
> "aku peta.. aku peta.. "
> xixixi ^_^
>
> coba solusi pada file terlampir..
> mungkin nanti akan ada BeExceller yang bisa membantu memendekkan formula
> yang ada..
>
> Salam,
>
> -Miss Jan Raisin-
>
>
>
> 2014/1/3 <jalanmawar2_blok3@yahoo.com>
>
>
>>
>> to, Para Master Excel
>>
>> mohon bantuannya, untuk menghitung JPK, dengan keriteria
>> JIKA STATUS LAJANG : TOTAL GAJI /3%, APABILA GAJI DI ATAS 4725000, JPK
>> NYA : 141.500,- JIKA STATUS KELUARGA : TOTAL GAJI /6%, APABILA GAJI DI
>> ATAS 4725000, JPK NYA : 283500,-
>>
>>
>>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

4d

Re: menghitung JPK [1 Attachment]

Thu Jan 2, 2014 8:51 pm (PST) . Posted by:

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

Hai Mawar,

File terlampir menggunakan tabel referensi, fungsi vLookUp dan fungsi Min.

Wassalam,
Kid.

2014/1/3 <jalanmawar2_blok3@yahoo.com>

>
>
> to, Para Master Excel
>
> mohon bantuannya, untuk menghitung JPK, dengan keriteria
> JIKA STATUS LAJANG : TOTAL GAJI /3%, APABILA GAJI DI ATAS 4725000, JPK
> NYA : 141.500,- JIKA STATUS KELUARGA : TOTAL GAJI /6%, APABILA GAJI DI
> ATAS 4725000, JPK NYA : 283500,-
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

4e

Re: menghitung JPK

Thu Jan 2, 2014 10:15 pm (PST) . Posted by:

"Lukman Setiawan" jalanmawar2_blok3

to, para master XL,

Terima Kasih banyak atas bantuannya.. sesuai yang di harapkan,
terutama untuk : Mr Kid, Dan Miss Jan Raisin,

Best regard

Lukman Setiawan

On Friday, January 3, 2014 10:30 AM, Jan Raisin <miss.jan.raisin@gmail.com> wrote:

 
ups.. 

sedikit koreksi di tabel referensi.. 
nilai maksimum untuk Keluarga adalah 283.500 bukan 183.500

maaf.. thypo..

Salam,

-Miss Jan Raisin-

Pada 3 Januari 2014 10.25, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

Hai.. (aduh.. susah bener nyebut namanya..)
>
>
>oke deh Dora the Explorer..
>karena alamat emailnya kayak nama jalan.. yang pertama terlintas di pikiran Jan adalah slogan si Dora
>"aku peta.. aku peta.. "
>xixixi ^_^
>
>
>coba solusi pada file terlampir..
>mungkin nanti akan ada BeExceller yang bisa membantu memendekkan formula yang ada..
>
>
>Salam,
>
>
>-Miss Jan Raisin-
>
>
>
>
>
>
>2014/1/3 <jalanmawar2_blok3@yahoo.com>
>
>
>
>> 
>>to, Para Master Excel
>>
>>mohon bantuannya, untuk menghitung JPK, dengan keriteria
>>
>>JIKA STATUS LAJANG : TOTAL GAJI /3%, APABILA GAJI DI ATAS 4725000, JPK NYA : 141.500,-
>>JIKA STATUS KELUARGA : TOTAL GAJI /6%, APABILA GAJI DI ATAS 4725000, JPK NYA : 283500,-

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

5

Pisah angka

Thu Jan 2, 2014 9:48 pm (PST) . Posted by:

"Liem Suliem" liemsuliem

Dear master..

gimana formula cara pisah angka seprti file terlampir

wasalam

liem

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

6a

Re: Pisah angka [1 Attachment]

Thu Jan 2, 2014 9:59 pm (PST) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Coba cari di file milis Function_AngkaThok, warisan dari si Mbah.

Salam, 
HK

Sent from Samsung MobileLiem Suliem <liemsuliem@yahoo.co.id> wrote:Dear master..

gimana formula cara pisah angka seprti file terlampir

wasalam

liem

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

6b

Re: Pisah angka

Thu Jan 2, 2014 10:02 pm (PST) . Posted by:

"Jan Raisin"

nyumbang 1 formula di C2 dari sekian banyak cara yang ada:

=--LEFT(A2,FIND(" ",A2)-1)

Salam,

-Miss Jan Raisin-

Pada 3 Januari 2014 12.59, Hendrik Karnadi <hendrikkarnadi@yahoo.com>menulis:

>
>
> Coba cari di file milis Function_AngkaThok, warisan dari si Mbah.
>
> Salam,
> HK
>
>
> Sent from Samsung Mobile
>
> Liem Suliem <liemsuliem@yahoo.co.id> wrote:
>
>
> Dear master..
>
> gimana formula cara pisah angka seprti file terlampir
>
>
>
> wasalam
>
> liem
>
> __
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

6c

Re: Pisah angka

Thu Jan 2, 2014 10:07 pm (PST) . Posted by:

"aji mumpung"

Pendekin dikit formulanya si cantik hehehe :)

semula:
=--LEFT(A2,FIND(" ",A2)-1)

menjadi:
=--LEFT(A2,FIND(" ",A2))

Wassalam,

-Aji Mumpung-

Pada 3 Januari 2014 13.02, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

>
>
> nyumbang 1 formula di C2 dari sekian banyak cara yang ada:
>
> =--LEFT(A2,FIND(" ",A2)-1)
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> Pada 3 Januari 2014 12.59, Hendrik Karnadi <hendrikkarnadi@yahoo.com>menulis:
>
>
>>
>> Coba cari di file milis Function_AngkaThok, warisan dari si Mbah.
>>
>> Salam,
>> HK
>>
>>
>> Sent from Samsung Mobile
>>
>> Liem Suliem <liemsuliem@yahoo.co.id> wrote:
>>
>>
>> Dear master..
>>
>> gimana formula cara pisah angka seprti file terlampir
>>
>>
>>
>> wasalam
>>
>> liem
>>
>> __
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

7 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

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
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>