15 New Messages
Digest #2536
2b
Re: Cara konversi data vertikal menjadi horizantal [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
Messages
Sun Sep 15, 2013 8:11 pm (PDT) . Posted by:
"Andy Ajhis Ramadhan" andy_ajhis37
Dear,
master excel
andy mau tanya : Bagaiamana caranya kalau macro di option baru di enable maka pindah sheets.
Misal dari Sheet1 tetapi ketika macro di enable jadi ke sheets2 yg terlihat/aktif.\
Thanks & Best Regards,
Andy
master excel
andy mau tanya : Bagaiamana caranya kalau macro di option baru di enable maka pindah sheets.
Misal dari Sheet1 tetapi ketika macro di enable jadi ke sheets2 yg terlihat/aktif.
Thanks & Best Regards,
Andy
Sun Sep 15, 2013 8:23 pm (PDT) . Posted by:
"Andy Ajhis Ramadhan" andy_ajhis37
hehhee sudah bisa andy-nya :D
di this workbok dimasukan kode ini.
Sub Workbook_Open()
Sheets("sheets2").Select
End Sub
Thanks,
Andy
----- Pesan yang Diteruskan -----
Dari: Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 16 September 2013 10:06
Judul: [belajar-excel] Pindah sheet saat awal dibuka.
Dear,
master excel
andy mau tanya : Bagaiamana caranya kalau macro di option baru di enable maka pindah sheets.
Misal dari Sheet1 tetapi ketika macro di enable jadi ke sheets2 yg terlihat/aktif.\
Thanks & Best Regards,
Andy
di this workbok dimasukan kode ini.
Sub Workbook_Open(
Sheets("
End Sub
Thanks,
Andy
----- Pesan yang Diteruskan -----
Dari: Andy Ajhis Ramadhan <andyajhisramadhan@
Kepada: belajar-excel@
Dikirim: Senin, 16 September 2013 10:06
Judul: [belajar-excel] Pindah sheet saat awal dibuka.
Dear,
master excel
andy mau tanya : Bagaiamana caranya kalau macro di option baru di enable maka pindah sheets.
Misal dari Sheet1 tetapi ketika macro di enable jadi ke sheets2 yg terlihat/aktif.
Thanks & Best Regards,
Andy
Sun Sep 15, 2013 8:37 pm (PDT) . Posted by:
"dwint ruswanto"
coba bantu dengan menggunakan vba,
asumsi, data pertama adalah menyatakan jumlah data yang ada, karena
berdasarkan sampel seperti itu adanya
buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
# klik kanan di sheet dan pilih View Code
# tekan tombol Alt F11
# >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi
Macro
buka sebuah modul baru dengan cara Insert >> Module
pada modul yang terbuka tadi.. copas script berikut ini:
Sub Konversi()
Dim rgNrp As Range, Nrp As Range, rgFind As Range
Dim LastRow As Long, lData As Long
Application.ScreenUpdating = False
Range("f6").End(xlDown).End(xlToRight).ClearContents
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Set rgNrp = Range(Cells(6, 1), Cells(LastRow, 1))
For Each Nrp In rgNrp
Set rgFind = Range("f:f").Find(Nrp.Value)
If rgFind Is Nothing Then
lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
Cells(lData, 6).Value = Nrp.Value
Cells(lData, 7).Value = Nrp.Offset(, 1).Value
Else
lData = rgFind.Row
If Cells(lData, 8).Value = "" Then
Cells(lData, 8).Value = Nrp.Offset(, 2).Value
Else
Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
Nrp.Offset(, 2).Value
End If
End If
Next Nrp
Application.ScreenUpdating = True
End Sub
buat sebuah tombol di worksheet.. bisa menggunakan command button, shape,
atau kalo mau sedikit narsis boleh pakai foto diri
# jika menggunakan command button: copas script ini
call Konversi
# jika menggunakan shape atau foto: panggil macro tersebut dengan cara klik
kanan >> assign macro, dan pilih nama macronya di atas.
maaf belum bisa melampirkan workbook solusi..
Wassalamu'alaikum wr. wb.,
-dwint-
Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@gmail.com>menulis:
> **
>
>
> Dear Master Excel,,
>
> Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi
> horizontal secara cepat , serta menggabungkan kesemua data tersebut
> kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan
> perintah makro, seperti pada sampel berikut:
>
> *Data sebelum konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF 8 1B93010 DARMI SYARIF PC750
> 1B93010 DARMI SYARIF D25KS 1B93010 DARMI SYARIF GD825 1B93010 DARMI
> SYARIF PC800 1B93010 DARMI SYARIF D245 1B93010 DARMI SYARIF D50KS
> 1B93010 DARMI SYARIF CHA1500 1B93010 DARMI SYARIF CHA1100
> *Data setelah konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245,
> D50KS, CHA1500, CHA1100
>
> Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti
> lampiran yang saya sertakan berikut
>
> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
> pencerahannya
>
> Salam,
>
> Berni_K
>
>
>
asumsi, data pertama adalah menyatakan jumlah data yang ada, karena
berdasarkan sampel seperti itu adanya
buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
# klik kanan di sheet dan pilih View Code
# tekan tombol Alt F11
# >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi
Macro
buka sebuah modul baru dengan cara Insert >> Module
pada modul yang terbuka tadi.. copas script berikut ini:
Sub Konversi()
Dim rgNrp As Range, Nrp As Range, rgFind As Range
Dim LastRow As Long, lData As Long
Application.
Range("
LastRow = Cells(Rows.Count, 1).End(xlUp)
Set rgNrp = Range(Cells(
For Each Nrp In rgNrp
Set rgFind = Range("
If rgFind Is Nothing Then
lData = Cells(Rows.Count, 6).End(xlUp)
Cells(lData, 6).Value = Nrp.Value
Cells(lData, 7).Value = Nrp.Offset(, 1).Value
Else
lData = rgFind.Row
If Cells(lData, 8).Value = "" Then
Cells(lData, 8).Value = Nrp.Offset(, 2).Value
Else
Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
Nrp.Offset(, 2).Value
End If
End If
Next Nrp
Application.
End Sub
buat sebuah tombol di worksheet.. bisa menggunakan command button, shape,
atau kalo mau sedikit narsis boleh pakai foto diri
# jika menggunakan command button: copas script ini
call Konversi
# jika menggunakan shape atau foto: panggil macro tersebut dengan cara klik
kanan >> assign macro, dan pilih nama macronya di atas.
maaf belum bisa melampirkan workbook solusi..
Wassalamu'
-dwint-
Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@
> **
>
>
> Dear Master Excel,,
>
> Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi
> horizontal secara cepat , serta menggabungkan kesemua data tersebut
> kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan
> perintah makro, seperti pada sampel berikut:
>
> *Data sebelum konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF 8 1B93010 DARMI SYARIF PC750
> 1B93010 DARMI SYARIF D25KS 1B93010 DARMI SYARIF GD825 1B93010 DARMI
> SYARIF PC800 1B93010 DARMI SYARIF D245 1B93010 DARMI SYARIF D50KS
> 1B93010 DARMI SYARIF CHA1500 1B93010 DARMI SYARIF CHA1100
> *Data setelah konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245,
> D50KS, CHA1500, CHA1100
>
> Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti
> lampiran yang saya sertakan berikut
>
> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
> pencerahannya
>
> Salam,
>
> Berni_K
>
>
>
Sun Sep 15, 2013 9:19 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir menggunakan formula. Asumsinya, penanya menggunakan xl2003
kebawah. Bagi yang menggunakan xl2007 ke atas, silakan menyederhanakan
formula yang ada. Misalnya dengan memanfaatkan fungsi IFError dan
sebagainya.
Oh iya,
Supaya ndak bosen, file terlampir juga disertakan opsi untuk memilih jumlah
item yang akan ditampilkan.
Formula dasarnya adalah fungsi LookUp.
Wassalam,
Kid.
2013/9/15 Mr. Kid <mr.nmkid@gmail.com>
> Coba lihat topik yang mirip, yang baru-baru ini muncul :
> http://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/27715
>
> Wassalam,
> Kid.
>
>
>
> 2013/9/15 Berni Karanza <karanza.berni@gmail.com>
>
>> **
>>
>>
>> Dear Master Excel,,
>>
>> Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi
>> horizontal secara cepat , serta menggabungkan kesemua data tersebut
>> kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan
>> perintah makro, seperti pada sampel berikut:
>>
>> *Data sebelum konversi:*
>>
>> NRP NAME EGI 1B93010 DARMI SYARIF 8 1B93010 DARMI SYARIF PC750
>> 1B93010 DARMI SYARIF D25KS 1B93010 DARMI SYARIF GD825 1B93010 DARMI
>> SYARIF PC800 1B93010 DARMI SYARIF D245 1B93010 DARMI SYARIF D50KS
>> 1B93010 DARMI SYARIF CHA1500 1B93010 DARMI SYARIF CHA1100
>> *Data setelah konversi:*
>>
>> NRP NAME EGI 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245,
>> D50KS, CHA1500, CHA1100
>>
>> Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti
>> lampiran yang saya sertakan berikut
>>
>> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
>> pencerahannya
>>
>> Salam,
>>
>> Berni_K
>>
>>
>>
>
>
kebawah. Bagi yang menggunakan xl2007 ke atas, silakan menyederhanakan
formula yang ada. Misalnya dengan memanfaatkan fungsi IFError dan
sebagainya.
Oh iya,
Supaya ndak bosen, file terlampir juga disertakan opsi untuk memilih jumlah
item yang akan ditampilkan.
Formula dasarnya adalah fungsi LookUp.
Wassalam,
Kid.
2013/9/15 Mr. Kid <mr.nmkid@gmail.
> Coba lihat topik yang mirip, yang baru-baru ini muncul :
> http://groups.
>
> Wassalam,
> Kid.
>
>
>
> 2013/9/15 Berni Karanza <karanza.berni@
>
>> **
>>
>>
>> Dear Master Excel,,
>>
>> Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi
>> horizontal secara cepat , serta menggabungkan kesemua data tersebut
>> kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan
>> perintah makro, seperti pada sampel berikut:
>>
>> *Data sebelum konversi:*
>>
>> NRP NAME EGI 1B93010 DARMI SYARIF 8 1B93010 DARMI SYARIF PC750
>> 1B93010 DARMI SYARIF D25KS 1B93010 DARMI SYARIF GD825 1B93010 DARMI
>> SYARIF PC800 1B93010 DARMI SYARIF D245 1B93010 DARMI SYARIF D50KS
>> 1B93010 DARMI SYARIF CHA1500 1B93010 DARMI SYARIF CHA1100
>> *Data setelah konversi:*
>>
>> NRP NAME EGI 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245,
>> D50KS, CHA1500, CHA1100
>>
>> Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti
>> lampiran yang saya sertakan berikut
>>
>> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
>> pencerahannya
>>
>> Salam,
>>
>> Berni_K
>>
>>
>>
>
>
Sun Sep 15, 2013 10:03 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Pak Dwint,
Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan pak Berni .
Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk (seharusnya memang tidak masuk), yaitu angka "8" dan "5".
Yang pasti bukan kebetulan.
Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code) yang mana angka "8" dan "5" dilewati.
Workbook hasil testing terlampir.
Salam,
HK
________________________________
From: dwint ruswanto <dwint.ruswanto@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 16 September 2013, 10:37
Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
coba bantu dengan menggunakan vba,
asumsi, data pertama adalah menyatakan jumlah data yang ada, karena berdasarkan sampel seperti itu adanya
buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
# klik kanan di sheet dan pilih View Code
# tekan tombol Alt F11
# >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi Macro
buka sebuah modul baru dengan cara Insert >> Module
pada modul yang terbuka tadi.. copas script berikut ini:
Sub Konversi()
Dim rgNrp As Range, Nrp As Range, rgFind As Range
Dim LastRow As Long, lData As Long
Application.ScreenUpdating = False
Range("f6").End(xlDown).End(xlToRight).ClearContents
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Set rgNrp = Range(Cells(6, 1), Cells(LastRow, 1))
For Each Nrp In rgNrp
Set rgFind = Range("f:f").Find(Nrp.Value)
If rgFind Is Nothing Then
lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
Cells(lData, 6).Value = Nrp.Value
Cells(lData, 7).Value = Nrp.Offset(, 1).Value
Else
lData = rgFind.Row
If Cells(lData, 8).Value = "" Then
Cells(lData, 8).Value = Nrp.Offset(, 2).Value
Else
Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & Nrp.Offset(, 2).Value
End If
End If
Next Nrp
Application.ScreenUpdating = True
End Sub
buat sebuah tombol di worksheet.. bisa menggunakan command button, shape, atau kalo mau sedikit narsis boleh pakai foto diri
# jika menggunakan command button: copas script ini
call Konversi
# jika menggunakan shape atau foto: panggil macro tersebut dengan cara klik kanan >> assign macro, dan pilih nama macronya di atas.
maaf belum bisa melampirkan workbook solusi..
Wassalamu'alaikum wr. wb.,
-dwint-
Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@gmail.com> menulis:
>
>Dear Master Excel,,
>
>
>Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi horizontal secara cepat , serta menggabungkan kesemua data tersebut
>kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan perintah makro, seperti pada sampel berikut:
>
>
>Data sebelum konversi:
>
>
>NRP NAME EGI
>1B93010 DARMI SYARIF 8
>1B93010 DARMI SYARIF PC750
>1B93010 DARMI SYARIF D25KS
>1B93010 DARMI SYARIF GD825
>1B93010 DARMI SYARIF PC800
>1B93010 DARMI SYARIF D245
>1B93010 DARMI SYARIF D50KS
>1B93010 DARMI SYARIF CHA1500
>1B93010 DARMI SYARIF CHA1100
>
>Data setelah konversi:
>
>
>NRP NAME EGI
>1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245, D50KS, CHA1500, CHA1100
>
>
>Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti lampiran yang saya sertakan berikut
>
>
>
>Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas pencerahannya
>
>
>Salam,
>
>
>Berni_K
Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan pak Berni .
Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk (seharusnya memang tidak masuk), yaitu angka "8" dan "5"
Yang pasti bukan kebetulan.
Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code) yang mana angka "8" dan "5" dilewati.
Workbook hasil testing terlampir.
Salam,
HK
____________
From: dwint ruswanto <dwint.ruswanto@
To: belajar-excel@
Sent: Monday, 16 September 2013, 10:37
Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
coba bantu dengan menggunakan vba,
asumsi, data pertama adalah menyatakan jumlah data yang ada, karena berdasarkan sampel seperti itu adanya
buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
# klik kanan di sheet dan pilih View Code
# tekan tombol Alt F11
# >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi Macro
buka sebuah modul baru dengan cara Insert >> Module
pada modul yang terbuka tadi.. copas script berikut ini:
Sub Konversi()
Dim rgNrp As Range, Nrp As Range, rgFind As Range
Dim LastRow As Long, lData As Long
Application.
Range("
LastRow = Cells(Rows.Count, 1).End(xlUp)
Set rgNrp = Range(Cells(
For Each Nrp In rgNrp
Set rgFind = Range("
If rgFind Is Nothing Then
lData = Cells(Rows.Count, 6).End(xlUp)
Cells(lData, 6).Value = Nrp.Value
Cells(lData, 7).Value = Nrp.Offset(, 1).Value
Else
lData = rgFind.Row
If Cells(lData, 8).Value = "" Then
Cells(lData, 8).Value = Nrp.Offset(, 2).Value
Else
Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & Nrp.Offset(, 2).Value
End If
End If
Next Nrp
Application.
End Sub
buat sebuah tombol di worksheet.. bisa menggunakan command button, shape, atau kalo mau sedikit narsis boleh pakai foto diri
# jika menggunakan command button: copas script ini
call Konversi
# jika menggunakan shape atau foto: panggil macro tersebut dengan cara klik kanan >> assign macro, dan pilih nama macronya di atas.
maaf belum bisa melampirkan workbook solusi..
Wassalamu'
-dwint-
Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@
>
>Dear Master Excel,,
>
>
>Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi horizontal secara cepat , serta menggabungkan kesemua data tersebut
>kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan perintah makro, seperti pada sampel berikut:
>
>
>Data sebelum konversi:
>
>
>NRP NAME EGI
>1B93010 DARMI SYARIF 8
>1B93010 DARMI SYARIF PC750
>1B93010 DARMI SYARIF D25KS
>1B93010 DARMI SYARIF GD825
>1B93010 DARMI SYARIF PC800
>1B93010 DARMI SYARIF D245
>1B93010 DARMI SYARIF D50KS
>1B93010 DARMI SYARIF CHA1500
>1B93010 DARMI SYARIF CHA1100
>
>Data setelah konversi:
>
>
>NRP NAME EGI
>1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245, D50KS, CHA1500, CHA1100
>
>
>Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti lampiran yang saya sertakan berikut
>
>
>
>Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas pencerahannya
>
>
>Salam,
>
>
>Berni_K
Sun Sep 15, 2013 10:39 pm (PDT) . Posted by:
"De Premor" de.premor
sebenernya bukan kebetulan, silahkan dicek kodenya lagi
For Each NRP In rgNrp
Set rgFind = Range("f:f").Find(NRP.Value)
If rgFind Is Nothing Then
lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
* Cells(lData, 6).Value = NRP.Value**
** Cells(lData, 7).Value = NRP.Offset(, 1).Value**
* Else
lData = rgFind.Row
* If Cells(lData, 8).Value = "" Then**
** Cells(lData, 8).Value = NRP.Offset(, 2).Value**
** Else**
** Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
NRP.Offset(, 2).Value**
** End If**
* End If
Next NRP
dibagian yang diwarna merah, adalah routine buat menuliskan Nomor NRP
dan Nama jika NRP dan Nama belum ada pada kolom hasil, dimana pada
routine tersebut terjadi looping untuk membaca baris per baris, sehingga
terlewat 1 baris nilai EGI untuk diisikan pada Cells(lData,8) karena
memang tidak ada routine untuk itu jika ada pemunculan nama baru.
On 16-09-2013 12:03, hendrik karnadi wrote:
> Pak Dwint,
>
> Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan
> pak Berni .
> Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak
> masuk (seharusnya memang tidak masuk), yaitu angka "8" dan "5".
>
> Yang pasti bukan kebetulan.
>
> Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code)
> yang mana angka "8" dan "5" dilewati.
>
> Workbook hasil testing terlampir.
>
> Salam,
> HK
>
>
> ----------------------------------------------------------
> *From:* dwint ruswanto <dwint.ruswanto@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 16 September 2013, 10:37
> *Subject:* Re: [belajar-excel] Cara konversi data vertikal menjadi
> horizantal
>
> coba bantu dengan menggunakan vba,
>
> asumsi, data pertama adalah menyatakan jumlah data yang ada, karena
> berdasarkan sampel seperti itu adanya
>
> buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
> # klik kanan di sheet dan pilih View Code
> # tekan tombol Alt F11
> # >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang
> berbunyi Macro
>
> buka sebuah modul baru dengan cara Insert >> Module
>
> pada modul yang terbuka tadi.. copas script berikut ini:
>
> Sub Konversi()
> Dim rgNrp As Range, Nrp As Range, rgFind As Range
> Dim LastRow As Long, lData As Long
> Application.ScreenUpdating = False
> Range("f6").End(xlDown).End(xlToRight).ClearContents
> LastRow = Cells(Rows.Count, 1).End(xlUp).Row
> Set rgNrp = Range(Cells(6, 1), Cells(LastRow, 1))
> For Each Nrp In rgNrp
> Set rgFind = Range("f:f").Find(Nrp.Value)
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
> Cells(lData, 6).Value = Nrp.Value
> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
> Else
> lData = rgFind.Row
> If Cells(lData, 8).Value = "" Then
> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
> Else
> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & Nrp.Offset(,
> 2).Value
> End If
> End If
> Next Nrp
> Application.ScreenUpdating = True
> End Sub
>
> buat sebuah tombol di worksheet.. bisa menggunakan command button,
> shape, atau kalo mau sedikit narsis boleh pakai foto diri
>
> # jika menggunakan command button: copas script ini
> call Konversi
>
> # jika menggunakan shape atau foto: panggil macro tersebut dengan cara
> klik kanan >> assign macro, dan pilih nama macronya di atas.
>
> maaf belum bisa melampirkan workbook solusi..
>
> Wassalamu'alaikum wr. wb.,
>
> -dwint-
>
>
>
> Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@gmail.com
> <mailto:karanza.berni@gmail.com>> menulis:
>
> Dear Master Excel,,
>
> Mohon pencerahannya bagaimana cara mengkonversi data vertikal
> menjadi horizontal secara cepat , serta menggabungkan kesemua data
> tersebut
> kedalam satu cell dengan separator koma (,) .kalo bisa dengan
> menggunakan perintah makro, seperti pada sampel berikut:
>
> _Data sebelum konversi:_
>
> NRP NAME EGI
> 1B93010 DARMI SYARIF 8
> 1B93010 DARMI SYARIF PC750
> 1B93010 DARMI SYARIF D25KS
> 1B93010 DARMI SYARIF GD825
> 1B93010 DARMI SYARIF PC800
> 1B93010 DARMI SYARIF D245
> 1B93010 DARMI SYARIF D50KS
> 1B93010 DARMI SYARIF CHA1500
> 1B93010 DARMI SYARIF CHA1100
>
>
> _Data setelah konversi:_
>
> NRP NAME EGI
> 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245, D50KS,
> CHA1500, CHA1100
>
> Baris data yang akan digunakan sangat banyak, Lebih detail nya
> seperti lampiran yang saya sertakan berikut
>
> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
> pencerahannya
>
> Salam,
>
> Berni_K
>
>
>
>
>
For Each NRP In rgNrp
Set rgFind = Range("
If rgFind Is Nothing Then
lData = Cells(Rows.Count, 6).End(xlUp)
* Cells(lData, 6).Value = NRP.Value**
** Cells(lData, 7).Value = NRP.Offset(, 1).Value**
* Else
lData = rgFind.Row
* If Cells(lData, 8).Value = "" Then**
** Cells(lData, 8).Value = NRP.Offset(, 2).Value**
** Else**
** Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
NRP.Offset(, 2).Value**
** End If**
* End If
Next NRP
dibagian yang diwarna merah, adalah routine buat menuliskan Nomor NRP
dan Nama jika NRP dan Nama belum ada pada kolom hasil, dimana pada
routine tersebut terjadi looping untuk membaca baris per baris, sehingga
terlewat 1 baris nilai EGI untuk diisikan pada Cells(lData,
memang tidak ada routine untuk itu jika ada pemunculan nama baru.
On 16-09-2013 12:03, hendrik karnadi wrote:
> Pak Dwint,
>
> Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan
> pak Berni .
> Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak
> masuk (seharusnya memang tidak masuk), yaitu angka "8" dan "5"
>
> Yang pasti bukan kebetulan.
>
> Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code)
> yang mana angka "8" dan "5" dilewati.
>
> Workbook hasil testing terlampir.
>
> Salam,
> HK
>
>
> ------------
> *From:* dwint ruswanto <dwint.ruswanto@
> *To:* belajar-excel@
> *Sent:* Monday, 16 September 2013, 10:37
> *Subject:* Re: [belajar-excel] Cara konversi data vertikal menjadi
> horizantal
>
> coba bantu dengan menggunakan vba,
>
> asumsi, data pertama adalah menyatakan jumlah data yang ada, karena
> berdasarkan sampel seperti itu adanya
>
> buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
> # klik kanan di sheet dan pilih View Code
> # tekan tombol Alt F11
> # >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang
> berbunyi Macro
>
> buka sebuah modul baru dengan cara Insert >> Module
>
> pada modul yang terbuka tadi.. copas script berikut ini:
>
> Sub Konversi()
> Dim rgNrp As Range, Nrp As Range, rgFind As Range
> Dim LastRow As Long, lData As Long
> Application.
> Range("
> LastRow = Cells(Rows.Count, 1).End(xlUp)
> Set rgNrp = Range(Cells(
> For Each Nrp In rgNrp
> Set rgFind = Range("
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp)
> Cells(lData, 6).Value = Nrp.Value
> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
> Else
> lData = rgFind.Row
> If Cells(lData, 8).Value = "" Then
> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
> Else
> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & Nrp.Offset(,
> 2).Value
> End If
> End If
> Next Nrp
> Application.
> End Sub
>
> buat sebuah tombol di worksheet.. bisa menggunakan command button,
> shape, atau kalo mau sedikit narsis boleh pakai foto diri
>
> # jika menggunakan command button: copas script ini
> call Konversi
>
> # jika menggunakan shape atau foto: panggil macro tersebut dengan cara
> klik kanan >> assign macro, dan pilih nama macronya di atas.
>
> maaf belum bisa melampirkan workbook solusi..
>
> Wassalamu'
>
> -dwint-
>
>
>
> Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@
> <mailto:karanza.berni@
>
> Dear Master Excel,,
>
> Mohon pencerahannya bagaimana cara mengkonversi data vertikal
> menjadi horizontal secara cepat , serta menggabungkan kesemua data
> tersebut
> kedalam satu cell dengan separator koma (,) .kalo bisa dengan
> menggunakan perintah makro, seperti pada sampel berikut:
>
> _Data sebelum konversi:_
>
> NRP NAME EGI
> 1B93010 DARMI SYARIF 8
> 1B93010 DARMI SYARIF PC750
> 1B93010 DARMI SYARIF D25KS
> 1B93010 DARMI SYARIF GD825
> 1B93010 DARMI SYARIF PC800
> 1B93010 DARMI SYARIF D245
> 1B93010 DARMI SYARIF D50KS
> 1B93010 DARMI SYARIF CHA1500
> 1B93010 DARMI SYARIF CHA1100
>
>
> _Data setelah konversi:_
>
> NRP NAME EGI
> 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245, D50KS,
> CHA1500, CHA1100
>
> Baris data yang akan digunakan sangat banyak, Lebih detail nya
> seperti lampiran yang saya sertakan berikut
>
> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
> pencerahannya
>
> Salam,
>
> Berni_K
>
>
>
>
>
Sun Sep 15, 2013 11:15 pm (PDT) . Posted by:
"dwint ruswanto"
betul kata pak De Premor..
setelah saya cek sampel yang diberikan..
data pertama pada kolom C menunjukan banyak data yang berurut di bawahnya,
dengan asumsi bahwa seluruh data memiliki pola yang sama,
maka untuk setiap data pertama yang ditemukan tidak dilakukan penulisan ke
kolom EGI.
kira2 penjelasan saya seperti itu pak Hendrik.
Salam,
-dwint-
Pada 16 September 2013 12.38, De Premor <de@premor.net> menulis:
> **
>
>
> sebenernya bukan kebetulan, silahkan dicek kodenya lagi
>
> For Each NRP In rgNrp
> Set rgFind = Range("f:f").Find(NRP.Value)
>
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
> * Cells(lData, 6).Value = NRP.Value**
> ** Cells(lData, 7).Value = NRP.Offset(, 1).Value*
> *
> * Else
> lData = rgFind.Row
> * If Cells(lData, 8).Value = "" Then**
> *
> * Cells(lData, 8).Value = NRP.Offset(, 2).Value**
> ** Else**
> ** Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
> NRP.Offset(, 2).Value**
> ** End If**
> * End If
> Next NRP
>
> dibagian yang diwarna merah, adalah routine buat menuliskan Nomor NRP dan
> Nama jika NRP dan Nama belum ada pada kolom hasil, dimana pada routine
> tersebut terjadi looping untuk membaca baris per baris, sehingga terlewat 1
> baris nilai EGI untuk diisikan pada Cells(lData,8) karena memang tidak ada
> routine untuk itu jika ada pemunculan nama baru.
>
> On 16-09-2013 12:03, hendrik karnadi wrote:
>
>
> Pak Dwint,
>
> Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan pak
> Berni .
> Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk
> (seharusnya memang tidak masuk), yaitu angka "8" dan "5".
>
> Yang pasti bukan kebetulan.
>
> Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code) yang
> mana angka "8" dan "5" dilewati.
>
> Workbook hasil testing terlampir.
>
> Salam,
> HK
>
>
> ------------------------------
> *From:* dwint ruswanto <dwint.ruswanto@gmail.com><dwint.ruswanto@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 16 September 2013, 10:37
> *Subject:* Re: [belajar-excel] Cara konversi data vertikal menjadi
> horizantal
>
>
> coba bantu dengan menggunakan vba,
>
> asumsi, data pertama adalah menyatakan jumlah data yang ada, karena
> berdasarkan sampel seperti itu adanya
>
> buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
> # klik kanan di sheet dan pilih View Code
> # tekan tombol Alt F11
> # >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi
> Macro
>
> buka sebuah modul baru dengan cara Insert >> Module
>
> pada modul yang terbuka tadi.. copas script berikut ini:
>
> Sub Konversi()
> Dim rgNrp As Range, Nrp As Range, rgFind As Range
> Dim LastRow As Long, lData As Long
>
> Application.ScreenUpdating = False
> Range("f6").End(xlDown).End(xlToRight).ClearContents
> LastRow = Cells(Rows.Count, 1).End(xlUp).Row
> Set rgNrp = Range(Cells(6, 1), Cells(LastRow, 1))
> For Each Nrp In rgNrp
> Set rgFind = Range("f:f").Find(Nrp.Value)
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
> Cells(lData, 6).Value = Nrp.Value
> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
> Else
> lData = rgFind.Row
> If Cells(lData, 8).Value = "" Then
> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
> Else
> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
> Nrp.Offset(, 2).Value
> End If
> End If
> Next Nrp
> Application.ScreenUpdating = True
> End Sub
>
> buat sebuah tombol di worksheet.. bisa menggunakan command button,
> shape, atau kalo mau sedikit narsis boleh pakai foto diri
>
> # jika menggunakan command button: copas script ini
> call Konversi
>
> # jika menggunakan shape atau foto: panggil macro tersebut dengan cara
> klik kanan >> assign macro, dan pilih nama macronya di atas.
>
> maaf belum bisa melampirkan workbook solusi..
>
> Wassalamu'alaikum wr. wb.,
>
> -dwint-
>
>
>
> Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@gmail.com>menulis:
>
>
> Dear Master Excel,,
>
> Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi
> horizontal secara cepat , serta menggabungkan kesemua data tersebut
> kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan
> perintah makro, seperti pada sampel berikut:
>
> *Data sebelum konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF 8 1B93010 DARMI SYARIF PC750
> 1B93010 DARMI SYARIF D25KS 1B93010 DARMI SYARIF GD825 1B93010 DARMI
> SYARIF PC800 1B93010 DARMI SYARIF D245 1B93010 DARMI SYARIF D50KS
> 1B93010 DARMI SYARIF CHA1500 1B93010 DARMI SYARIF CHA1100
> *Data setelah konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245,
> D50KS, CHA1500, CHA1100
>
> Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti
> lampiran yang saya sertakan berikut
>
> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
> pencerahannya
>
> Salam,
>
> Berni_K
>
>
>
>
>
>
>
setelah saya cek sampel yang diberikan..
data pertama pada kolom C menunjukan banyak data yang berurut di bawahnya,
dengan asumsi bahwa seluruh data memiliki pola yang sama,
maka untuk setiap data pertama yang ditemukan tidak dilakukan penulisan ke
kolom EGI.
kira2 penjelasan saya seperti itu pak Hendrik.
Salam,
-dwint-
Pada 16 September 2013 12.38, De Premor <de@premor.net> menulis:
> **
>
>
> sebenernya bukan kebetulan, silahkan dicek kodenya lagi
>
> For Each NRP In rgNrp
> Set rgFind = Range("
>
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp)
> * Cells(lData, 6).Value = NRP.Value**
> ** Cells(lData, 7).Value = NRP.Offset(, 1).Value*
> *
> * Else
> lData = rgFind.Row
> * If Cells(lData, 8).Value = "" Then**
> *
> * Cells(lData, 8).Value = NRP.Offset(, 2).Value**
> ** Else**
> ** Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
> NRP.Offset(, 2).Value**
> ** End If**
> * End If
> Next NRP
>
> dibagian yang diwarna merah, adalah routine buat menuliskan Nomor NRP dan
> Nama jika NRP dan Nama belum ada pada kolom hasil, dimana pada routine
> tersebut terjadi looping untuk membaca baris per baris, sehingga terlewat 1
> baris nilai EGI untuk diisikan pada Cells(lData,
> routine untuk itu jika ada pemunculan nama baru.
>
> On 16-09-2013 12:03, hendrik karnadi wrote:
>
>
> Pak Dwint,
>
> Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan pak
> Berni .
> Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk
> (seharusnya memang tidak masuk), yaitu angka "8" dan "5"
>
> Yang pasti bukan kebetulan.
>
> Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code) yang
> mana angka "8" dan "5" dilewati.
>
> Workbook hasil testing terlampir.
>
> Salam,
> HK
>
>
> ------------
> *From:* dwint ruswanto <dwint.ruswanto@
> *To:* belajar-excel@
> *Sent:* Monday, 16 September 2013, 10:37
> *Subject:* Re: [belajar-excel] Cara konversi data vertikal menjadi
> horizantal
>
>
> coba bantu dengan menggunakan vba,
>
> asumsi, data pertama adalah menyatakan jumlah data yang ada, karena
> berdasarkan sampel seperti itu adanya
>
> buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
> # klik kanan di sheet dan pilih View Code
> # tekan tombol Alt F11
> # >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi
> Macro
>
> buka sebuah modul baru dengan cara Insert >> Module
>
> pada modul yang terbuka tadi.. copas script berikut ini:
>
> Sub Konversi()
> Dim rgNrp As Range, Nrp As Range, rgFind As Range
> Dim LastRow As Long, lData As Long
>
> Application.
> Range("
> LastRow = Cells(Rows.Count, 1).End(xlUp)
> Set rgNrp = Range(Cells(
> For Each Nrp In rgNrp
> Set rgFind = Range("
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp)
> Cells(lData, 6).Value = Nrp.Value
> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
> Else
> lData = rgFind.Row
> If Cells(lData, 8).Value = "" Then
> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
> Else
> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
> Nrp.Offset(, 2).Value
> End If
> End If
> Next Nrp
> Application.
> End Sub
>
> buat sebuah tombol di worksheet.. bisa menggunakan command button,
> shape, atau kalo mau sedikit narsis boleh pakai foto diri
>
> # jika menggunakan command button: copas script ini
> call Konversi
>
> # jika menggunakan shape atau foto: panggil macro tersebut dengan cara
> klik kanan >> assign macro, dan pilih nama macronya di atas.
>
> maaf belum bisa melampirkan workbook solusi..
>
> Wassalamu'
>
> -dwint-
>
>
>
> Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@
>
>
> Dear Master Excel,,
>
> Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi
> horizontal secara cepat , serta menggabungkan kesemua data tersebut
> kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan
> perintah makro, seperti pada sampel berikut:
>
> *Data sebelum konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF 8 1B93010 DARMI SYARIF PC750
> 1B93010 DARMI SYARIF D25KS 1B93010 DARMI SYARIF GD825 1B93010 DARMI
> SYARIF PC800 1B93010 DARMI SYARIF D245 1B93010 DARMI SYARIF D50KS
> 1B93010 DARMI SYARIF CHA1500 1B93010 DARMI SYARIF CHA1100
> *Data setelah konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245,
> D50KS, CHA1500, CHA1100
>
> Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti
> lampiran yang saya sertakan berikut
>
> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
> pencerahannya
>
> Salam,
>
> Berni_K
>
>
>
>
>
>
>
Sun Sep 15, 2013 11:33 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Justru kalau ada data baru (id baru) yang tidak punya baris jumlah (yang
dikuning), maka akan kekurangan 1 item.
Sedangkan jika ada id lama tapi membentuk blok data baru yang disertai
baris jumlah data (maksudnya seperti yang dikuning itu), maka nilai jumlah
data akan masuk ke hasilnya.
tapi itu juga cuman dugaan, karena dalam script yang ada adalah pencabangan
proses menjadi 2 arah saja, yaitu :
arah 1 : belum ada id tersebut dalam tabel hasil, maka akan tulis hasil
saat pembacaan pertama di item baru itu. Kemudian lanjut ke baris data
berikutnya.
arah 2 : sudah ada id tersebut di hasil, maka ambil datanya (meskipun itu
baris jumlah subtotal count record di blok data tersebut) untuk
digandengkan dengan nilai hasil yang ada di tabel hasil untuk id tersebut.
imo,
data contohnya tidak mewakili bentuk asli kasusnya.
data yang dikuning pun tidak diketahui sudah bawaan dari sana atau hasil
pengolahan menggunakan fitur subtotal.
dengan kalimat penanya yang menyatakan ada banyak data, bisa diartikan ada
banyak record, ada banyak unique id, maupun ada banyak keduanya.
bisa jadi data aslinya ndak punya baris-baris yang ada cell kuningnya.
Wassalam,
Kid.
2013/9/16 De Premor <de@premor.net>
> **
>
>
> sebenernya bukan kebetulan, silahkan dicek kodenya lagi
>
> For Each NRP In rgNrp
> Set rgFind = Range("f:f").Find(NRP.Value)
>
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
> * Cells(lData, 6).Value = NRP.Value**
> ** Cells(lData, 7).Value = NRP.Offset(, 1).Value*
> *
> * Else
> lData = rgFind.Row
> * If Cells(lData, 8).Value = "" Then**
> *
> * Cells(lData, 8).Value = NRP.Offset(, 2).Value**
> ** Else**
> ** Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
> NRP.Offset(, 2).Value**
> ** End If**
> * End If
> Next NRP
>
> dibagian yang diwarna merah, adalah routine buat menuliskan Nomor NRP dan
> Nama jika NRP dan Nama belum ada pada kolom hasil, dimana pada routine
> tersebut terjadi looping untuk membaca baris per baris, sehingga terlewat 1
> baris nilai EGI untuk diisikan pada Cells(lData,8) karena memang tidak ada
> routine untuk itu jika ada pemunculan nama baru.
>
> On 16-09-2013 12:03, hendrik karnadi wrote:
>
>
> Pak Dwint,
>
> Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan pak
> Berni .
> Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk
> (seharusnya memang tidak masuk), yaitu angka "8" dan "5".
>
> Yang pasti bukan kebetulan.
>
> Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code) yang
> mana angka "8" dan "5" dilewati.
>
> Workbook hasil testing terlampir.
>
> Salam,
> HK
>
>
> ------------------------------
> *From:* dwint ruswanto <dwint.ruswanto@gmail.com><dwint.ruswanto@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 16 September 2013, 10:37
> *Subject:* Re: [belajar-excel] Cara konversi data vertikal menjadi
> horizantal
>
>
> coba bantu dengan menggunakan vba,
>
> asumsi, data pertama adalah menyatakan jumlah data yang ada, karena
> berdasarkan sampel seperti itu adanya
>
> buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
> # klik kanan di sheet dan pilih View Code
> # tekan tombol Alt F11
> # >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi
> Macro
>
> buka sebuah modul baru dengan cara Insert >> Module
>
> pada modul yang terbuka tadi.. copas script berikut ini:
>
> Sub Konversi()
> Dim rgNrp As Range, Nrp As Range, rgFind As Range
> Dim LastRow As Long, lData As Long
>
> Application.ScreenUpdating = False
> Range("f6").End(xlDown).End(xlToRight).ClearContents
> LastRow = Cells(Rows.Count, 1).End(xlUp).Row
> Set rgNrp = Range(Cells(6, 1), Cells(LastRow, 1))
> For Each Nrp In rgNrp
> Set rgFind = Range("f:f").Find(Nrp.Value)
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
> Cells(lData, 6).Value = Nrp.Value
> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
> Else
> lData = rgFind.Row
> If Cells(lData, 8).Value = "" Then
> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
> Else
> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
> Nrp.Offset(, 2).Value
> End If
> End If
> Next Nrp
> Application.ScreenUpdating = True
> End Sub
>
> buat sebuah tombol di worksheet.. bisa menggunakan command button,
> shape, atau kalo mau sedikit narsis boleh pakai foto diri
>
> # jika menggunakan command button: copas script ini
> call Konversi
>
> # jika menggunakan shape atau foto: panggil macro tersebut dengan cara
> klik kanan >> assign macro, dan pilih nama macronya di atas.
>
> maaf belum bisa melampirkan workbook solusi..
>
> Wassalamu'alaikum wr. wb.,
>
> -dwint-
>
>
>
> Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@gmail.com>menulis:
>
>
> Dear Master Excel,,
>
> Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi
> horizontal secara cepat , serta menggabungkan kesemua data tersebut
> kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan
> perintah makro, seperti pada sampel berikut:
>
> *Data sebelum konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF 8 1B93010 DARMI SYARIF PC750
> 1B93010 DARMI SYARIF D25KS 1B93010 DARMI SYARIF GD825 1B93010 DARMI
> SYARIF PC800 1B93010 DARMI SYARIF D245 1B93010 DARMI SYARIF D50KS
> 1B93010 DARMI SYARIF CHA1500 1B93010 DARMI SYARIF CHA1100
> *Data setelah konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245,
> D50KS, CHA1500, CHA1100
>
> Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti
> lampiran yang saya sertakan berikut
>
> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
> pencerahannya
>
> Salam,
>
> Berni_K
>
>
>
>
>
>
>
dikuning), maka akan kekurangan 1 item.
Sedangkan jika ada id lama tapi membentuk blok data baru yang disertai
baris jumlah data (maksudnya seperti yang dikuning itu), maka nilai jumlah
data akan masuk ke hasilnya.
tapi itu juga cuman dugaan, karena dalam script yang ada adalah pencabangan
proses menjadi 2 arah saja, yaitu :
arah 1 : belum ada id tersebut dalam tabel hasil, maka akan tulis hasil
saat pembacaan pertama di item baru itu. Kemudian lanjut ke baris data
berikutnya.
arah 2 : sudah ada id tersebut di hasil, maka ambil datanya (meskipun itu
baris jumlah subtotal count record di blok data tersebut) untuk
digandengkan dengan nilai hasil yang ada di tabel hasil untuk id tersebut.
imo,
data contohnya tidak mewakili bentuk asli kasusnya.
data yang dikuning pun tidak diketahui sudah bawaan dari sana atau hasil
pengolahan menggunakan fitur subtotal.
dengan kalimat penanya yang menyatakan ada banyak data, bisa diartikan ada
banyak record, ada banyak unique id, maupun ada banyak keduanya.
bisa jadi data aslinya ndak punya baris-baris yang ada cell kuningnya.
Wassalam,
Kid.
2013/9/16 De Premor <de@premor.net>
> **
>
>
> sebenernya bukan kebetulan, silahkan dicek kodenya lagi
>
> For Each NRP In rgNrp
> Set rgFind = Range("
>
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp)
> * Cells(lData, 6).Value = NRP.Value**
> ** Cells(lData, 7).Value = NRP.Offset(, 1).Value*
> *
> * Else
> lData = rgFind.Row
> * If Cells(lData, 8).Value = "" Then**
> *
> * Cells(lData, 8).Value = NRP.Offset(, 2).Value**
> ** Else**
> ** Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
> NRP.Offset(, 2).Value**
> ** End If**
> * End If
> Next NRP
>
> dibagian yang diwarna merah, adalah routine buat menuliskan Nomor NRP dan
> Nama jika NRP dan Nama belum ada pada kolom hasil, dimana pada routine
> tersebut terjadi looping untuk membaca baris per baris, sehingga terlewat 1
> baris nilai EGI untuk diisikan pada Cells(lData,
> routine untuk itu jika ada pemunculan nama baru.
>
> On 16-09-2013 12:03, hendrik karnadi wrote:
>
>
> Pak Dwint,
>
> Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan pak
> Berni .
> Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk
> (seharusnya memang tidak masuk), yaitu angka "8" dan "5"
>
> Yang pasti bukan kebetulan.
>
> Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code) yang
> mana angka "8" dan "5" dilewati.
>
> Workbook hasil testing terlampir.
>
> Salam,
> HK
>
>
> ------------
> *From:* dwint ruswanto <dwint.ruswanto@
> *To:* belajar-excel@
> *Sent:* Monday, 16 September 2013, 10:37
> *Subject:* Re: [belajar-excel] Cara konversi data vertikal menjadi
> horizantal
>
>
> coba bantu dengan menggunakan vba,
>
> asumsi, data pertama adalah menyatakan jumlah data yang ada, karena
> berdasarkan sampel seperti itu adanya
>
> buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
> # klik kanan di sheet dan pilih View Code
> # tekan tombol Alt F11
> # >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi
> Macro
>
> buka sebuah modul baru dengan cara Insert >> Module
>
> pada modul yang terbuka tadi.. copas script berikut ini:
>
> Sub Konversi()
> Dim rgNrp As Range, Nrp As Range, rgFind As Range
> Dim LastRow As Long, lData As Long
>
> Application.
> Range("
> LastRow = Cells(Rows.Count, 1).End(xlUp)
> Set rgNrp = Range(Cells(
> For Each Nrp In rgNrp
> Set rgFind = Range("
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp)
> Cells(lData, 6).Value = Nrp.Value
> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
> Else
> lData = rgFind.Row
> If Cells(lData, 8).Value = "" Then
> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
> Else
> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " &
> Nrp.Offset(, 2).Value
> End If
> End If
> Next Nrp
> Application.
> End Sub
>
> buat sebuah tombol di worksheet.. bisa menggunakan command button,
> shape, atau kalo mau sedikit narsis boleh pakai foto diri
>
> # jika menggunakan command button: copas script ini
> call Konversi
>
> # jika menggunakan shape atau foto: panggil macro tersebut dengan cara
> klik kanan >> assign macro, dan pilih nama macronya di atas.
>
> maaf belum bisa melampirkan workbook solusi..
>
> Wassalamu'
>
> -dwint-
>
>
>
> Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@
>
>
> Dear Master Excel,,
>
> Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi
> horizontal secara cepat , serta menggabungkan kesemua data tersebut
> kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan
> perintah makro, seperti pada sampel berikut:
>
> *Data sebelum konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF 8 1B93010 DARMI SYARIF PC750
> 1B93010 DARMI SYARIF D25KS 1B93010 DARMI SYARIF GD825 1B93010 DARMI
> SYARIF PC800 1B93010 DARMI SYARIF D245 1B93010 DARMI SYARIF D50KS
> 1B93010 DARMI SYARIF CHA1500 1B93010 DARMI SYARIF CHA1100
> *Data setelah konversi:*
>
> NRP NAME EGI 1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245,
> D50KS, CHA1500, CHA1100
>
> Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti
> lampiran yang saya sertakan berikut
>
> Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas
> pencerahannya
>
> Salam,
>
> Berni_K
>
>
>
>
>
>
>
Sun Sep 15, 2013 11:44 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Pak Dwint atas macronya dan juga Pak De atas masukannya.
Saya yakin macro ini juga akan dibutuhkan oleh banyak rekan Be-Excellers yang lain.
Mungkin codenya akan menjadi seperti ini:
Sub Konversi()
Dim rgNrp As Range, Nrp As Range, rgFind As Range
Dim LastRow As Long, lData As Long
Application.ScreenUpdating = False
Range("F6", Range("F6").End(xlDown).End(xlToRight)).ClearContents 'supaya ngeblok waktu menghapus
'Range("f6").End(xlDown).End(xlToRight).ClearContents
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Set rgNrp = Range(Cells(6, 1), Cells(LastRow, 1))
For Each Nrp In rgNrp
Set rgFind = Range("f:f").Find(Nrp.Value)
If rgFind Is Nothing Then
lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
Cells(lData, 6).Value = Nrp.Value
Cells(lData, 7).Value = Nrp.Offset(, 1).Value
Cells(lData, 8).Value = Nrp.Offset(, 2).Value
Else
lData = rgFind.Row
'If Cells(lData, 8).Value = "" Then
' Cells(lData, 8).Value = Nrp.Offset(, 2).Value -->pindah ke atas
'Else
Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & Nrp.Offset(, 2).Value
'End If
End If
Next Nrp
Application.ScreenUpdating = True
End Sub
Salam,
HK
________________________________
From: De Premor <de@premor.net>
To: belajar-excel@yahoogroups.com
Sent: Monday, 16 September 2013, 12:38
Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
sebenernya bukan kebetulan, silahkan dicek kodenya lagi
For Each NRP In rgNrp
Set rgFind = Range("f:f").Find(NRP.Value)
If rgFind Is Nothing Then
lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
Cells(lData, 6).Value = NRP.Value
Cells(lData, 7).Value = NRP.Offset(, 1).Value
Else
lData = rgFind.Row
If Cells(lData, 8).Value = "" Then
Cells(lData, 8).Value = NRP.Offset(, 2).Value
Else
Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & NRP.Offset(, 2).Value
End If
End If
Next NRP
dibagian yang diwarna merah, adalah routine buat menuliskan Nomor
NRP dan Nama jika NRP dan Nama belum ada pada kolom hasil, dimana
pada routine tersebut terjadi looping untuk membaca baris per baris,
sehingga terlewat 1 baris nilai EGI untuk diisikan pada
Cells(lData,8) karena memang tidak ada routine untuk itu jika ada
pemunculan nama baru.
On 16-09-2013 12:03, hendrik karnadi wrote:
>Pak Dwint,
>
>
>Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan pak Berni .
>Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk (seharusnya memang tidak masuk), yaitu angka "8" dan "5".
>
>
>Yang pasti bukan kebetulan.
>
>
>Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code) yang mana angka "8" dan "5" dilewati.
>
>
>Workbook hasil testing terlampir.
>
>
>Salam,
>HK
>
>
>
>
>
>________________________________
> From: dwint ruswanto <dwint.ruswanto@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Monday, 16 September 2013, 10:37
>Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
>
>
>
>
>coba bantu dengan menggunakan vba,
>
>
>asumsi, data pertama adalah menyatakan jumlah data yang ada, karena berdasarkan sampel seperti itu adanya
>
>
>
>buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
># klik kanan di sheet dan pilih View Code
># tekan tombol Alt F11
># >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi Macro
>
>
>buka sebuah modul baru dengan cara Insert >> Module
>
>
>pada modul yang terbuka tadi.. copas script berikut ini:
>
>
>Sub Konversi()
> Dim rgNrp As Range, Nrp As Range, rgFind As Range
> Dim LastRow As Long, lData As Long
>
> Application.ScreenUpdating = False
> Range("f6").End(xlDown).End(xlToRight).ClearContents
> LastRow = Cells(Rows.Count, 1).End(xlUp).Row
> Set rgNrp = Range(Cells(6, 1), Cells(LastRow, 1))
> For Each Nrp In rgNrp
> Set rgFind = Range("f:f").Find(Nrp.Value)
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
> Cells(lData, 6).Value = Nrp.Value
> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
> Else
> lData = rgFind.Row
> If Cells(lData, 8).Value = "" Then
> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
> Else
> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & Nrp.Offset(, 2).Value
> End If
> End If
> Next Nrp
> Application.ScreenUpdating = True
>End Sub
>
>
>buat sebuah tombol di worksheet.. bisa menggunakan command button, shape, atau kalo mau sedikit narsis boleh pakai foto diri
>
>
># jika menggunakan command button: copas script ini
>call Konversi
>
>
># jika menggunakan shape atau foto: panggil macro tersebut dengan cara klik kanan >> assign macro, dan pilih nama macronya di atas.
>
>
>maaf belum bisa melampirkan workbook solusi..
>
>
>Wassalamu'alaikum wr. wb.,
>
>
>-dwint-
>
>
>
>
>
>Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@gmail.com> menulis:
>
>
>>Dear Master Excel,,
>>
>>
>>Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi horizontal secara cepat , serta menggabungkan kesemua data tersebut
>>kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan perintah makro, seperti pada sampel berikut:
>>
>>
>>Data sebelum konversi:
>>
>>
>>NRP NAME EGI
>>1B93010 DARMI SYARIF 8
>>1B93010 DARMI SYARIF PC750
>>1B93010 DARMI SYARIF D25KS
>>1B93010 DARMI SYARIF GD825
>>1B93010 DARMI SYARIF PC800
>>1B93010 DARMI SYARIF D245
>>1B93010 DARMI SYARIF D50KS
>>1B93010 DARMI SYARIF CHA1500
>>1B93010 DARMI SYARIF CHA1100
>>
>>Data setelah konversi:
>>
>>
>>NRP NAME EGI
>>1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245, D50KS, CHA1500, CHA1100
>>
>>
>>Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti lampiran yang saya sertakan berikut
>>
>>
>>
>>Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas pencerahannya
>>
>>
>>Salam,
>>
>>
>>Berni_K
>
>
>
Saya yakin macro ini juga akan dibutuhkan oleh banyak rekan Be-Excellers yang lain.
Mungkin codenya akan menjadi seperti ini:
Sub Konversi()
Dim rgNrp As Range, Nrp As Range, rgFind As Range
Dim LastRow As Long, lData As Long
Application.
Range("
'Range("
LastRow = Cells(Rows.Count, 1).End(xlUp)
Set rgNrp = Range(Cells(
For Each Nrp In rgNrp
Set rgFind = Range("
If rgFind Is Nothing Then
lData = Cells(Rows.Count, 6).End(xlUp)
Cells(lData, 6).Value = Nrp.Value
Cells(lData, 7).Value = Nrp.Offset(, 1).Value
Cells(lData, 8).Value = Nrp.Offset(, 2).Value
Else
lData = rgFind.Row
'If Cells(lData, 8).Value = "" Then
' Cells(lData, 8).Value = Nrp.Offset(, 2).Value -->pindah ke atas
'Else
Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & Nrp.Offset(, 2).Value
'End If
End If
Next Nrp
Application.
End Sub
Salam,
HK
____________
From: De Premor <de@premor.net>
To: belajar-excel@
Sent: Monday, 16 September 2013, 12:38
Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
sebenernya bukan kebetulan, silahkan dicek kodenya lagi
For Each NRP In rgNrp
Set rgFind = Range("
If rgFind Is Nothing Then
lData = Cells(Rows.Count, 6).End(xlUp)
Cells(lData, 6).Value = NRP.Value
Cells(lData, 7).Value = NRP.Offset(, 1).Value
Else
lData = rgFind.Row
If Cells(lData, 8).Value = "" Then
Cells(lData, 8).Value = NRP.Offset(, 2).Value
Else
Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & NRP.Offset(, 2).Value
End If
End If
Next NRP
dibagian yang diwarna merah, adalah routine buat menuliskan Nomor
NRP dan Nama jika NRP dan Nama belum ada pada kolom hasil, dimana
pada routine tersebut terjadi looping untuk membaca baris per baris,
sehingga terlewat 1 baris nilai EGI untuk diisikan pada
Cells(lData,
pemunculan nama baru.
On 16-09-2013 12:03, hendrik karnadi wrote:
>Pak Dwint,
>
>
>Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan pak Berni .
>Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk (seharusnya memang tidak masuk), yaitu angka "8" dan "5"
>
>
>Yang pasti bukan kebetulan.
>
>
>Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code) yang mana angka "8" dan "5" dilewati.
>
>
>Workbook hasil testing terlampir.
>
>
>Salam,
>HK
>
>
>
>
>
>________
> From: dwint ruswanto <dwint.ruswanto@
>To: belajar-excel@
>Sent: Monday, 16 September 2013, 10:37
>Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
>
>
>
>
>coba bantu dengan menggunakan vba,
>
>
>asumsi, data pertama adalah menyatakan jumlah data yang ada, karena berdasarkan sampel seperti itu adanya
>
>
>
>buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
># klik kanan di sheet dan pilih View Code
># tekan tombol Alt F11
># >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi Macro
>
>
>buka sebuah modul baru dengan cara Insert >> Module
>
>
>pada modul yang terbuka tadi.. copas script berikut ini:
>
>
>Sub Konversi()
> Dim rgNrp As Range, Nrp As Range, rgFind As Range
> Dim LastRow As Long, lData As Long
>
> Application.
> Range("
> LastRow = Cells(Rows.Count, 1).End(xlUp)
> Set rgNrp = Range(Cells(
> For Each Nrp In rgNrp
> Set rgFind = Range("
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp)
> Cells(lData, 6).Value = Nrp.Value
> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
> Else
> lData = rgFind.Row
> If Cells(lData, 8).Value = "" Then
> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
> Else
> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & Nrp.Offset(, 2).Value
> End If
> End If
> Next Nrp
> Application.
>End Sub
>
>
>buat sebuah tombol di worksheet.. bisa menggunakan command button, shape, atau kalo mau sedikit narsis boleh pakai foto diri
>
>
># jika menggunakan command button: copas script ini
>call Konversi
>
>
># jika menggunakan shape atau foto: panggil macro tersebut dengan cara klik kanan >> assign macro, dan pilih nama macronya di atas.
>
>
>maaf belum bisa melampirkan workbook solusi..
>
>
>Wassalamu&#
>
>
>-dwint-
>
>
>
>
>
>Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@
>
>
>>Dear Master Excel,,
>>
>>
>>Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi horizontal secara cepat , serta menggabungkan kesemua data tersebut
>>kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan perintah makro, seperti pada sampel berikut:
>>
>>
>>Data sebelum konversi:
>>
>>
>>NRP NAME EGI
>>1B93010 DARMI SYARIF 8
>>1B93010 DARMI SYARIF PC750
>>1B93010 DARMI SYARIF D25KS
>>1B93010 DARMI SYARIF GD825
>>1B93010 DARMI SYARIF PC800
>>1B93010 DARMI SYARIF D245
>>1B93010 DARMI SYARIF D50KS
>>1B93010 DARMI SYARIF CHA1500
>>1B93010 DARMI SYARIF CHA1100
>>
>>Data setelah konversi:
>>
>>
>>NRP NAME EGI
>>1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245, D50KS, CHA1500, CHA1100
>>
>>
>>Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti lampiran yang saya sertakan berikut
>>
>>
>>
>>Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas pencerahannya
>>
>>
>>Salam,
>>
>>
>>Berni_
>
>
>
Sun Sep 15, 2013 11:47 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Pak Dwint.
Salam,
HK
________________________________
From: dwint ruswanto <dwint.ruswanto@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 16 September 2013, 13:15
Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
betul kata pak De Premor..
setelah saya cek sampel yang diberikan..
data pertama pada kolom C menunjukan banyak data yang berurut di bawahnya,
dengan asumsi bahwa seluruh data memiliki pola yang sama,
maka untuk setiap data pertama yang ditemukan tidak dilakukan penulisan ke kolom EGI.
kira2 penjelasan saya seperti itu pak Hendrik.
Salam,
-dwint-
Pada 16 September 2013 12.38, De Premor <de@premor.net> menulis:
>
>sebenernya bukan kebetulan, silahkan dicek kodenya lagi
>
> For Each NRP In rgNrp
> Set rgFind = Range("f:f").Find(NRP.Value)
>
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
> Cells(lData, 6).Value = NRP.Value
> Cells(lData, 7).Value = NRP.Offset(, 1).Value
>
> Else
> lData = rgFind.Row
> If Cells(lData, 8).Value = "" Then
> Cells(lData, 8).Value = NRP.Offset(, 2).Value
> Else
> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & NRP.Offset(, 2).Value
> End If
> End If
> Next NRP
>
>dibagian yang diwarna merah, adalah routine buat menuliskan Nomor
NRP dan Nama jika NRP dan Nama belum ada pada kolom hasil, dimana
pada routine tersebut terjadi looping untuk membaca baris per baris,
sehingga terlewat 1 baris nilai EGI untuk diisikan pada
Cells(lData,8) karena memang tidak ada routine untuk itu jika ada
pemunculan nama baru.
>
>
>On 16-09-2013 12:03, hendrik karnadi wrote:
>
>
>>Pak Dwint,
>>
>>
>>Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan pak Berni .
>>Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk (seharusnya memang tidak masuk), yaitu angka "8" dan "5".
>>
>>
>>Yang pasti bukan kebetulan.
>>
>>
>>Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code) yang mana angka "8" dan "5" dilewati.
>>
>>
>>Workbook hasil testing terlampir.
>>
>>
>>Salam,
>>HK
>>
>>
>>
>>
>>
>>________________________________
>> From: dwint ruswanto <dwint.ruswanto@gmail.com>
>>To: belajar-excel@yahoogroups.com
>>Sent: Monday, 16 September 2013, 10:37
>>Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
>>
>>
>>
>>
>>coba bantu dengan menggunakan vba,
>>
>>
>>asumsi, data pertama adalah menyatakan jumlah data yang ada, karena berdasarkan sampel seperti itu adanya
>>
>>
>>
>>buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
>># klik kanan di sheet dan pilih View Code
>># tekan tombol Alt F11
>># >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi Macro
>>
>>
>>buka sebuah modul baru dengan cara Insert >> Module
>>
>>
>>pada modul yang terbuka tadi.. copas script berikut ini:
>>
>>
>>Sub Konversi()
>> Dim rgNrp As Range, Nrp As Range, rgFind As Range
>> Dim LastRow As Long, lData As Long
>>
>> Application.ScreenUpdating = False
>> Range("f6").End(xlDown).End(xlToRight).ClearContents
>> LastRow = Cells(Rows.Count, 1).End(xlUp).Row
>> Set rgNrp = Range(Cells(6, 1), Cells(LastRow, 1))
>> For Each Nrp In rgNrp
>> Set rgFind = Range("f:f").Find(Nrp.Value)
>> If rgFind Is Nothing Then
>> lData = Cells(Rows.Count, 6).End(xlUp).Row + 1
>> Cells(lData, 6).Value = Nrp.Value
>> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
>> Else
>> lData = rgFind.Row
>> If Cells(lData, 8).Value = "" Then
>> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
>> Else
>> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & Nrp.Offset(, 2).Value
>> End If
>> End If
>> Next Nrp
>> Application.ScreenUpdating = True
>>End Sub
>>
>>
>>buat sebuah tombol di worksheet.. bisa menggunakan command button, shape, atau kalo mau sedikit narsis boleh pakai foto diri
>>
>>
>># jika menggunakan command button: copas script ini
>>call Konversi
>>
>>
>># jika menggunakan shape atau foto: panggil macro tersebut dengan cara klik kanan >> assign macro, dan pilih nama macronya di atas.
>>
>>
>>maaf belum bisa melampirkan workbook solusi..
>>
>>
>>Wassalamu'alaikum wr. wb.,
>>
>>
>>-dwint-
>>
>>
>>
>>
>>
>>Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@gmail.com> menulis:
>>
>>
>>>Dear Master Excel,,
>>>
>>>
>>>Mohon pencerahannya bagaimana cara mengkonversi data vertikal menjadi horizontal secara cepat , serta menggabungkan kesemua data tersebut
>>>kedalam satu cell dengan separator koma (,) .kalo bisa dengan menggunakan perintah makro, seperti pada sampel berikut:
>>>
>>>
>>>Data sebelum konversi:
>>>
>>>
>>>NRP NAME EGI
>>>1B93010 DARMI SYARIF 8
>>>1B93010 DARMI SYARIF PC750
>>>1B93010 DARMI SYARIF D25KS
>>>1B93010 DARMI SYARIF GD825
>>>1B93010 DARMI SYARIF PC800
>>>1B93010 DARMI SYARIF D245
>>>1B93010 DARMI SYARIF D50KS
>>>1B93010 DARMI SYARIF CHA1500
>>>1B93010 DARMI SYARIF CHA1100
>>>
>>>Data setelah konversi:
>>>
>>>
>>>NRP NAME EGI
>>>1B93010 DARMI SYARIF PC750, D25KS, GD825, PC800, D245, D50KS, CHA1500, CHA1100
>>>
>>>
>>>Baris data yang akan digunakan sangat banyak, Lebih detail nya seperti lampiran yang saya sertakan berikut
>>>
>>>
>>>
>>>Sekali lagi, mohon bantuan master sekalian, dan terima kasih atas pencerahannya
>>>
>>>
>>>Salam,
>>>
>>>
>>>Berni_K
>>
>>
>>
>
Salam,
HK
____________
From: dwint ruswanto <dwint.ruswanto@
To: belajar-excel@
Sent: Monday, 16 September 2013, 13:15
Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
betul kata pak De Premor..
setelah saya cek sampel yang diberikan..
data pertama pada kolom C menunjukan banyak data yang berurut di bawahnya,
dengan asumsi bahwa seluruh data memiliki pola yang sama,
maka untuk setiap data pertama yang ditemukan tidak dilakukan penulisan ke kolom EGI.
kira2 penjelasan saya seperti itu pak Hendrik.
Salam,
-dwint-
Pada 16 September 2013 12.38, De Premor <de@premor.net> menulis:
>
>sebenernya bukan kebetulan, silahkan dicek kodenya lagi
>
> For Each NRP In rgNrp
> Set rgFind = Range("
>
> If rgFind Is Nothing Then
> lData = Cells(Rows.Count, 6).End(xlUp)
> Cells(lData, 6).Value = NRP.Value
> Cells(lData, 7).Value = NRP.Offset(, 1).Value
>
> Else
> lData = rgFind.Row
> If Cells(lData, 8).Value = "" Then
> Cells(lData, 8).Value = NRP.Offset(, 2).Value
> Else
> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & NRP.Offset(, 2).Value
> End If
> End If
> Next NRP
>
>dibagian yang diwarna merah, adalah routine buat menuliskan Nomor
NRP dan Nama jika NRP dan Nama belum ada pada kolom hasil, dimana
pada routine tersebut terjadi looping untuk membaca baris per baris,
sehingga terlewat 1 baris nilai EGI untuk diisikan pada
Cells(lData,
pemunculan nama baru.
>
>
>On 16-09-2013 12:03, hendrik karnadi wrote:
>
>
>>Pak Dwint,
>>
>>
>>Sy sudah coba copas dan jalankan macronya pada file yang dilampirkan pak Berni .
>>Jumlah EGI = 71 item, data 73 item. Ada selisih 2 item yang tidak masuk (seharusnya memang tidak masuk), yaitu angka "8" dan "5"
>>
>>
>>Yang pasti bukan kebetulan.
>>
>>
>>Mungkin perlu dijelaskan sedikit oleh Pak Dwint, pada bagian (code) yang mana angka "8" dan "5" dilewati.
>>
>>
>>Workbook hasil testing terlampir.
>>
>>
>>Salam,
>>HK
>>
>>
>>
>>
>>
>>____
>> From: dwint ruswanto <dwint.ruswanto@
>>To: belajar-excel@
>>Sent: Monday, 16 September 2013, 10:37
>>Subject: Re: [belajar-excel] Cara konversi data vertikal menjadi horizantal
>>
>>
>>
>>
>>coba bantu dengan menggunakan vba,
>>
>>
>>asumsi, data pertama adalah menyatakan jumlah data yang ada, karena berdasarkan sampel seperti itu adanya
>>
>>
>>
>>buka VBE modul dengan cara sebagai berikut (pilih salah satu saja)
>># klik kanan di sheet dan pilih View Code
>># tekan tombol Alt F11
>># >> hanya ada di excel 2003, sudah lupa tapi cari sesuatu yang berbunyi Macro
>>
>>
>>buka sebuah modul baru dengan cara Insert >> Module
>>
>>
>>pada modul yang terbuka tadi.. copas script berikut ini:
>>
>>
>>Sub Konversi()
>> Dim rgNrp As Range, Nrp As Range, rgFind As Range
>> Dim LastRow As Long, lData As Long
>>
>> Application.
>> Range("
>> LastRow = Cells(Rows.Count, 1).End(xlUp)
>> Set rgNrp = Range(Cells(
>> For Each Nrp In rgNrp
>> Set rgFind = Range("
>> If rgFind Is Nothing Then
>> lData = Cells(Rows.Count, 6).End(xlUp)
>> Cells(lData, 6).Value = Nrp.Value
>> Cells(lData, 7).Value = Nrp.Offset(, 1).Value
>> Else
>> lData = rgFind.Row
>> If Cells(lData, 8).Value = "" Then
>> Cells(lData, 8).Value = Nrp.Offset(, 2).Value
>> Else
>> Cells(lData, 8).Value = Cells(lData, 8).Value & ", " & Nrp.Offset(, 2).Value
>> End If
>> End If
>> Next Nrp
>> Application.
>>End Sub
>>
>>
>>buat sebuah tombol di worksheet.. bisa menggunakan command button, shape, atau kalo mau sedikit narsis boleh pakai foto diri
>>
>>
>># jika menggunakan command button: copas script ini
>>call Konversi
>>
>>
>># jika menggunakan shape atau foto: panggil macro tersebut dengan cara klik kanan >> assign macro, dan pilih nama macronya di atas.
>>
>>
>>maaf belum bisa melampirkan workbook solusi..
>>
>>
>>Wassalamu&#
>>
>>
>>-dwint-
>>
>>
>>
>>
>>
>>Pada 15 September 2013 13.56, Berni Karanza <karanza.berni@
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
Sun Sep 15, 2013 9:02 pm (PDT) . Posted by:
"gantar dowo"
berhubung sudah sehat, doanya moga2 terhindar dari penyakit...aaaaaamiin
2013/9/10 M.Ade Alfarid <QA@kkmi.co.id>
> **
> Rekan BeExcelers,
>
> Bersama-sama mari doakan kesembuhan moderator milis Mr Kid,
> Semoga cepat diangkat semua penyakit dari tubuhnya,
> semoga lekas diringankan segala rasa sakitnya,
> semoga lekas dikembalikan kesehatannya,
> semoga lekas beliau kembali diantara kita,
> dengan kondisi sehat tak kurang suatu apapun.
>
> Amiin.
>
>
> Regards,
> Ade
>
2013/9/10 M.Ade Alfarid <QA@kkmi.co.id>
> **
> Rekan BeExcelers,
>
> Bersama-sama mari doakan kesembuhan moderator milis Mr Kid,
> Semoga cepat diangkat semua penyakit dari tubuhnya,
> semoga lekas diringankan segala rasa sakitnya,
> semoga lekas dikembalikan kesehatannya,
> semoga lekas beliau kembali diantara kita,
> dengan kondisi sehat tak kurang suatu apapun.
>
> Amiin.
>
>
> Regards,
> Ade
>
Sun Sep 15, 2013 9:16 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Amin....
Semoga mas Gantar dan seluruh BeExceller terhindar dari segala penyakit dan
mendapatkan kesehatan yang bermanfaat. Amin.
Wassalam,
Kid.
2013/9/16 gantar dowo <takbengkolang@gmail.com>
> **
>
>
> berhubung sudah sehat, doanya moga2 terhindar dari penyakit...aaaaaamiin
>
>
> 2013/9/10 M.Ade Alfarid <QA@kkmi.co.id>
>
> **
>> Rekan BeExcelers,
>>
>> Bersama-sama mari doakan kesembuhan moderator milis Mr Kid,
>> Semoga cepat diangkat semua penyakit dari tubuhnya,
>> semoga lekas diringankan segala rasa sakitnya,
>> semoga lekas dikembalikan kesehatannya,
>> semoga lekas beliau kembali diantara kita,
>> dengan kondisi sehat tak kurang suatu apapun.
>>
>> Amiin.
>>
>>
>> Regards,
>> Ade
>>
>
>
>
Semoga mas Gantar dan seluruh BeExceller terhindar dari segala penyakit dan
mendapatkan kesehatan yang bermanfaat. Amin.
Wassalam,
Kid.
2013/9/16 gantar dowo <takbengkolang@
> **
>
>
> berhubung sudah sehat, doanya moga2 terhindar dari penyakit...aaaaaami
>
>
> 2013/9/10 M.Ade Alfarid <QA@kkmi.co.id>
>
> **
>> Rekan BeExcelers,
>>
>> Bersama-sama mari doakan kesembuhan moderator milis Mr Kid,
>> Semoga cepat diangkat semua penyakit dari tubuhnya,
>> semoga lekas diringankan segala rasa sakitnya,
>> semoga lekas dikembalikan kesehatannya,
>> semoga lekas beliau kembali diantara kita,
>> dengan kondisi sehat tak kurang suatu apapun.
>>
>> Amiin.
>>
>>
>> Regards,
>> Ade
>>
>
>
>
Sun Sep 15, 2013 11:52 pm (PDT) . Posted by:
"yiyin kazama" kayzjun
Dear all
Selamat siang semua, saya ingin menanyakan di userform itu bisa menampilkan tanggal otomatis tidak ya??. mohon di berkan pencerahannya
yiyin
Selamat siang semua, saya ingin menanyakan di userform itu bisa menampilkan tanggal otomatis tidak ya??. mohon di berkan pencerahannya
yiyin
Mon Sep 16, 2013 12:21 am (PDT) . Posted by:
"dwint ruswanto"
coba memamanfaatkan event activate milik si user form
jika ingin ditampilkan dalam header, maka scriptnya seperti ini (kira-kira
aja ya)
userform1.caption = format(date(), "dddd dd-mmm-yyyy")
maka akan mennamplilkan hari dan tanggal, misal: Senin 16-Sept-2013
jika ingin menggunakan label yang diletakan di dalam user from, maka ganti
userform1.caption manjadi label1.caption
Salam,
-dwint-
Pada 16 September 2013 13.50, yiyin kazama <kazama_katana@yahoo.co.id>menulis:
> **
>
>
> Dear all
>
> Selamat siang semua, saya ingin menanyakan di userform itu bisa
> menampilkan tanggal otomatis tidak ya??. mohon di berkan pencerahannya
>
> yiyin
>
>
>
jika ingin ditampilkan dalam header, maka scriptnya seperti ini (kira-kira
aja ya)
userform1.caption = format(date(
maka akan mennamplilkan hari dan tanggal, misal: Senin 16-Sept-2013
jika ingin menggunakan label yang diletakan di dalam user from, maka ganti
userform1.caption manjadi label1.caption
Salam,
-dwint-
Pada 16 September 2013 13.50, yiyin kazama <kazama_katana@
> **
>
>
> Dear all
>
> Selamat siang semua, saya ingin menanyakan di userform itu bisa
> menampilkan tanggal otomatis tidak ya??. mohon di berkan pencerahannya
>
> yiyin
>
>
>
Mon Sep 16, 2013 12:54 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
*** wauw... posting ini masuk milis 23 jam yang lalu dari hari ini
2013-09-16, tapi baru masuk inbox hari ini jam 14:34 ***
Hai Tjahya Hartono,
Array formula filtering bisa digunakan untuk menyelesaikan permasalahan
seperti ini.
Dongeng tentang array formula filtering ada
disini<http://excel-mr-kid.blogspot.com/2011/04/formula-filter-data-filtering-formula.html>
.
File terlampir adalah salah satu contoh implementasinya.
Wassalam,
Kid.
P.S.
Alhamdulillah sudah sembuh. Terimakasih atas doanya. Semoga Anda dan
seluruh BeExceller dilimpahkan kesehatan yang bermanfaat. Amin.
2013/9/15 Tjahya Hartono <tjahyahartono@yahoo.co.id>
> **
>
>
>
> Selamat Sore Be Excelers,
>
>
> Saya mengalami kesulitan dalam pekerjaan saya, karena ini saya lakukan
> dalam rutinitas mingguan, bulanan dstnya
> Dengan data yang sama, letak posisi cell yang sama saya memindahkan
> datanya. Sekali lagi, (Sebenarnya berkali-kali
> , hehehe) saya minta tolong untuk menyelesaikan kasus ini, untuk
> memudahkan berikut data terlampir
>
> Nb:
> Oh ya Mr KId Semoga Cepat sembuh ya, Saya dengar infonya sedang sakit
> soalnya
>
>
>
> Terima kasih
>
>
>
> Tjahya Hartono
>
>
>
2013-09-16, tapi baru masuk inbox hari ini jam 14:34 ***
Hai Tjahya Hartono,
Array formula filtering bisa digunakan untuk menyelesaikan permasalahan
seperti ini.
Dongeng tentang array formula filtering ada
disini<http://excel-
.
File terlampir adalah salah satu contoh implementasinya.
Wassalam,
Kid.
P.S.
Alhamdulillah sudah sembuh. Terimakasih atas doanya. Semoga Anda dan
seluruh BeExceller dilimpahkan kesehatan yang bermanfaat. Amin.
2013/9/15 Tjahya Hartono <tjahyahartono@
> **
>
>
>
> Selamat Sore Be Excelers,
>
>
> Saya mengalami kesulitan dalam pekerjaan saya, karena ini saya lakukan
> dalam rutinitas mingguan, bulanan dstnya
> Dengan data yang sama, letak posisi cell yang sama saya memindahkan
> datanya. Sekali lagi, (Sebenarnya berkali-kali
> , hehehe) saya minta tolong untuk menyelesaikan kasus ini, untuk
> memudahkan berikut data terlampir
>
> Nb:
> Oh ya Mr KId Semoga Cepat sembuh ya, Saya dengar infonya sedang sakit
> soalnya
>
>
>
> Terima kasih
>
>
>
> Tjahya Hartono
>
>
>
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar