Wuuuuiiiiiih.....solusi Pak hendrik paling kereeeeen.... Manteb tenan..!!! Tapi Pak seandainya..nomer induk acak kayaknya bisa muncul dua kali ya Pak.. .(maaf gak bisa bikin tapi bisanya nyacat..he..he..piss Pak Hendrik... )
Maaf ikut nimbrung mardi -------Original Message------- From: hendrik karnadi Date: 08/12/2012 9:12:20 To: [email protected] Subject: Re: [belajar-excel] group Saya coba macro versi pemula (bermain2 di range), versi canggihnya kita serahkan ke Mr. Kid, Ms. Jan dan para pakar lainnya. Macronya seperti ini : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim a As String Dim b As String r = 13 For i = 2 To 10 a = Sheet1.Range("A" & i) & Sheet1.Range("B" & i) & Sheet1.Range("C" & i) b = Sheet1.Range("A" & i + 1) & Sheet1.Range("B" & i + 1) & Sheet1 Range("C" & i + 1) If b <> a Then Sheet1.Range("A" & i + 1).Resize(, 3).Copy Range("A" & r + 1) Else Range("A" & r + 1) = "" r = r - 1 End If Sheet1.Range("A" & i + 1).Select r = r + 1 Next i End Sub Semoga dapat menjadi masukan bagi rekan2 yang baru mau belajar macro. Salam, Hendrik Karnadi From: Mr. Kid <[email protected]> To: [email protected] Sent: Friday, 7 December 2012, 20:33 Subject: Re: [belajar-excel] group ms Jan, pinjem filenya yang dari Pak Bagus ya... Coba file terlampir. Formula yang agak beda dengan formula Pak Bagus dan fitur pivot table. Kita tunggu bersama-sama solusi dengan VBA. :) Wassalam, Kid. 2012/12/7 Jan Raisin <[email protected]> Dear pak Bagus, pinjam filenya ya :D pak Ihsan, coba lihat file terlampir dengan memanfaatkan Advanced Filter btw, semoga ada member yang bersedia menambahkan solusi dengan memanfaatkan Pivot Table, formula, atau cara yang lain agar millis ini semakin ramai. karena Jan yakin bahwa banyak member yang bisa memberikan solusi-solusi jitu tapi masih malu-malu. Best Regard, -Ms. Jan Raisin- Pada 7 Desember 2012 15:19, Bagus <[email protected]> menulis: Dear Pak Ihsan; File terlampir semoga sesuai harapan Bagus ----- Original Message ----- From: IHSAN NURDIN To: [email protected] Sent: Friday, December 07, 2012 2:05 PM Subject: [belajar-excel] group Rekan milis. Mohon bantuan nya. Saya punya permasalahan, data nya sbb : Nomor induk Nama Tgl msk 10 Ira 23/10/12 11 Ari 23/10/12 11 Ari 23/10/12 12 Adi 23/10/12 13 Adu 23/10/12 14 Ika 23/10/12 14 Ika 23/10/12 14 Ika 23/10/12 Saya akan groupkan Nomor induk tp hasilnya setiap Nomor induk yg sama mengeluarkan nilai 1 atau terhitung 1 saja.Jd untuk data di atas ada 5 orang yg masuk kerja pd tanggal 23/10/12. Tk banyak seblmnya rekan milis. salam excel.
<<happy.gif>>
